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

What are tests for anyway?

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/2htdp/utest/sam.rkt
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. ;; 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 ()))) #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" (require "shared.rkt")
2htdp/universe) (require 2htdp/universe)
(launch-many-worlds (make-player 200 "sam") (make-player 100 "carl")) (launch-many-worlds (make-player 200 "sam") (make-player 100 "carl"))

4
collects/tests/racket/stx.rktl
View File

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