| |
| if [ catch { load ./catches_strings[info sharedlibextension] Catches_strings} err_msg ] { |
| puts stderr "Could not load shared object:\n$err_msg" |
| } |
| |
| |
| set exception_thrown 0 |
| if [ catch { |
| StringsThrower_charstring |
| } e ] { |
| if {[string first "charstring message" $e] == -1} { |
| error "incorrect exception message: $e" |
| } |
| set exception_thrown 1 |
| } |
| if {!$exception_thrown} { |
| error "Should have thrown an exception" |
| } |
| |
| set exception_thrown 0 |
| if [ catch { |
| StringsThrower_stdstring |
| } e ] { |
| if {[string first "stdstring message" $e] == -1} { |
| error "incorrect exception message: $e" |
| } |
| set exception_thrown 1 |
| } |
| if {!$exception_thrown} { |
| error "Should have thrown an exception" |
| } |