-
Notifications
You must be signed in to change notification settings - Fork 3
/
dx-test.lisp
90 lines (66 loc) · 1.74 KB
/
dx-test.lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
;;; Copyright 2020 Google LLC
;;;
;;; Use of this source code is governed by an MIT-style
;;; license that can be found in the LICENSE file or at
;;; https://opensource.org/licenses/MIT.
;;; Tests the dynamic-extent utilities (DX package).
;;;
(ace.core:defpackage* #:ace.core.dx-test
(:use #:common-lisp
#:ace.test)
(:use-alias #:ace.core.dx))
(in-package :ace.core.dx-test)
(deftest flet-test ()
(dx:flet ((f (x) x))
(expect (eql 4 (f 4))))
(dx:flet ((f (x) x)
(g () :a))
(expect (eql :a (f (g)))))
(dx:flet ((f (x) x)
inline
(g () :a))
(expect (eql :a (f (g)))))
(dx:flet (inline (f (x) x)
(g () :a))
(expect (eql :a (f (g)))))
(dx:flet* ((f (x) x))
(expect (eql 4 (f 4))))
(dx:flet* ((f (x) x)
(g () (f :a)))
(expect (eql :a (f (g)))))
(dx:flet* ((f (x) x)
inline
(g () (f :a)))
(expect (eql :a (f (g)))))
(dx:flet* (inline
(f (x) x)
(g () (f :a)))
(expect (eql :a (f (g)))))
(dx:labels ((f (x) x))
(expect (eql 4 (f 4))))
(dx:labels ((f (x) x)
(g () (f :a)))
(expect (eql :a (f (g)))))
(dx:labels ((f (x) x)
inline
(g () (f :a)))
(expect (eql :a (f (g)))))
(dx:labels (inline
(f (x) x)
(g () (f :a)))
(expect (eql :a (f (g))))))
(deftest let-test ()
(expect (equal :a (dx:let () :a)))
(dx:let ((a 1))
(expect (eql 1 a)))
(dx:let ((a 1)
(b 2))
(expect (eql 1 a))
(expect (eql 2 b)))
(expect (equal :a (dx:let* () :a)))
(dx:let* ((a 1))
(expect (eql 1 a)))
(dx:let* ((a 1)
(b (1+ a)))
(expect (eql 1 a))
(expect (eql 2 b))))