(* Aaron Brown and Bradley Durandetta
   runtime_casenomatch.cl

   Test functions to test proper runtime error handling in code generator
*)

class A {
	a : Int <- 2;

	get_a() : Int {
		a
	};
};

class Main inherits IO {
	a : Int;
	b : String;
	c : Bool;
	d : A;

	main() : Int {
		{
			out_string("Test no matching case type\n");
			d <- new A;
			case(d) of
				one : String => out_string(one);
				two : Int => out_int(two);
			esac;

			0;
		}
	};
};