add some really simple testcases (by fieselschweif)

diff --git a/ag/fieselschweif_00.3 b/ag/fieselschweif_00.3
new file mode 100644 (file)
index 0000000..63e264b
--- /dev/null
+++ b/ag/fieselschweif_00.3
@@ -0,0 +1,5 @@
+/* multiple field definition on "doubletrouble" here */
+struct doubletrouble foo end;
+method test(a b c)
+end;
+struct bar doubletrouble end;

diff --git a/ag/fieselschweif_01.3 b/ag/fieselschweif_01.3
new file mode 100644 (file)
index 0000000..2c126cf
--- /dev/null
+++ b/ag/fieselschweif_01.3
@@ -0,0 +1,3 @@
+/* multiple variable definition in param list */
+method test(a b c a)
+end;

diff --git a/ag/fieselschweif_02.3 b/ag/fieselschweif_02.3
new file mode 100644 (file)
index 0000000..8b0c25d
--- /dev/null
+++ b/ag/fieselschweif_02.3
@@ -0,0 +1,6 @@
+/* fieldnames are NOT visible everywhere, but only after their definition */
+method foobar(a)
+       a.youdontseemeyet := 31337;
+end;
+
+struct youdontseemeyet end;

diff --git a/ag/fieselschweif_03.0 b/ag/fieselschweif_03.0
new file mode 100644 (file)
index 0000000..c91f185
--- /dev/null
+++ b/ag/fieselschweif_03.0
@@ -0,0 +1,5 @@
+/* variable and field can have the same name */
+struct a b end;
+method foobar(a)
+       var b := 23;
+end;

diff --git a/ag/fieselschweif_04.0 b/ag/fieselschweif_04.0
new file mode 100644 (file)
index 0000000..9ebc0dd
--- /dev/null
+++ b/ag/fieselschweif_04.0
@@ -0,0 +1,5 @@
+struct derhansderkanns end;
+method justeat(it)
+       /* LHS -> variable, RHS -> field; so there's no collision */
+       var derhansderkanns := derhansderkanns;
+end;