rename test-foreign-module.l to test-foreign.module_l, not to capture by test/*.l at test.sh

Author: k-okada

test/test-foreign.l

@@ -1,4 +1,4 @@
-(load "test-foreign-module.l")
+(eval-when (load eval) (load "test-foreign.module_l"))
 (require :unittest "lib/llib/unittest.l")
 
 (init-unit-test)
@@ -50,7 +50,7 @@ test-testd = 1.23456
   (assert (eps= 1.23456 ret))
 
   ;;
-  (setq f (piped-fork "eusg test-foreign-module.l '(progn (test-testd 100 101 102 103 104 105 1000.000000 1010.000000 1020.000000 1030.000000 1040.000000 1050.000000 1060.000000 1070.000000 2080.000000 2090.000000 206 207)(exit 0))'"))
+  (setq f (piped-fork (format nil "eusg ~A/test/test-foreign.module_l '(progn (test-testd 100 101 102 103 104 105 1000.000000 1010.000000 1020.000000 1030.000000 1040.000000 1050.000000 1060.000000 1070.000000 2080.000000 2090.000000 206 207)(exit 0))'" *eusdir*)))
   (assert (string= (read-line f) "100 101 102"))
   (assert (string= (read-line f) "103 104 105"))
   (assert (string= (read-line f) "1000.000000 1010.000000 1020.000000 1030.000000"))
@@ -74,7 +74,7 @@ test-testd = 1.23456
   (float3-test 0 0.1 0.2 0.3 0.4)
 
   ;;
-  (setq f (piped-fork "eusg test-foreign-module.l '(progn (float-test 0 0.1 0.2 0.3 0.4)(exit 0))'"))
+  (setq f (piped-fork (format nil "eusg ~A/test/test-foreign.module_l '(progn (float-test 0 0.1 0.2 0.3 0.4)(exit 0))'" *eusdir*)))
   (assert (eps= (read-from-string (subseq (read-line f) 2)) 0.1)) ;; skip first 2 character
   (assert (eps= (read-from-string (subseq (read-line f) 2)) 0.2))
   (assert (eps= (read-from-string (subseq (read-line f) 2)) 0.3))
@@ -96,12 +96,12 @@ test-testd = 1.23456
   (double3-test 1 0.1 0.2 0.3 0.4)
 
   ;;
-  (setq f (piped-fork "eusg test-foreign-module.l '(progn (double-test 1 0.1 0.2 0.3 0.4)(exit 0))'"))
+  (setq f (piped-fork (format nil "eusg ~A/test/test-foreign.module_l '(progn (double-test 1 0.1 0.2 0.3 0.4)(exit 0))'" *eusdir*)))
   (assert (eps= (read-from-string (subseq (read-line f) 2)) 0.1)) ;; skip first 2 character
   (assert (eps= (read-from-string (subseq (read-line f) 2)) 0.2))
   (assert (eps= (read-from-string (subseq (read-line f) 2)) 0.3))
   (assert (eps= (read-from-string (subseq (read-line f) 2)) 0.4))
-  (setq f (piped-fork "eusg test-foreign-module.l '(progn (double3-test 1 0.1 0.2 0.3 0.4)(exit 0))'"))
+  (setq f (piped-fork (format nil "eusg ~A/test/test-foreign.module_l '(progn (double3-test 1 0.1 0.2 0.3 0.4)(exit 0))'" *eusdir*)))
   (assert (eps= (read-from-string (subseq (read-line f) 2)) 0.1)) ;; skip first 2 character
   (assert (eps= (read-from-string (subseq (read-line f) 2)) 0.2))
   (assert (eps= (read-from-string (subseq (read-line f) 2)) 0.3))
@@ -128,7 +128,7 @@ test-testd = 1.23456
   (lv-test (length iv) iv)
 
   ;;
-  (setq f (piped-fork "eusg test-foreign-module.l '(progn (setq iv (integer-vector 0 100 10000 1000000 100000000 10000000000))(lv-test (length iv) iv)(exit 0))'"))
+  (setq f (piped-fork (format nil "eusg ~A/test/test-foreign.module_l '(progn (setq iv (integer-vector 0 100 10000 1000000 100000000 10000000000))(lv-test (length iv) iv)(exit 0))'" *eusdir*)))
   (assert (string= (read-line f) "size = 6"))
   (assert (string= (read-line f) "0: 0 0"))
   (assert (string= (read-line f) "1: 100 64"))
@@ -157,7 +157,7 @@ test-testd = 1.23456
   (dv-test (length fv) fv)
 
   ;;
-  (setq f (piped-fork "eusg test-foreign-module.l '(progn (setq fv (float-vector 0.1 0.2 0.3 0.5 0.7))(dv-test (length fv) fv)(exit 0))'"))
+  (setq f (piped-fork (format nil "eusg ~A/test/test-foreign.module_l '(progn (setq fv (float-vector 0.1 0.2 0.3 0.5 0.7))(dv-test (length fv) fv)(exit 0))'" *eusdir*)))
   (assert (string= (read-line f) "size = 5"))
   (assert (string= (read-line f) "0: 1.000000e-01 3FB9999999999998"))
   (assert (string= (read-line f) "1: 2.000000e-01 3FC9999999999998"))
@@ -174,7 +174,7 @@ test-testd = 1.23456
   (format t "~%str-test(exec in eus)~%")
   (str-test (length str) str)
   ;;
-  (setq f (piped-fork "eusg test-foreign-module.l '(progn (setq str \"input : test64 string\")(str-test (length str) str)(exit 0))'"))
+  (setq f (piped-fork (format nil "eusg ~A/test/test-foreign.module_l '(progn (setq str \"input : test64 string\")(str-test (length str) str)(exit 0))'" *eusdir*)))
   (assert (string= (read-line f) (format nil "size = ~d" (length str))))
   (dotimes (i (length str))
     (assert (string= (read-line f) (format nil "~d: ~c ~x" i (elt str i) (elt str i))))
@@ -245,5 +245,6 @@ test-testd = 1.23456
 (format t "call-ffunc = ~A~%" (call-ffunc))
 |#
 
-(run-all-tests)
-(exit)
+(eval-when (load eval)
+  (run-all-tests)
+  (exit))

test/test-foreign-module.l test/test-foreign.module_ltest/test-foreign-module.l renamed to test/test-foreign.module_l

@@ -1,9 +1,11 @@
 (unless (boundp '*testmod*)
   (setq *testmod* (load-foreign "test_foreign.so"))
   (defforeign float-test *testmod* "float_test" (:integer :float32 :float32 :float32 :float32) :integer)
+  (defforeign float1-test *testmod* "float_test" (:integer :float :float :float :float) :integer)
   (defforeign float2-test *testmod* "float_test" (:integer :double :double :double :double) :integer)
-  (defforeign float3-test *testmod* "float_test" () :integer)
+  (defforeign float3-test *testmod* "float_test" () :float)
   (defforeign double-test *testmod* "double_test" (:integer :double :double :double :double) :integer)
+  (defforeign double1-test *testmod* "double_test" (:integer :float :float :float :float) :integer)
   (defforeign double2-test *testmod* "double_test" (:integer :float32 :float32 :float32 :float32) :integer)
   (defforeign double3-test *testmod* "double_test" () :integer)
   (defforeign iv-test *testmod* "iv_test" () :integer)