suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

COM test updates

Browse Source
This commit is contained in:
Matthew Flatt 2012-07-26 12:50:20 -06:00
parent 8ba976c035
commit b208a104ec
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/tests/mysterx/tests.rkt
View File

@ -7,6 +7,7 @@
(define-syntax-rule (test expect expr) (define-syntax-rule (test expect expr)
(let ([val expr] (let ([val expr]
[ex expect]) [ex expect])
(printf "~s\n" 'expr)
(unless (equal? ex val) (unless (equal? ex val)
(error 'test "~s failed: ~e" 'expr val)) (error 'test "~s failed: ~e" 'expr val))
(set! count (add1 count)))) (set! count (add1 count))))
@ -71,7 +72,7 @@
(define doc (com-get-property ie "Document")) (define doc (com-get-property ie "Document"))
(test #t (com-object? doc)) (test #t (com-object? doc))
(test "Racket" (com-get-property ie "Document" "title")) (test "The Racket Language" (com-get-property ie "Document" "title"))
(test (void) (com-set-property! ie "Document" "title" "The Racket Documentation")) (test (void) (com-set-property! ie "Document" "title" "The Racket Documentation"))
(test "The Racket Documentation" (com-get-property ie "Document" "title")) (test "The Racket Documentation" (com-get-property ie "Document" "title"))
(test '(-> string) (com-get-property-type doc "title")) (test '(-> string) (com-get-property-type doc "title"))

3
collects/tests/racket/com.rkt
View File

@ -7,6 +7,7 @@
(define-syntax-rule (test expect expr) (define-syntax-rule (test expect expr)
(let ([val expr] (let ([val expr]
[ex expect]) [ex expect])
(printf "~s\n" 'expr)
(unless (equal? ex val) (unless (equal? ex val)
(error 'test "~s failed: ~e" 'expr val)) (error 'test "~s failed: ~e" 'expr val))
(set! count (add1 count)))) (set! count (add1 count))))
@ -126,7 +127,7 @@
(define doc (com-get-property ie "Document")) (define doc (com-get-property ie "Document"))
(test #t (com-object? doc)) (test #t (com-object? doc))
(test "Racket" (com-get-property ie "Document" "title")) (test "The Racket Language" (com-get-property ie "Document" "title"))
(test (void) (com-set-property! ie "Document" "title" "The Racket Documentation")) (test (void) (com-set-property! ie "Document" "title" "The Racket Documentation"))
(test "The Racket Documentation" (com-get-property ie "Document" "title")) (test "The Racket Documentation" (com-get-property ie "Document" "title"))
(test '(-> () string) (com-get-property-type doc "title")) (test '(-> () string) (com-get-property-type doc "title"))