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

Rackety, deleted some unnecessary comments

Browse Source
This commit is contained in:
Matthias Felleisen 2014-07-23 11:29:56 -04:00
parent d321c4e117
commit 25f1137f66
3 changed files with 11 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
pkgs/htdp-pkgs/htdp-test/htdp/tests/convert.rkt
View File

@ -35,13 +35,17 @@
(convert-file IN f2c OUT) (convert-file IN f2c OUT)
(with-input-from-file OUT check-convert-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: ;; convert by repl:

23
pkgs/htdp-pkgs/htdp-test/htdp/tests/hangman1.rkt
View File

@ -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. ;; 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 ()))) #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) (require htdp/hangman)
@ -33,10 +33,7 @@
#| ------------------------------------------------------------------------- ;; TESTS:
TESTS:
|#
(eq? (reveal1 'a 'a 'x) 'a) (eq? (reveal1 'a 'a 'x) 'a)
(eq? (reveal1 'x '_ 'x) 'x) (eq? (reveal1 'x '_ 'x) 'x)
(eq? (reveal1 'x '_ 'y) '_) (eq? (reveal1 'x '_ 'y) '_)
@ -45,19 +42,3 @@
(make-word 'd '_ '_)) (make-word 'd '_ '_))
(equal? (reveal (make-word 'd 'e 'r) (make-word '_ '_ '_) 'f) (equal? (reveal (make-word 'd 'e 'r) (make-word '_ '_ '_) 'f)
(make-word '_ '_ '_)) (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")

4
pkgs/htdp-pkgs/htdp-test/htdp/tests/master.rkt
View File

@ -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. ;; 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 ()))) #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) (require htdp/master)
@ -24,5 +24,3 @@
(eq? (check-guess 'white 'blue 'red 'green) 'nothing_correct) (eq? (check-guess 'white 'blue 'red 'green) 'nothing_correct)
(check-expect (master check-guess) true) (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) ...)