diff --git a/tests/more-tests/hello.expected b/tests/more-tests/hello.expected index 3b18e51..135e204 100644 --- a/tests/more-tests/hello.expected +++ b/tests/more-tests/hello.expected @@ -1 +1,3 @@ hello world +hello again +helloworld diff --git a/tests/more-tests/hello.rkt b/tests/more-tests/hello.rkt index b84ace1..689622c 100644 --- a/tests/more-tests/hello.rkt +++ b/tests/more-tests/hello.rkt @@ -1,2 +1,8 @@ #lang planet dyoo/whalesong (displayln "hello world") + + +(displayln (format "hello ~a" "again")) + +(printf "hello") +(printf "world\n") \ No newline at end of file diff --git a/tests/more-tests/run-more-tests.rkt b/tests/more-tests/run-more-tests.rkt index b8a92d5..95d2da9 100644 --- a/tests/more-tests/run-more-tests.rkt +++ b/tests/more-tests/run-more-tests.rkt @@ -3,4 +3,4 @@ (require "../browser-harness.rkt") (test "hello.rkt" "hello.expected") -#;(test "simple-structs.rkt" "simple-structs.expected") \ No newline at end of file +(test "simple-structs.rkt" "simple-structs.expected") \ No newline at end of file diff --git a/tests/more-tests/simple-structs.rkt b/tests/more-tests/simple-structs.rkt index 8339294..8b6a0f1 100644 --- a/tests/more-tests/simple-structs.rkt +++ b/tests/more-tests/simple-structs.rkt @@ -3,19 +3,14 @@ (define-struct p (f r)) -"1" struct:p -"2" make-p -"3" p-f -"4" p-r -"5" p? -"6" -#;(define p1 (make-p 3 4)) -#;(p-f p1) -#;(p-r p1) + +(define p1 (make-p 3 4)) +(p-f p1) +(p-r p1)