[Guile-commits] 02/02: 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.

[Arne Babenhauserheide]

arnebab pushed a commit to branch wip-load-lang
in repository guile.

commit a5eef0e7843d2ee9decd5124008989f91e07e8cd
Author: Matt Wette <mwette@alumni.caltech.edu>
AuthorDate: Wed Feb 22 05:38:31 2023 -0800

    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.
---
 test-suite/tests/load-lang.test | 23 ++++++++++++++++++++++-
 1 file changed, 22 insertions(+), 1 deletion(-)

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 ()