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

fix some tests

Browse Source
This commit is contained in:
Matthew Flatt 2013-07-21 19:55:10 -06:00
parent 8c239a6370
commit 1708fb43b4
5 changed files with 19 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkgs/compiler-lib/compiler/commands/pack.rkt
View File

@ -71,10 +71,7 @@
#f
'("collects" "doc" "include" "lib"))
#:requires
;; Get current version of mzscheme for require:
(let* ([i (get-info '("mzscheme"))]
[v (and i (i 'version (lambda () #f)))])
(list (list '("mzscheme") v))))
null)
(when (verbose)
(printf " [output to \"~a\"]\n" plt-output)))
;; Collection

4
pkgs/datalog/tests/racket.rkt
View File

@ -74,7 +74,7 @@
(hasheq 'A 'joseph3 'B 'lucy)
(hasheq 'A 'joseph3 'B 'joseph1))))
(local [(local-require tests/datalog/examples/ancestor)]
(local [(local-require datalog/tests/examples/ancestor)]
(datalog theory
(? (ancestor A B))))
=>
@ -85,7 +85,7 @@
(hasheq 'A 'ebbon 'B 'john)
(hasheq 'A 'ebbon 'B 'douglas))
(local [(local-require tests/datalog/paren-examples/ancestor)]
(local [(local-require datalog/tests/paren-examples/ancestor)]
(datalog theory
(? (ancestor A B))))
=>

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

@ -1,6 +1,6 @@
;; Load this one with GRacket
(load-relative "../racket/loadtest.rktl")
(load-relative (collection-file-path "loadtest.rktl" "tests/racket"))
(require racket/gui/base
teachpack/htdp/image
htdp/error

12
pkgs/plt-services/meta/props
View File

@ -666,6 +666,18 @@ path/s is either such a string or a list of them.
"pkgs/deinprogramm/run-dmda-code.rkt" drdr:command-line (mzc *)
"pkgs/distributed-places-pkgs/distributed-places-doc/scribblings/distributed-places" responsible (tewk)
"pkgs/distributed-places-pkgs/distributed-places-lib/racket/place/distributed/examples/hello-world.rkt" drdr:command-line #f
"pkgs/distro-build" responsible (mflatt)
"pkgs/distro-build/add-catalog.rkt" drdr:command-line (mzc *)
"pkgs/distro-build/assemble-site.rkt" drdr:command-line (mzc *)
"pkgs/distro-build/catalog-local.rkt" drdr:command-line (mzc *)
"pkgs/distro-build/drive-clients.rkt" drdr:command-line (mzc *)
"pkgs/distro-build/install-for-docs.rkt" drdr:command-line (mzc *)
"pkgs/distro-build/install-pkgs.rkt" drdr:command-line (mzc *)
"pkgs/distro-build/installer.rkt" drdr:command-line (mzc *)
"pkgs/distro-build/manage-snapshots.rkt" drdr:command-line (mzc *)
"pkgs/distro-build/pack-native.rkt" drdr:command-line (mzc *)
"pkgs/distro-build/set-config.rkt" drdr:command-line (mzc *)
"pkgs/distro-build/unpack-collects.rkt" drdr:command-line (mzc *)
"pkgs/drracket-pkgs/drracket/browser" responsible (robby)
"pkgs/drracket-pkgs/drracket/drracket" responsible (robby)
"pkgs/drracket-pkgs/drracket/drracket/drracket.rkt" drdr:command-line (mzc *)

6
pkgs/racket-pkgs/racket-test/tests/racket/benchmarks/mz/expand-class.rktl
View File

@ -1,7 +1,7 @@
(let ([dir (build-path (collection-path "racket")
"private")])
(with-input-from-file (build-path dir "class-internal.rkt")
(let ([path (collection-file-path "class-internal.rkt" "racket/private")])
(define-values (dir name dir?) (split-path path))
(with-input-from-file path
(lambda ()
(parameterize ([current-load-relative-directory dir]
[read-accept-reader #t])