Changeset 37132 in project


Ignore:
Timestamp:
01/26/19 16:29:22 (7 months ago)
Author:
Kon Lovett
Message:

fix test

Location:
release/5/apropos/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/5/apropos/trunk/apropos.egg

    r37126 r37132  
    55
    66((synopsis "CHICKEN apropos")
    7  (version "3.3.2")
     7 (version "3.3.3")
    88 (category misc)
    99 (author "[[kon lovett]]")
  • release/5/apropos/trunk/tests/apropos-test.scm

    r37095 r37132  
    116116|#
    117117
    118 (cond-expand
    119   (compiling
    120     ;reads (|| . foobarmacro1) as ( . foobarmacro1)
    121     )
    122   (else
    123     ;oh , my : #:|| from reader is not eq? #:|| from symbol-table
    124     (apropos-information-list-test
    125       '(
    126         ((|| . foobarmacro1) . macro)
    127         ((|| . foobarmacro2) . macro)
    128         ((|| . foobarproc0) procedure)
    129         ((|| . foobarproc1) procedure a)
    130         ((|| . foobarproc2) procedure a b)
    131         ((|| . foobarprocn) procedure a b . r)
    132         ((|| . foobarprocx) procedure a b c)
    133         ((|| . foobarvar1) . variable)
    134         ((|| . foobarvar2) . variable) )
    135       (apropos-information-list 'foobar #:macros? #t #:internal? #t))
    136     (test "apropos-information-list"
    137       '(((|| . foobarproc0) procedure)
    138         ((|| . foobarproc1) procedure a)
    139         ((|| . foobarproc2) procedure a b)
    140         ((|| . foobarprocn) procedure a b . r)
    141         ((|| . foobarprocx) procedure a b c))
    142       (apropos-information-list 'foobarproc #:macros? #t #:internal? #t #:sort #:module)) ) )
     118;oh , my - #:|| from reader is not eq? #:|| from symbol-table
     119
     120(apropos-information-list-test
     121  '(
     122    ((|| . foobarmacro1) . macro)
     123    ((|| . foobarmacro2) . macro)
     124    ((|| . foobarproc0) procedure)
     125    ((|| . foobarproc1) procedure a)
     126    ((|| . foobarproc2) procedure a b)
     127    ((|| . foobarprocn) procedure a b . r)
     128    ((|| . foobarprocx) procedure a b c)
     129    ((|| . foobarvar1) . variable)
     130    ((|| . foobarvar2) . variable) )
     131  (apropos-information-list 'foobar #:macros? #t #:internal? #t))
     132(test "apropos-information-list"
     133  '(((|| . foobarproc0) procedure)
     134    ((|| . foobarproc1) procedure a)
     135    ((|| . foobarproc2) procedure a b)
     136    ((|| . foobarprocn) procedure a b . r)
     137    ((|| . foobarprocx) procedure a b c))
     138  (apropos-information-list 'foobarproc #:macros? #t #:internal? #t #:sort #:module))
    143139
    144140#| ;UNSUPPORTED
  • release/5/apropos/trunk/tests/run.scm

    r35819 r37132  
    1212(define *args* (argv))
    1313
    14 ;no -disable-interrupts
    15 (define *csc-options* "-inline-global \
     14;no -disable-interrupts or -no-lambda-info
     15(define *csc-options* "-inline-global -local -inline \
    1616  -specialize -optimize-leaf-routines -clustering -lfa2 \
    17   -local -inline \
    18   -no-trace -no-lambda-info \
    19   -unsafe")
     17  -no-trace -unsafe")
    2018
    2119(define (test-name #!optional (eggnam EGG-NAME))
Note: See TracChangeset for help on using the changeset viewer.