What are tests for anyway?
This commit is contained in:
parent
439bbc6d8f
commit
7a602b8864
|
@ -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"))
|
||||
|
|
|
@ -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)))
|
||||
|
|
Loading…
Reference in New Issue
Block a user