From 25f1137f66ea10c1c57709f51118dd8394995105 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Wed, 23 Jul 2014 11:29:56 -0400 Subject: [PATCH] Rackety, deleted some unnecessary comments --- .../htdp-test/htdp/tests/convert.rkt | 12 ++++++---- .../htdp-test/htdp/tests/hangman1.rkt | 23 ++----------------- .../htdp-pkgs/htdp-test/htdp/tests/master.rkt | 4 +--- 3 files changed, 11 insertions(+), 28 deletions(-) diff --git a/pkgs/htdp-pkgs/htdp-test/htdp/tests/convert.rkt b/pkgs/htdp-pkgs/htdp-test/htdp/tests/convert.rkt index 7786e98025..dcc0aa8ef1 100644 --- a/pkgs/htdp-pkgs/htdp-test/htdp/tests/convert.rkt +++ b/pkgs/htdp-pkgs/htdp-test/htdp/tests/convert.rkt @@ -35,13 +35,17 @@ (convert-file IN f2c OUT) (with-input-from-file OUT check-convert-out) -(check-error (convert-file IN list OUT) "convert: The conversion function must produce a number; but it produced '(212)") +(check-error (convert-file IN list OUT) + "convert: The conversion function must produce a number; but it produced '(212)") -(check-error (convert-file IN first OUT) "first: expects non-empty list; given 212") +(check-error (convert-file IN first OUT) + "first: expects non-empty list; given 212") -(check-error (convert-file IN fx OUT) "convert: The conversion function must produce a number; but it produced 'xyz") +(check-error (convert-file IN fx OUT) + "convert: The conversion function must produce a number; but it produced 'xyz") -(check-error (convert-file IN f2c 10) "convert-file: expects a string as third argument, given 10") +(check-error (convert-file IN f2c 10) + "convert-file: expects a string as third argument, given 10") ;; ---------------------------------------------------------------------------- ;; convert by repl: diff --git a/pkgs/htdp-pkgs/htdp-test/htdp/tests/hangman1.rkt b/pkgs/htdp-pkgs/htdp-test/htdp/tests/hangman1.rkt index 7546fc23de..10a0a9278b 100644 --- a/pkgs/htdp-pkgs/htdp-test/htdp/tests/hangman1.rkt +++ b/pkgs/htdp-pkgs/htdp-test/htdp/tests/hangman1.rkt @@ -1,4 +1,4 @@ -;; The first three lines of this file were inserted by DrScheme. They record metadata +;; The first three lines of this file were inserted by DrRacket. They record metadata ;; about the language level of this file in a form that our tools can easily process. #reader(lib "htdp-beginner-reader.ss" "lang")((modname hangman1) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ()))) (require htdp/hangman) @@ -33,10 +33,7 @@ -#| ------------------------------------------------------------------------- - TESTS: -|# - +;; TESTS: (eq? (reveal1 'a 'a 'x) 'a) (eq? (reveal1 'x '_ 'x) 'x) (eq? (reveal1 'x '_ 'y) '_) @@ -45,19 +42,3 @@ (make-word 'd '_ '_)) (equal? (reveal (make-word 'd 'e 'r) (make-word '_ '_ '_) 'f) (make-word '_ '_ '_)) - -;; check errors -#; -(check-error (hangman make-word) "hangman: primitive operator requires 3 arguments") - -#; -(check-error (hangman (make-word 'a 'b 'c) reveal draw-next-part) - "hangman: primitive operator hangman expects a defined procedure name (usually `make-word') in this position") - -#; -(check-error (hangman make-word (reveal (make-word 'd 'e 'r) (make-word '_ '_ '_) 'd) draw-next-part) - "hangman: primitive operator hangman expects a defined procedure name (usually `reveal') in this position") - -#; -(check-error (hangman make-word reveal 100) - "hangman: primitive operator hangman expects a defined procedure name (usually `draw-next') in this position") diff --git a/pkgs/htdp-pkgs/htdp-test/htdp/tests/master.rkt b/pkgs/htdp-pkgs/htdp-test/htdp/tests/master.rkt index d8cb871a2a..ca18733c04 100644 --- a/pkgs/htdp-pkgs/htdp-test/htdp/tests/master.rkt +++ b/pkgs/htdp-pkgs/htdp-test/htdp/tests/master.rkt @@ -1,4 +1,4 @@ -;; The first three lines of this file were inserted by DrScheme. They record metadata +;; The first three lines of this file were inserted by DrRacket. They record metadata ;; about the language level of this file in a form that our tools can easily process. #reader(lib "htdp-beginner-reader.ss" "lang")((modname master) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ()))) (require htdp/master) @@ -24,5 +24,3 @@ (eq? (check-guess 'white 'blue 'red 'green) 'nothing_correct) (check-expect (master check-guess) true) -; (check-error (master 1) "master: primitive operator master expects a defined procedure name (usually `compare-guess') in this position") -; (check-error (master first) ...)