Changeset 3583 in project


Ignore:
Timestamp:
03/25/07 21:09:46 (13 years ago)
Author:
Kon Lovett
Message:

Update for new testbase.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • pty/pty-test.scm

    r2760 r3583  
    55(use utils miscmacros)
    66
    7 (define-for-syntax test-with-timer #f)
    8 (define-for-syntax test-with-filter #f)
    9 #;(define-for-syntax test-with-catching #f)
    10 (define-for-syntax test-with-selecting #f)
    11 (define-for-syntax test-with-limiting #f)
     7(define-for-syntax test::timing #f)
     8(define-for-syntax test::filtering #f)
     9(define-for-syntax test::selecting #f)
     10(define-for-syntax test::limiting #f)
    1211
    1312#;(define (kill-it! pid)
    1413  (process-signal pid)
    1514  (process-wait pid #t) )
     15 
     16#;(char-name 'eot (integer->char 4))
    1617
    17 (define-test pty-error-test "Pty procedure error" ()
     18(define-test pty-error-test "Pty procedure error"
    1819  (expect-exception "Invalid Procedure"
    1920    (property exn
     
    2930;Repeat runs have caused process pend on MacOS 10.4
    3031;Must be using 'bc' wrong
    31 #;(define-test pty-bc-test "Pty using 'bc'" ()
     32#;(define-test pty-bc-test "Pty using 'bc'"
    3233  (expect-eqv "PI"
    3334    3.1415926532
     
    4950)
    5051
    51 (define-test pty-units-test "Pty using 'units'" ()
     52(define-test pty-units-test "Pty using 'units'"
    5253  (expect-equal "Meters/Feet"
    5354    '("meters" "feet" "\t* 3.2808399" "\t/ 0.3048")
     
    6667)
    6768
    68 (for-each (cut test-styler-set! <> output-style-human) (test-procedures))
    69 (test-run "Pty Test")
     69(test::for-each (cut test::styler-set! <> test::output-style-human))
     70(run-test "Pty Test")
Note: See TracChangeset for help on using the changeset viewer.