diff options
author | Ludovic Courtès <ludo@gnu.org> | 2018-06-18 13:28:36 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2018-06-18 14:14:47 +0200 |
commit | 35f7df93788d3f6823eceb026dc32a125e21c31c (patch) | |
tree | 4f09f192392297941bc484fa068bba0df442e6d8 /test-suite | |
parent | eb90831ce81bcb85ae96d27011ebe71955cdf75d (diff) |
tests: Add SRFI-71 test.
* test-suite/tests/srfi-71.test: New file.
* test-suite/Makefile.am (SCM_TESTS): Add it.
Diffstat (limited to 'test-suite')
-rw-r--r-- | test-suite/Makefile.am | 1 | ||||
-rw-r--r-- | test-suite/tests/srfi-71.test | 46 |
2 files changed, 47 insertions, 0 deletions
diff --git a/test-suite/Makefile.am b/test-suite/Makefile.am index 226e695e8..0934dbb34 100644 --- a/test-suite/Makefile.am +++ b/test-suite/Makefile.am @@ -156,6 +156,7 @@ SCM_TESTS = tests/00-initial-env.test \ tests/srfi-64.test \ tests/srfi-67.test \ tests/srfi-69.test \ + tests/srfi-71.test \ tests/srfi-88.test \ tests/srfi-98.test \ tests/srfi-105.test \ diff --git a/test-suite/tests/srfi-71.test b/test-suite/tests/srfi-71.test new file mode 100644 index 000000000..0858771ca --- /dev/null +++ b/test-suite/tests/srfi-71.test @@ -0,0 +1,46 @@ +;;;; srfi-71.test --- Extended 'let' syntax. -*- mode: scheme; -*- +;;;; +;;;; Copyright (C) 2018 Free Software Foundation, Inc. +;;;; +;;;; This library is free software; you can redistribute it and/or +;;;; modify it under the terms of the GNU Lesser General Public +;;;; License as published by the Free Software Foundation; either +;;;; version 3 of the License, or (at your option) any later version. +;;;; +;;;; This library is distributed in the hope that it will be useful, +;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;;; Lesser General Public License for more details. +;;;; +;;;; You should have received a copy of the GNU Lesser General Public +;;;; License along with this library; if not, write to the Free Software +;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA + +(define-module (test-suite i18n) + #:use-module (srfi srfi-71) + #:use-module (test-suite lib)) + +(pass-if-equal "let" + '(1 2 3) + (let ((x y z (values 1 2 3))) + (list x y z))) + +(pass-if-equal "let*" + 6 + (let* ((x y (values 1 2)) + (z (+ x y))) + (* z 2))) + +(pass-if-equal "letrec" + #t + (letrec ((odd? even? + (values (lambda (n) (even? (- n 1))) + (lambda (n) (or (zero? n) (odd? (- n 1))))))) + (and (odd? 77) (even? 42)))) + +(pass-if-exception "too few values" + exception:wrong-num-args + ;; With compiled code we would get: + ;; '(vm-error . "Wrong number of values returned to continuations") + (let ((x y 1)) + (+ x y))) |