[SCM] Lisaac compiler branch, master+stable, updated. lisaac-0.12-606-gf445725
Mildred Ki'Lya
silkensedai at online.fr
Mon Mar 1 00:35:34 UTC 2010
The following commit has been merged in the master+stable branch:
commit e301cf4f66553fbf6d8c3288da58ab04e4984f01
Author: Mildred Ki'Lya <silkensedai at online.fr>
Date: Wed Nov 11 14:19:56 2009 +0100
Add test for aliased structs that might disappear
diff --git a/tests/typedef_missing/main.li b/tests/typedef_missing/main.li
new file mode 100644
index 0000000..793a041
--- /dev/null
+++ b/tests/typedef_missing/main.li
@@ -0,0 +1,15 @@
+Section Header
+
+ + name := MAIN;
+
+Section Public
+
+ - main <-
+ (
+ PROTO2.set_var 1;
+ PROTO2.set_var2 2;
+ PROTO2.println;
+ PROTO3.set_var 3;
+ PROTO3.println;
+ );
+
diff --git a/tests/inherit_generic/make.lip b/tests/typedef_missing/make.lip
similarity index 95%
copy from tests/inherit_generic/make.lip
copy to tests/typedef_missing/make.lip
index 893df71..393f4ff 100644
--- a/tests/inherit_generic/make.lip
+++ b/tests/typedef_missing/make.lip
@@ -30,11 +30,12 @@ Section Private
- front_end <-
(
general_front_end;
+ is_optimization := TRUE;
path "./*";
input_file := "main";
);
+ m_test_description :STRING :=
- "Test inheritance from a generic prototype from a non generic one\n";
+ "Test all structures are generated correctly\n";
+ m_test_run :BOOLEAN := FALSE;
diff --git a/tests/typedef_missing/proto1.li b/tests/typedef_missing/proto1.li
new file mode 100644
index 0000000..e2b3244
--- /dev/null
+++ b/tests/typedef_missing/proto1.li
@@ -0,0 +1,17 @@
+Section Header
+
+ + name := PROTO1;
+
+Section Public
+
+ - name :STRING_CONSTANT := "PROTO1";
+
+ - println <-
+ (
+ name.print;
+ ' '.print;
+ var.println;
+ );
+
+ + var :INTEGER;
+ - set_var i:INTEGER <- (var := i;);
diff --git a/tests/typedef_missing/proto2.li b/tests/typedef_missing/proto2.li
new file mode 100644
index 0000000..0a00b4c
--- /dev/null
+++ b/tests/typedef_missing/proto2.li
@@ -0,0 +1,23 @@
+Section Header
+
+ + name := PROTO2;
+
+Section Inherit
+
+ + parent_proto1 :Expanded PROTO1;
+
+Section Public
+
+ - name :STRING_CONSTANT := "PROTO2";
+
+ - println <-
+ (
+ name.print;
+ ' '.print;
+ var.println;
+ ' '.print;
+ var2.println;
+ );
+
+ + var2 :INTEGER;
+ - set_var2 i:INTEGER <- (var := i;);
diff --git a/tests/typedef_missing/proto3.li b/tests/typedef_missing/proto3.li
new file mode 100644
index 0000000..25fb505
--- /dev/null
+++ b/tests/typedef_missing/proto3.li
@@ -0,0 +1,17 @@
+Section Header
+
+ + name := PROTO3;
+
+Section Public
+
+ - name :STRING_CONSTANT := "PROTO3";
+
+ - println <-
+ (
+ name.print;
+ ' '.print;
+ var.println;
+ );
+
+ + var :INTEGER;
+ - set_var i:INTEGER <- (var := i;);
--
Lisaac compiler
More information about the Lisaac-commits
mailing list