What are tests for anyway?

This commit is contained in:
Jay McCarthy 2011-07-02 14:47:54 -07:00
parent 439bbc6d8f
commit 7a602b8864
2 changed files with 5 additions and 5 deletions

View File

@ -1,7 +1,7 @@
;; 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-intermediate-lambda-reader.ss" "lang")((modname sam) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ())))
(require "shared.rkt"
2htdp/universe)
(require "shared.rkt")
(require 2htdp/universe)
(launch-many-worlds (make-player 200 "sam") (make-player 100 "carl"))

View File

@ -497,7 +497,7 @@
s)]))])
(let-values ([(real real-base) (module-path-index-split (car b))]
[(nominal nominal-base) (module-path-index-split (caddr b))])
(test '"teachprims.ss" values real)
(test '"teachprims.rkt" values real)
(test 'beginner-cons cadr b)
(test '(lib "lang/htdp-intermediate.rkt") values nominal)
(test 'cons cadddr b)))
@ -511,7 +511,7 @@
s)]))])
(let-values ([(real real-base) (module-path-index-split (car b))]
[(nominal nominal-base) (module-path-index-split (caddr b))])
(test '"teachprims.ss" values real)
(test '"teachprims.rkt" values real)
(test 'beginner-cons cadr b)
(test '(lib "lang/htdp-intermediate.rkt") values nominal)
(test 'cons cadddr b)))