Changeset 29433 in project


Ignore:
Timestamp:
07/28/13 21:04:07 (8 years ago)
Author:
sjamaan
Message:

Copy the examples for "not" as tests, for completeness

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/r7rs/trunk/tests/run.scm

    r29432 r29433  
    1212
    1313(test-group "6.3: booleans"
     14  ;; How silly...
     15  (test-group "not"
     16    (test #f (not #t))
     17    (test #f (not 3))
     18    (test #f (not (list 3)))
     19    (test #t (not #f))
     20    (test #f (not '()))
     21    (test #f (not (list)))
     22    (test #f (not 'nil))
     23    (test-error (not))
     24    (test-error (not 1 2)))
     25 
    1426  (test-group "long boolean literals"
    1527    (test #t (read-from-string "#t"))
Note: See TracChangeset for help on using the changeset viewer.