27 lines
647 B
Scheme
27 lines
647 B
Scheme
(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)
|