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

Removed misbehaving planet test.

Browse Source 
svn: r12196
This commit is contained in:
Eli Barzilay 2008-10-31 14:56:46 +00:00
parent 05fbd0ffd3
commit a6e8df0dda
5 changed files with 0 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/tests/mzscheme/all.ss
View File

@ -4,7 +4,6 @@
(load-relative "scheme-tests.ss")
(load-relative "mzlib-tests.ss")
(load-relative "syntax-tests.ss")
(load-relative "planet.ss")
(load-in-sandbox "version.ss")
(load-in-sandbox "net.ss")
(load-in-sandbox "foreign-test.ss")

3
collects/tests/mzscheme/planet-stuff/dummy-module.ss
View File

@ -1,3 +0,0 @@
#lang planet plt/dummy-package
1 + 2 * (3 + 4)

2
collects/tests/mzscheme/planet-stuff/dummy-package/lang/reader.ss
View File

@ -1,2 +0,0 @@
(module reader syntax/module-reader
#:language '(planet plt/dummy-package))

36
collects/tests/mzscheme/planet-stuff/dummy-package/main.ss
View File

@ -1,36 +0,0 @@
#lang scheme
(define-syntax (module-begin stx)
(syntax-case stx ()
[(_ term ...)
(syntax/loc stx
(#%module-begin
(define result (compute '(term ...)))
(provide result)))]))
(define compute
(match-lambda
[(? rational? const) const]
[(list add ...) (compute-additive add)]))
(define compute-additive
(match-lambda
[(list pre ... '+ post ...)
(+ (compute-additive pre)
(compute-additive post))]
[(list pre ... '- post ...)
(- (compute-additive pre)
(compute-additive post))]
[(list mul ...) (compute-multiplicative mul)]))
(define compute-multiplicative
(match-lambda
[(list pre ... '* post ...)
(* (compute-multiplicative pre)
(compute-multiplicative post))]
[(list pre ... '/ post ...)
(/ (compute-multiplicative pre)
(compute-multiplicative post))]
[(list term) (compute term)]))
(provide (rename-out [module-begin #%module-begin]))

14
collects/tests/mzscheme/planet.ss
View File

@ -1,14 +0,0 @@
(load-relative "loadtest.ss")
(Section 'planet)
(require planet/util)
;; Testing: #lang planet
(add-hard-link "plt" "dummy-package.plt" 1 0
(string->path "planet-stuff/dummy-package"))
(test 15 "#lang planet"
(dynamic-require "planet-stuff/dummy-module.ss" 'result))
(remove-hard-link "plt" "dummy-package.plt" 1 0)
(report-errs)