Changeset 10034 in project


Ignore:
Timestamp:
03/22/08 03:08:02 (11 years ago)
Author:
kon
Message:

Updated test

Location:
release/3/box
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/3/box/tags/1.9/tests/box-test.scm

    r5789 r10034  
    11;;;; box-test.scm
    22
    3 (use testbase testbase-output-compact)
     3(use testbase testbase-output-human)
    44(use box)
    55
     
    2626      [tbox #f] )
    2727   
    28     (expect-set! tbox (make-box-immutable #f))
     28    (expect-set! tbox (make-box #f #:immutable? #t))
     29    (expect-false (box-ref tbox))
    2930    (expect-failure (box-set! tbox #t))
    3031 )
     
    6364   
    6465    (expect-set! tbox (box-immutable #f))
     66    (expect-false (box-ref tbox))
    6567    (expect-failure (set-box! tbox #t))
    6668 )
     
    8183)
    8284
    83 (test::for-each (cut test::styler-set! <> test::output-style-compact))
     85(test::for-each (cut test::styler-set! <> test::output-style-human))
    8486(run-test "Box Tests")
  • release/3/box/trunk/tests/box-test.scm

    r5789 r10034  
    11;;;; box-test.scm
    22
    3 (use testbase testbase-output-compact)
     3(use testbase testbase-output-human)
    44(use box)
    55
     
    2626      [tbox #f] )
    2727   
    28     (expect-set! tbox (make-box-immutable #f))
     28    (expect-set! tbox (make-box #f #:immutable? #t))
     29    (expect-false (box-ref tbox))
    2930    (expect-failure (box-set! tbox #t))
    3031 )
     
    6364   
    6465    (expect-set! tbox (box-immutable #f))
     66    (expect-false (box-ref tbox))
    6567    (expect-failure (set-box! tbox #t))
    6668 )
     
    8183)
    8284
    83 (test::for-each (cut test::styler-set! <> test::output-style-compact))
     85(test::for-each (cut test::styler-set! <> test::output-style-human))
    8486(run-test "Box Tests")
Note: See TracChangeset for help on using the changeset viewer.