[gesamt] Added ag/codea/codeb testcases

[testub10.git] / gesamt / codeb_skinner33_02.0

diff --git a/gesamt/codeb_skinner33_02.0 b/gesamt/codeb_skinner33_02.0
new file mode 100644 (file)
index 0000000..17c6bb5
--- /dev/null
+++ b/gesamt/codeb_skinner33_02.0
@@ -0,0 +1,24 @@
+
+struct a b end;
+
+method foo()
+       var x := 5;
+       if this * x then
+               return (x - this) * x;
+       end;
+       return x;
+end;
+
+method bar(n)
+       var x := n;
+       this.a := x;
+       return x;
+end;
+
+method bla(m n)
+       if not((m-n) < (m*n)) then
+               return m;
+       else
+               return n;
+       end; 
+end;