Subject: test script

From: Matt Wette <[email-masked]>
Date: Tue, 4 Sep 2018 18:35:21 -0700

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