Added new directory for planet tests; restored #lang planet test in lang.ss

svn: r12206
This commit is contained in:
Carl Eastlund 2008-10-31 20:09:43 +00:00
parent d1adec4bc6
commit 2949809542
4 changed files with 44 additions and 0 deletions

View File

@ -0,0 +1,5 @@
#lang planet plt/dummy-package
successful
test
result

View File

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

View File

@ -0,0 +1,11 @@
#lang scheme
(define-syntax (module-begin stx)
(syntax-case stx ()
[(_ term ...)
(syntax/loc stx
(#%module-begin
(define result '(term ...))
(provide result)))]))
(provide (rename-out [module-begin #%module-begin]))

View File

@ -0,0 +1,26 @@
(load-relative "../mzscheme/loadtest.ss")
(Section 'planet)
(require planet/util
scheme/contract)
;; Testing: #lang planet
(test (void)
'add-hard-link
(with-handlers ([exn:fail? values])
(add-hard-link "plt" "dummy-package.plt" 1 0
(string->path "examples/dummy-package"))))
(test '(successful test result)
'hash-lang-planet
(with-handlers ([exn:fail? values])
(dynamic-require "examples/dummy-module.ss" 'result)))
(test (void)
'remove-hard-link
(with-handlers ([exn:fail? values])
(remove-hard-link "plt" "dummy-package.plt" 1 0)))
(report-errs)