[SCM] Lisaac compiler branch, stable, updated. lisaac-0.12-550-g85034c5
Mildred Ki'Lya
silkensedai at online.fr
Sat Oct 10 22:52:26 UTC 2009
The following commit has been merged in the stable branch:
commit cfe09ceeed416f742919698f41e8057ba44f0f1c
Author: Mildred Ki'Lya <silkensedai at online.fr>
Date: Sat Oct 10 23:54:12 2009 +0200
Add test. Error when compiling Expanded with NULL.
diff --git a/run-tests.sh b/run-tests.sh
index 3122531..5e6759b 100755
--- a/run-tests.sh
+++ b/run-tests.sh
@@ -145,7 +145,7 @@ if $op_runcwd; then
echo
echo "$run"
fi
- else
+ elif [ $res = 0 ]; then
echo
echo "$compile"
fi
diff --git a/tests/compare_expanded_null/main.li b/tests/compare_expanded_null/main.li
new file mode 100644
index 0000000..675c96b
--- /dev/null
+++ b/tests/compare_expanded_null/main.li
@@ -0,0 +1,16 @@
+Section Header
+
+ + name := MAIN;
+
+Section Public
+
+ - main <-
+ ( + b :INTEGER;
+ (b = NULL).if {
+ "0 is NULL".println;
+ } else {
+ "0 is not NULL".println;
+ };
+ "If it compiles without an error, there is a bug".println;
+ );
+
diff --git a/tests/inherit_generic/make.lip b/tests/compare_expanded_null/make.lip
similarity index 88%
copy from tests/inherit_generic/make.lip
copy to tests/compare_expanded_null/make.lip
index 893df71..f65a016 100644
--- a/tests/inherit_generic/make.lip
+++ b/tests/compare_expanded_null/make.lip
@@ -35,6 +35,11 @@ Section Private
);
+ m_test_description :STRING :=
- "Test inheritance from a generic prototype from a non generic one\n";
+ "Test that (INTEGER = NULL) raise a compilation error\n\
+ \The generated C code compare a pointer with a non pointer variable\n";
+ m_test_run :BOOLEAN := FALSE;
+
+ + m_test_compile :BOOLEAN := FALSE;
+
+ + m_test_compile_pattern :STRING := "--SEMANTIC---------";
--
Lisaac compiler
More information about the Lisaac-commits
mailing list