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

fix HtDP language tests

Browse Source
This commit is contained in:
Matthew Flatt 2013-07-21 13:08:09 -06:00
parent 0130f1a907
commit 25c5f5e839
6 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/htdp-pkgs/htdp-test/tests/htdp-lang/advanced.rktl
View File

@ -2,7 +2,7 @@
;; Basic checks for the advanced language. See also ;; Basic checks for the advanced language. See also
;; beginner.rkt ;; beginner.rkt
(load-relative "../racket/loadtest.rktl") (load-relative (collection-file-path "loadtest.rktl" "tests/racket"))
;; Don't need these: ;; Don't need these:
(define no-extra-if-tests? #t) (define no-extra-if-tests? #t)

2
pkgs/htdp-pkgs/htdp-test/tests/htdp-lang/beginner-abbr.rktl
View File

@ -10,7 +10,7 @@
;; Don't try to run other tests from the test suite after loading this ;; Don't try to run other tests from the test suite after loading this
;; one into a particular namespace. ;; one into a particular namespace.
(load-relative "../racket/loadtest.rktl") (load-relative (collection-file-path "loadtest.rktl" "tests/racket"))
;; Don't need these: ;; Don't need these:
(define no-extra-if-tests? #t) (define no-extra-if-tests? #t)

2
pkgs/htdp-pkgs/htdp-test/tests/htdp-lang/beginner.rktl
View File

@ -49,7 +49,7 @@
;; removes the last <n> added expressions ;; removes the last <n> added expressions
;; ;;
(load-relative "../racket/loadtest.rktl") (load-relative (collection-file-path "loadtest.rktl" "tests/racket"))
;; Check that expansion doesn't introduce non-equal ids that ;; Check that expansion doesn't introduce non-equal ids that
;; claim to be "original" at the same place ;; claim to be "original" at the same place

2
pkgs/htdp-pkgs/htdp-test/tests/htdp-lang/htdp-test.rktl
View File

@ -71,7 +71,7 @@
(let ([locs ((exn:srclocs-accessor x) x)]) (let ([locs ((exn:srclocs-accessor x) x)])
(and (not (empty? locs)) (and (not (empty? locs))
(andmap (lambda (s) (and (srcloc-source s) (andmap (lambda (s) (and (srcloc-source s)
(regexp-match #rx"collects[/\\]tests" (srcloc-source s)) (regexp-match #rx"htdp-test[/\\]tests" (srcloc-source s))
(srcloc-position s) (srcloc-span s))) (srcloc-position s) (srcloc-span s)))
locs))))))])) locs))))))]))

2
pkgs/htdp-pkgs/htdp-test/tests/htdp-lang/intermediate-lambda.rktl
View File

@ -2,7 +2,7 @@
;; Basic checks for the intermediate language. See also ;; Basic checks for the intermediate language. See also
;; beginner.rktl ;; beginner.rktl
(load-relative "../racket/loadtest.rktl") (load-relative (collection-file-path "loadtest.rktl" "tests/racket"))
;; Don't need these: ;; Don't need these:
(define no-extra-if-tests? #t) (define no-extra-if-tests? #t)

2
pkgs/htdp-pkgs/htdp-test/tests/htdp-lang/intermediate.rktl
View File

@ -2,7 +2,7 @@
;; Basic checks for the intermediate language. See also ;; Basic checks for the intermediate language. See also
;; beginner.rktl ;; beginner.rktl
(load-relative "../racket/loadtest.rktl") (load-relative (collection-file-path "loadtest.rktl" "tests/racket"))
;; Don't need these: ;; Don't need these:
(define no-extra-if-tests? #t) (define no-extra-if-tests? #t)