tests/012/oop-mac.tl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

(load "../common")

(test (with-resources ((a nil (list a))
                       (b nil)
                       (c nil (list c)))
        (list a b c))
      (nil nil nil))

(test (build
        (catch
          (with-resources ((a 1 (add a))
                           (x nil)
                           (b 2 (add b))
                           (y (throw 'out))
                           (z nil t)
                           (c 3 (add c))))
          (out () (add 4))))
      (2 1 4))