mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

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.

Browse source
This commit is contained in:
Matt Wette 2023-02-22 05:38:31 -08:00 • committed by Arne Babenhauserheide
parent a12ca2b999
commit a5eef0e784
1 changed files with 22 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

23
test-suite/tests/load-lang.test
View file

@ -1,6 +1,27 @@
;;;; load-lang.test - test loading extension languages -*- scheme -*- ;;;; 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) (define-module (test-suite test-load-lang)
#:use-module (test-suite lib) #:use-module (test-suite lib)
@ -23,7 +44,7 @@
;;(delete-file src-file) ;;(delete-file src-file)
(= (js_1pl 2) 3))) (= (js_1pl 2) 3)))
#;(pass-if "using dot-js" (pass-if "using dot-js"
(let ((src-file (data-file-name "load2.js"))) (let ((src-file (data-file-name "load2.js")))
(with-output-to-file src-file (with-output-to-file src-file
(lambda () (lambda ()