Ignore:
Timestamp:
04/03/20 22:43:34 (18 months ago)
Author:
Kon Lovett
Message:

*-test runner, style, remove primitive-inlines, separate srfi-111 module, added make-box-mutable & make-box-immutable, no strict-types since has box "generic"

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/box/trunk/tests/box-test.scm

    r38529 r38539  
    66(test-begin "Box")
    77
     8;;;
     9
    810(import box)
    9 
    10 ;;;
     11(import (chicken base))
     12(import (only (chicken port) with-output-to-string))
    1113
    1214;;
     
    1517        (let ((tbox (make-box (void))))
    1618    (test-assert (box? tbox))
     19    (test "#&#<unspecified>" (with-output-to-string (cut display tbox)))
    1720    (box-set! tbox #t)
    1821    (test-assert (box-ref tbox))
     
    2326        (let ((tbox (make-box #f #t)))
    2427    (test-assert (box? tbox))
     28    (test "#&#f" (with-output-to-string (cut display tbox)))
    2529    (test-assert (not (box-ref tbox)))
    2630    (test-error (box-set! tbox #t)) )
     
    5660
    5761(import (only (chicken platform) features))
     62(import (srfi 111))
    5863
    5964(test-group "Feature"
     
    7782)
    7883
    79 (test-group "Immutable-Box"
     84(test-group "Immutable Box"
    8085        (let ((tbox (immutable-box #f)))
    8186    (test-assert (box? tbox))
Note: See TracChangeset for help on using the changeset viewer.