Changeset 15502 in project

Timestamp:

08/16/09 12:15:31 (10 years ago)

Author:

felix winkelmann

Message:

added test for inlining/capture bug

Location:

chicken/branches/inlining

Files:

• rules.make (modified) (1 diff)
• tests/compiler-tests-2.scm (modified) (2 diffs)
• tests/inlining-tests.scm (added)
• tests/runtests.sh (modified) (1 diff)

chicken/branches/inlining/rules.make

@@ -1257 +1257 @@
 
 testclean:
-        $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) $(SRCDIR)tests/*.out $(SRCDIR)tests/tmp* \
-          $(SRCDIR)tests/*.so $(SRCDIR)tests/*.import.scm $(SRCDIR)tests/repository
+        $(REMOVE_COMMAND) $(REMOVE_COMMAND_OPTIONS) $(SRCDIR)tests/a.out $(SRCDIR)tests/scrutiny.out \
+          $(SRCDIR)tests/tmp* $(SRCDIR)tests/*.so $(SRCDIR)tests/*.import.scm $(SRCDIR)tests/repository
 
 # run tests

chicken/branches/inlining/tests/compiler-tests-2.scm

@@ -13 +13 @@
  (plus 1))
 
-(print (plus1 1))
+(assert (= 2 (plus1 1)))
 
 (define (len lst)
@@ -24 +24 @@
  (len 0))
 
-(print (len '(1 2 3)))
+(assert (= 3 (len '(1 2 3))))

chicken/branches/inlining/tests/runtests.sh

@@ -39 +39 @@
 
 echo "======================================== compiler tests (2) ..."
-$compile compiler-tests.scm -lambda-lift
+$compile compiler-tests-2.scm -lambda-lift
+./a.out
+
+echo "======================================== compiler inlining tests  ..."
+$compile inlining-tests.scm -optimize-level 3
 ./a.out