source: trunk/source/tests/ansi-tests/store-value.lsp @ 8991

Last change on this file since 8991 was 8991, checked in by gz, 11 years ago

Check in the gcl ansi test suite (original, in preparation for making local changes)

File size: 1.2 KB
Line 
1;-*- Mode:     Lisp -*-
2;;;; Author:   Paul Dietz
3;;;; Created:  Sun Mar 23 09:10:22 2003
4;;;; Contains: Tests for STORE-VALUE restart and function
5
6(in-package :cl-test)
7
8(deftest store-value.1
9  (restart-case
10   (progn (store-value 10) 'bad)
11   (store-value (x) (list x 'good)))
12  (10 good))
13
14(deftest store-value.2
15  (let ((c1 (make-condition 'error))
16        (c2 (make-condition 'error)))
17    (restart-case
18     (with-condition-restarts
19      c1
20      (list (first (compute-restarts)))
21      (store-value 17 c2))
22     (store-value (x) (list x 'bad))
23     (store-value (x) (list x 'good))))
24  (17 good))
25
26(deftest store-value.3
27  (restart-case
28   (progn (store-value 11 nil) 'bad)
29   (store-value (x) (list x 'good)))
30  (11 good))
31
32(deftest store-value.4
33  (let ((c1 (make-condition 'error))
34        (c2 (make-condition 'error)))
35    (restart-case
36     (with-condition-restarts
37      c1
38      (list (first (compute-restarts)))
39      (store-value 18 nil))
40     (store-value (x) (list x 'good))
41     (store-value (x) (list x 'bad))))
42  (18 good))
43
44(deftest store-value.5
45  (let ((c1 (make-condition 'error))
46        (c2 (make-condition 'error)))
47     (with-condition-restarts
48      c1
49      (compute-restarts)
50      ;; All conditions are now associated with c1
51      (store-value 21 c2)))
52  nil)
Note: See TracBrowser for help on using the repository browser.