Make guile switchable in GNUmakefile.
[mes.git] / tests / cwv.test
index 113645e6a81a9fe35959b2077d8fa4bcb0563cd9..28d673e2ba9f074cffd1216d0a8c38aa25a279c5 100755 (executable)
@@ -1,6 +1,6 @@
 #! /bin/sh
 # -*-scheme-*-
-echo ' ()' | cat $($(dirname $0)/../scripts/include.mes $0) $0 /dev/stdin | $(dirname $0)/../scripts/mes "$@"
+echo ' ()' | cat $(dirname $0)/../module/mes/base-0.mes $0 /dev/stdin | $(dirname $0)/../scripts/mes $MES_FLAGS "$@"
 #paredit:||
 exit $?
 !#
@@ -10,7 +10,7 @@ exit $?
 ;;; Mes --- Maxwell Equations of Software
 ;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;
-;;; scm.test: This file is part of Mes.
+;;; This file is part of Mes.
 ;;;
 ;;; Mes is free software; you can redistribute it and/or modify it
 ;;; under the terms of the GNU General Public License as published by
@@ -25,24 +25,26 @@ exit $?
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with Mes.  If not, see <http://www.gnu.org/licenses/>.
 
-(mes-use-module (mes base-0))
-(mes-use-module (mes base))
-(mes-use-module (mes quasiquote))
-(mes-use-module (mes let))
-(mes-use-module (srfi srfi-0))
 (mes-use-module (mes scm))
 (mes-use-module (mes test))
 
-(if guile?
-  (use-modules (srfi srfi-1)))
-
-(pass-if "values" (seq? (values 0 1) 0))
-(pass-if "values 2" (seq? ((lambda (x) x) (values 1 2 3)) 1))
-(pass-if "values 3" (seq? 1 ((lambda (x) x) (values 1 2 3))))
+(if (not guile-1.8?)
+    (pass-if "values" (seq? (values 0 1) 0)))
+(if (not guile-1.8?)
+    (pass-if "values 2" (seq? ((lambda (x) x) (values 1 2 3)) 1)))
+(if (not guile-1.8?)
+    (pass-if "values 3" (seq? 1 ((lambda (x) x) (values 1 2 3)))))
 (pass-if "call-with-values" (seq? (call-with-values (lambda () (values 1 2 3))
                                     (lambda (a b c) (+ a b c)))
                                   6))
 
+(pass-if-equal "lambda"
+               '(1 2 3 4 5)
+               ((lambda (x)
+                  (x 1 2 3 4 5))
+                (lambda (one two three four five)
+                  (list one two three four five))))
+
 (pass-if-equal "values 5"
     '(1 2 3 4 5)
     (call-with-values