From b208a104ece86d770fce09c2bcfc0a4feec27ef5 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 26 Jul 2012 12:50:20 -0600 Subject: [PATCH] COM test updates --- collects/tests/mysterx/tests.rkt | 3 ++- collects/tests/racket/com.rkt | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/tests/mysterx/tests.rkt b/collects/tests/mysterx/tests.rkt index fc40980613..2803331dd8 100644 --- a/collects/tests/mysterx/tests.rkt +++ b/collects/tests/mysterx/tests.rkt @@ -7,6 +7,7 @@ (define-syntax-rule (test expect expr) (let ([val expr] [ex expect]) + (printf "~s\n" 'expr) (unless (equal? ex val) (error 'test "~s failed: ~e" 'expr val)) (set! count (add1 count)))) @@ -71,7 +72,7 @@ (define doc (com-get-property ie "Document")) (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 "The Racket Documentation" (com-get-property ie "Document" "title")) (test '(-> string) (com-get-property-type doc "title")) diff --git a/collects/tests/racket/com.rkt b/collects/tests/racket/com.rkt index afa8529b63..9aa04d8578 100644 --- a/collects/tests/racket/com.rkt +++ b/collects/tests/racket/com.rkt @@ -7,6 +7,7 @@ (define-syntax-rule (test expect expr) (let ([val expr] [ex expect]) + (printf "~s\n" 'expr) (unless (equal? ex val) (error 'test "~s failed: ~e" 'expr val)) (set! count (add1 count)))) @@ -126,7 +127,7 @@ (define doc (com-get-property ie "Document")) (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 "The Racket Documentation" (com-get-property ie "Document" "title")) (test '(-> () string) (com-get-property-type doc "title"))