15c680c9c2c43584291cfbf60bf158e9c36f5e7c
[mes.git] / tests / optargs.test
1 #! /bin/sh
2 # -*-scheme-*-
3 echo ' ()' | cat $(dirname $0)/../module/mes/base-0.mes $0 /dev/stdin | $(dirname $0)/../scripts/mes $MES_FLAGS "$@"
4 #paredit:||
5 exit $?
6 !#
7
8 ;;; -*-scheme-*-
9
10 ;;; Mes --- Maxwell Equations of Software
11 ;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
12 ;;;
13 ;;; This file is part of Mes.
14 ;;;
15 ;;; Mes is free software; you can redistribute it and/or modify it
16 ;;; under the terms of the GNU General Public License as published by
17 ;;; the Free Software Foundation; either version 3 of the License, or (at
18 ;;; your option) any later version.
19 ;;;
20 ;;; Mes is distributed in the hope that it will be useful, but
21 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
22 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
23 ;;; GNU General Public License for more details.
24 ;;;
25 ;;; You should have received a copy of the GNU General Public License
26 ;;; along with Mes.  If not, see <http://www.gnu.org/licenses/>.
27
28 (cond-expand
29  (guile-2)
30  (guile
31   (use-modules (ice-9 optargs)))
32  (mes
33   (mes-use-module (mes optargs))
34   (mes-use-module (mes test))))
35
36 (pass-if-equal "cond =>" 10
37   (cond
38    (5 => (lambda (p) (* p 2)))))
39 (pass-if-equal "cond => 2" 10
40   (cond
41    (#f (display "hallo") (newline))
42    (5 => (lambda (p) (* p 2)))
43    (#t (display "wereld" (newline)))))
44 (pass-if-equal "cond => last" 10
45   (cond
46    (#f (display "hallo") (newline))
47    (5 => (lambda (p) (* p 2)))))
48
49 (pass-if "keyword?" (keyword? #:foo))
50 (pass-if "keywords" (eq? #:foo #:foo))
51 (pass-if-equal "keyword->symbol" 'foo (keyword->symbol #:foo))
52 (pass-if-equal "symbol->keyword" #:foo (symbol->keyword 'foo))
53 (pass-if-not "keywords" (eq? #:foo ':foo))
54 (pass-if "optargs #:optional" ((lambda* (#:optional (x #f)) x) #t))
55 (pass-if-equal "optargs #:optional default" #f ((lambda* (#:optional (x #f)) x)))
56 (pass-if "optargs key" ((lambda* (#:key (foo #f)) foo) #:foo #t))
57 (pass-if-equal "optargs key default" #f ((lambda* (#:key (foo #f)) foo)))
58
59 (result 'report)