2 ** OSSP ex - Exception Handling
3 ** Copyright (c) 2002-2004 Ralf S. Engelschall <rse@engelschall.com>
4 ** Copyright (c) 2002-2004 The OSSP Project <http://www.ossp.org/>
5 ** Copyright (c) 2002-2004 Cable & Wireless <http://www.cw.com/>
7 ** This file is part of OSSP ex, an exception handling library
8 ** which can be found at http://www.ossp.org/pkg/lib/ex/.
10 ** Permission to use, copy, modify, and distribute this software for
11 ** any purpose with or without fee is hereby granted, provided that
12 ** the above copyright notice and this permission notice appear in all
15 ** THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
16 ** WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
17 ** MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
18 ** IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR
19 ** CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
20 ** SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
21 ** LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
22 ** USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
23 ** ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
24 ** OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
25 ** OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
28 ** ex_test.c: exception handling test suite
36 #include "ex_test_ts.h"
39 TS_TEST(test_controlflow)
44 ts_test_check(TS_CTX, "basic nested control flow");
48 ts_test_fail(TS_CTX, "M1: n=%d (!= 1)", n);
52 ts_test_fail(TS_CTX, "M2: n=%d (!= 2)", n);
54 xbt_throw(0,0,"something");
58 ts_test_fail(TS_CTX, "M3: n=%d (!= 1)", n);
62 ts_test_fail(TS_CTX, "MX: n=%d (expected: not reached)", n);
66 ts_test_fail(TS_CTX, "M4: n=%d (!= 4)", n);
70 ts_test_fail(TS_CTX, "M5: n=%d (!= 5)", n);
78 xbt_throw(1, 2, "toto");
81 ts_test_check(TS_CTX, "exception value passing");
83 ts_test_fail(TS_CTX, "category=%d (!= 1)", ex.category);
85 ts_test_fail(TS_CTX, "value=%d (!= 2)", ex.value);
86 if (strcmp(ex.msg,"toto"))
87 ts_test_fail(TS_CTX, "message=%s (!= toto)", ex.msg);
91 TS_TEST(test_variables)
97 r1 = r2 = v1 = v2 = 1234;
104 ts_test_check(TS_CTX, "variable preservation");
106 ts_test_fail(TS_CTX, "r1=%d (!= 1234)", r1);
108 ts_test_fail(TS_CTX, "v1=%d (!= 1234)", v1);
109 /* r2 is allowed to be destroyed because not volatile */
111 ts_test_fail(TS_CTX, "v2=%d (!= 5678)", v2);
122 ts_test_check(TS_CTX, "exception deferring");
124 ts_test_fail(TS_CTX, "unexpected deferring scope");
128 ts_test_fail(TS_CTX, "unexpected non-deferring scope");
131 xbt_throw(4711, 0, NULL);
133 xbt_throw(0, 0, NULL);
135 xbt_throw(0, 0, NULL);
139 ts_test_fail(TS_CTX, "unexpected not occurred deferred throwing");
142 if (ex.category != 4711)
143 ts_test_fail(TS_CTX, "caught exception with value %d, expected 4711", ex.value);
146 ts_test_fail(TS_CTX, "v.i1 not set (expected 1, got %d)", i1);
148 ts_test_fail(TS_CTX, "v.i2 not set (expected 2, got %d)", i2);
150 ts_test_fail(TS_CTX, "v.i3 not set (expected 3, got %d)", i3);
157 ts_test_check(TS_CTX, "exception shielding");
159 ts_test_fail(TS_CTX, "unexpected shielding scope");
161 ts_test_fail(TS_CTX, "unexpected catching scope");
165 ts_test_fail(TS_CTX, "unexpected non-shielding scope");
169 ts_test_fail(TS_CTX, "unexpected shielding scope");
171 ts_test_fail(TS_CTX, "unexpected non-catching scope");
174 ts_test_fail(TS_CTX, "unexpected exception catched");
176 ts_test_fail(TS_CTX, "unexpected catching scope");
179 ts_test_fail(TS_CTX, "unexpected catching scope");
182 TS_TEST(test_cleanup)
188 ts_test_check(TS_CTX, "cleanup handling");
194 xbt_throw(1, 2, "blah");
198 ts_test_fail(TS_CTX, "v1 = %d (!= 5678)", v1);
203 ts_test_fail(TS_CTX, "v1 = %d (!= 5678)", v1);
204 if (!(ex.category == 1 && ex.value == 2 && !strcmp(ex.msg,"blah")))
205 ts_test_fail(TS_CTX, "unexpected exception contents");
208 ts_test_fail(TS_CTX, "ex_cleanup not executed");
211 int main(int argc, char *argv[])
216 ts = ts_suite_new("OSSP ex (Exception Handling)");
217 ts_suite_test(ts, test_controlflow, "basic nested control flow");
218 ts_suite_test(ts, test_value, "exception value passing");
219 ts_suite_test(ts, test_variables, "variable value preservation");
220 ts_suite_test(ts, test_defer, "exception deferring");
221 ts_suite_test(ts, test_shield, "exception shielding");
222 ts_suite_test(ts, test_cleanup, "cleanup handling");
223 n = ts_suite_run(ts);
230 * The following is the example included in the documentation. It's a good
231 * idea to check its syntax even if we don't try to run it.
232 * And actually, it allows to put comments in the code despite doxygen.
234 static char *mallocex(int size) {
237 #define SMALLAMOUNT 10
238 #define TOOBIG 100000000
240 #if 0 /* this contains syntax errors, actually */
241 static void bad_example(void) {
242 struct {char*first;} *globalcontext;
247 char *cp1, *cp2, *cp3;
249 cp1 = mallocex(SMALLAMOUNT);
250 globalcontext->first = cp1;
251 cp2 = mallocex(TOOBIG);
252 cp3 = mallocex(SMALLAMOUNT);
256 if (cp3 != NULL) free(cp3);
257 if (cp2 != NULL) free(cp2);
258 if (cp1 != NULL) free(cp1);
260 printf("cp3=%s", cp3);
263 /* end_of_bad_example */
267 static void good_example(void) {
268 struct {char*first;} *globalcontext;
273 char * volatile /*03*/ cp1 = NULL /*02*/;
274 char * volatile /*03*/ cp2 = NULL /*02*/;
275 char * volatile /*03*/ cp3 = NULL /*02*/;
277 cp1 = mallocex(SMALLAMOUNT);
278 globalcontext->first = cp1;
279 cp1 = NULL /*05 give away*/;
280 cp2 = mallocex(TOOBIG);
281 cp3 = mallocex(SMALLAMOUNT);
284 } xbt_cleanup { /*04*/
285 printf("cp3=%s", cp3 == NULL /*02*/ ? "" : cp3);
290 /*05 cp1 was given away */
292 /*05 global context untouched */
296 /* end_of_good_example */