diff options
author | Matt Wette <mwette@alumni.caltech.edu> | 2023-02-22 05:38:31 -0800 |
---|---|---|
committer | Arne Babenhauserheide <arne_bab@web.de> | 2023-02-23 21:42:05 +0100 |
commit | a5eef0e7843d2ee9decd5124008989f91e07e8cd (patch) | |
tree | 9aa0cbde534bfd3d83a46c5bd092ba5ad47423a1 | |
parent | a12ca2b999fa746334c626603990475a08937cdc (diff) | |
download | guile-a5eef0e7843d2ee9decd5124008989f91e07e8cd.tar.gz |
Added comments in load-lang.test, which does not work. * test-suite/tests/load-lang.tests: added comments: The test is not working but execution repl does work.wip-load-lang
-rw-r--r-- | test-suite/tests/load-lang.test | 23 |
1 files changed, 22 insertions, 1 deletions
diff --git a/test-suite/tests/load-lang.test b/test-suite/tests/load-lang.test index 067a39ab0..9f1c8e592 100644 --- a/test-suite/tests/load-lang.test +++ b/test-suite/tests/load-lang.test @@ -1,6 +1,27 @@ ;;;; load-lang.test - test loading extension languages -*- scheme -*- ;;;; +;; these always fail for some reason: +;; +;; $ ./check-guile load-lang.test +;; ... +;; ERROR: load-lang.test: load-lang: using #lang - arguments: +;; ((read-error #f "/home/mwette/repo/sv/build/guile/load1js:1:3: +;; Unknown # object: ~S" ("#l") #f)) +;; ... +;; ERROR: load-lang.test: load-lang: using dot-js - arguments: +;; ((unbound-variable #f "Unbound variable: ~S" (function) #f)) +;; +;; but works this way +;; $ meta/guile +;; ... +;; scheme@(guile-user)> (load "load1js") +;; scheme@(guile-user)> (js_1pl 1) +;; $1 = 2 +;; scheme@(guile-user)> (load "load2.js") +;; ... +;; scheme@(guile-user)> (js_2pl 2) +;; $2 = 4 (define-module (test-suite test-load-lang) #:use-module (test-suite lib) @@ -23,7 +44,7 @@ ;;(delete-file src-file) (= (js_1pl 2) 3))) - #;(pass-if "using dot-js" + (pass-if "using dot-js" (let ((src-file (data-file-name "load2.js"))) (with-output-to-file src-file (lambda () |