Changeset 37132 in project

Timestamp:

01/26/19 16:29:22 (16 months ago)

Author:

Kon Lovett

Message:

fix test

Location:

release/5/apropos/trunk

Files:

• apropos.egg (modified) (1 diff)
• tests/apropos-test.scm (modified) (1 diff)
• tests/run.scm (modified) (1 diff)

release/5/apropos/trunk/apropos.egg

@@ -5 +5 @@
 
 ((synopsis "CHICKEN apropos")
- (version "3.3.2")
+ (version "3.3.3")
  (category misc)
  (author "[[kon lovett]]")

release/5/apropos/trunk/tests/apropos-test.scm

@@ -116 +116 @@
 |#
 
-(cond-expand
-  (compiling
-    ;reads (|| . foobarmacro1) as ( . foobarmacro1)
-    )
-  (else
-    ;oh , my : #:|| from reader is not eq? #:|| from symbol-table
-    (apropos-information-list-test
-      '(
-        ((|| . foobarmacro1) . macro)
-        ((|| . foobarmacro2) . macro)
-        ((|| . foobarproc0) procedure)
-        ((|| . foobarproc1) procedure a)
-        ((|| . foobarproc2) procedure a b)
-        ((|| . foobarprocn) procedure a b . r)
-        ((|| . foobarprocx) procedure a b c)
-        ((|| . foobarvar1) . variable)
-        ((|| . foobarvar2) . variable) )
-      (apropos-information-list 'foobar #:macros? #t #:internal? #t))
-    (test "apropos-information-list"
-      '(((|| . foobarproc0) procedure)
-        ((|| . foobarproc1) procedure a)
-        ((|| . foobarproc2) procedure a b)
-        ((|| . foobarprocn) procedure a b . r)
-        ((|| . foobarprocx) procedure a b c))
-      (apropos-information-list 'foobarproc #:macros? #t #:internal? #t #:sort #:module)) ) )
+;oh , my - #:|| from reader is not eq? #:|| from symbol-table
+
+(apropos-information-list-test
+  '(
+    ((|| . foobarmacro1) . macro)
+    ((|| . foobarmacro2) . macro)
+    ((|| . foobarproc0) procedure)
+    ((|| . foobarproc1) procedure a)
+    ((|| . foobarproc2) procedure a b)
+    ((|| . foobarprocn) procedure a b . r)
+    ((|| . foobarprocx) procedure a b c)
+    ((|| . foobarvar1) . variable)
+    ((|| . foobarvar2) . variable) )
+  (apropos-information-list 'foobar #:macros? #t #:internal? #t))
+(test "apropos-information-list"
+  '(((|| . foobarproc0) procedure)
+    ((|| . foobarproc1) procedure a)
+    ((|| . foobarproc2) procedure a b)
+    ((|| . foobarprocn) procedure a b . r)
+    ((|| . foobarprocx) procedure a b c))
+  (apropos-information-list 'foobarproc #:macros? #t #:internal? #t #:sort #:module))
 
 #| ;UNSUPPORTED

release/5/apropos/trunk/tests/run.scm

@@ -12 +12 @@
 (define *args* (argv))
 
-;no -disable-interrupts
-(define *csc-options* "-inline-global \
+;no -disable-interrupts or -no-lambda-info
+(define *csc-options* "-inline-global -local -inline \
   -specialize -optimize-leaf-routines -clustering -lfa2 \
-  -local -inline \
-  -no-trace -no-lambda-info \
-  -unsafe")
+  -no-trace -unsafe")
 
 (define (test-name #!optional (eggnam EGG-NAME))