Changeset 35059 in project


Ignore:
Timestamp:
01/23/18 18:00:31 (7 months ago)
Author:
kon
Message:

slightly better test

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/apropos/trunk/tests/apropos-test.scm

    r34868 r35059  
    7070  (apropos-list ''".+barvar[12]"))
    7171
     72;;
     73
    7274(define (apropos-information-list-test lst val)
    7375  (test "apropos-information-list" (sort lst cdar-symbol<?) (sort val cdar-symbol<?)) )
    7476
    75 #; ;not using interned symbols anymore
    7677(cond-expand
    7778  (compiling
     
    9091        ((|| . foobarvar2) . variable) )
    9192      (apropos-information-list 'foobar #:macros? #t #:qualified? #t))
    92     (apropos-information-list-test
    93       '(((|| . foobarprocx) procedure a b c)
     93    (test "apropos-information-list"
     94      '(((|| . foobarproc0) procedure)
     95        ((|| . foobarproc1) procedure a)
     96        ((|| . foobarproc2) procedure a b)
    9497        ((|| . foobarprocn) procedure a b . r)
    95         ((|| . foobarproc2) procedure a b)
    96         ((|| . foobarproc1) procedure a)
    97         ((|| . foobarproc0) procedure))
    98       (apropos-information-list 'foobarproc #:macros? #t #:qualified? #t)) ) )
     98        ((|| . foobarprocx) procedure a b c))
     99      (apropos-information-list 'foobarproc #:macros? #t #:qualified? #t #:sort #:module)) ) )
    99100
    100101#| ;UNSUPPORTED
Note: See TracChangeset for help on using the changeset viewer.