[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#30094: test script
From: |
Matt Wette |
Subject: |
bug#30094: test script |
Date: |
Tue, 4 Sep 2018 18:35:21 -0700 |
User-agent: |
Mozilla/5.0 (X11; Linux x86_64; rv:52.0) Gecko/20100101 Thunderbird/52.9.1 |
The following test script works with the 2.2.4 patch provided.
elisp tests don't work well but I think that is elisp issue.
This stuff works with my own developed.
;;; load-lang.test - -*- scheme -*-
(define-module (test-suite test-load-lang)
#:use-module (test-suite lib))
(define tmp-dir (getcwd))
(define (data-file-name filename)
(in-vicinity tmp-dir filename))
(with-test-prefix "load/lang"
(pass-if "using #lang"
(let ((src-file (data-file-name "load1js")))
(with-output-to-file src-file
(lambda ()
(display "#lang ecmascript\n")
(display "function js_1pl(b) { return 1 + b; }\n")))
(load src-file)
(delete-file src-file)
(= (js_1pl 2) 3)))
(pass-if "using dot-js"
(let ((src-file (data-file-name "load2.js")))
(with-output-to-file src-file
(lambda ()
(display "function js_2pl(b) { return 2 + b; }\n")))
(load src-file)
(delete-file src-file)
(= (js_2pl 2) 4)))
)
;; --- last line ---
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- bug#30094: test script,
Matt Wette <=