|
Check-in Number:
|
1651 | |
| Date: |
2002-Jan-26 23:45:37 (local)
2002-Jan-26 22:45:37 (UTC) |
| User: | rse |
| Branch: | |
| Comment: |
add ex_catching to test suite |
| Tickets: |
|
| Inspections: |
|
| Files: |
|
ossp-pkg/ex/ex_test.c 1.5 -> 1.6
--- ex_test.c 2002/01/26 22:42:46 1.5
+++ ex_test.c 2002/01/26 22:45:37 1.6
@@ -118,6 +118,8 @@
ts_test_check(TS_CTX, "exception shielding");
if (ex_shielding)
ts_test_fail(TS_CTX, "unexpected shielding scope");
+ if (ex_catching)
+ ts_test_fail(TS_CTX, "unexpected catching scope");
ex_try {
ex_shield {
if (!ex_shielding)
@@ -126,10 +128,16 @@
}
if (ex_shielding)
ts_test_fail(TS_CTX, "unexpected shielding scope");
+ if (!ex_catching)
+ ts_test_fail(TS_CTX, "unexpected non-catching scope");
}
ex_catch (ex) {
ts_test_fail(TS_CTX, "unexpected exception catched");
+ if (ex_catching)
+ ts_test_fail(TS_CTX, "unexpected catching scope");
}
+ if (ex_catching)
+ ts_test_fail(TS_CTX, "unexpected catching scope");
}
int main(int argc, char *argv[])
|
|
