Changeset 38750 in project


Ignore:
Timestamp:
06/16/20 15:01:12 (4 weeks ago)
Author:
felix winkelmann
Message:

Omit C4-only module check, add cond-expand tests

(Patch provided by wasamasa)

Dropped some unnecessary compile-time conditionals.

Location:
release/5/r7rs
Files:
4 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/5/r7rs/tags/1.0.2/r7rs-compile-time.scm

    r35586 r38750  
    1212         (sname2 (symbol->string name2)))
    1313    (or (##sys#find-module name2 #f)
    14         (memq name2 ##sys#core-library-modules)
    15         (memq name2 ##sys#core-syntax-modules)
    1614        (file-exists? (string-append sname2 ".import.so"))
    1715        (file-exists? (string-append sname2 ".import.scm")))))
  • release/5/r7rs/tags/1.0.2/tests/run.scm

    r35586 r38750  
    5353           (lambda () (include-ci "include-ci.scm"))))))
    5454
    55 #+full-numeric-tower
     55(test-group "4.2.1: Conditionals"
     56  (test-group "cond-expand"
     57    (test "(scheme base)"
     58          'scheme-base
     59          (cond-expand
     60           ((library (scheme base)) 'scheme-base)
     61           (else #f)))
     62    (test "(chicken base)"
     63          'chicken-base
     64          (cond-expand
     65           ((library (chicken base)) 'chicken-base)
     66           (else #f)))
     67    (test "chicken.base"
     68          'chicken.base
     69          (cond-expand
     70           ((library chicken.base) 'chicken.base)
     71           (else #f)))
     72    (test "(r7rs)"
     73          'r7rs
     74          (cond-expand
     75           ((library (r7rs)) 'r7rs)
     76           (else #f)))
     77    (test "r7rs"
     78          'r7rs
     79          (cond-expand
     80           ((library r7rs) 'r7rs)
     81           (else #f)))
     82    (test "(srfi 1)"
     83          'srfi-1
     84          (let ()
     85            (import (srfi 1))
     86            (cond-expand
     87             ((library (srfi 1)) 'srfi-1)
     88             (else #f))))
     89    (test "srfi-1"
     90          'srfi-1
     91          (let ()
     92            (import srfi-1)
     93            (cond-expand
     94             ((library srfi-1) 'srfi-1)
     95             (else #f))))
     96    (test "(bogus identifier)"
     97          #f
     98          (cond-expand
     99           ((library (bogus identifier)) 'bogus-identifier)
     100           (else #f)))))
     101
    56102(test-group "6.2.6: numerical operations"
    57103  (test-group "floor/...truncate-remainder"
  • release/5/r7rs/trunk/r7rs-compile-time.scm

    r35586 r38750  
    1212         (sname2 (symbol->string name2)))
    1313    (or (##sys#find-module name2 #f)
    14         (memq name2 ##sys#core-library-modules)
    15         (memq name2 ##sys#core-syntax-modules)
    1614        (file-exists? (string-append sname2 ".import.so"))
    1715        (file-exists? (string-append sname2 ".import.scm")))))
  • release/5/r7rs/trunk/tests/run.scm

    r35586 r38750  
    5353           (lambda () (include-ci "include-ci.scm"))))))
    5454
    55 #+full-numeric-tower
     55(test-group "4.2.1: Conditionals"
     56  (test-group "cond-expand"
     57    (test "(scheme base)"
     58          'scheme-base
     59          (cond-expand
     60           ((library (scheme base)) 'scheme-base)
     61           (else #f)))
     62    (test "(chicken base)"
     63          'chicken-base
     64          (cond-expand
     65           ((library (chicken base)) 'chicken-base)
     66           (else #f)))
     67    (test "chicken.base"
     68          'chicken.base
     69          (cond-expand
     70           ((library chicken.base) 'chicken.base)
     71           (else #f)))
     72    (test "(r7rs)"
     73          'r7rs
     74          (cond-expand
     75           ((library (r7rs)) 'r7rs)
     76           (else #f)))
     77    (test "r7rs"
     78          'r7rs
     79          (cond-expand
     80           ((library r7rs) 'r7rs)
     81           (else #f)))
     82    (test "(srfi 1)"
     83          'srfi-1
     84          (let ()
     85            (import (srfi 1))
     86            (cond-expand
     87             ((library (srfi 1)) 'srfi-1)
     88             (else #f))))
     89    (test "srfi-1"
     90          'srfi-1
     91          (let ()
     92            (import srfi-1)
     93            (cond-expand
     94             ((library srfi-1) 'srfi-1)
     95             (else #f))))
     96    (test "(bogus identifier)"
     97          #f
     98          (cond-expand
     99           ((library (bogus identifier)) 'bogus-identifier)
     100           (else #f)))))
     101
    56102(test-group "6.2.6: numerical operations"
    57103  (test-group "floor/...truncate-remainder"
Note: See TracChangeset for help on using the changeset viewer.