Changes in tests/exceptions/finally.cfa [3bf9d10:d00d581]
- File:
-
- 1 edited
-
tests/exceptions/finally.cfa (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
tests/exceptions/finally.cfa
r3bf9d10 rd00d581 1 1 // Finally Clause Tests 2 2 3 #include <fstream.hfa>4 3 #include "except-io.hfa" 5 4 … … 13 12 try { 14 13 try { 15 sout | "termination throw";14 printf("termination throw\n"); 16 15 throw exc; 17 16 } finally { 18 17 loud_exit a = "termination inner finally"; 19 sout | "finally during unwind";18 printf("finally during unwind\n"); 20 19 } 21 20 } catch (myth * error) { 22 sout | "termination catch";21 printf("termination catch\n"); 23 22 } finally { 24 23 loud_exit a = "termination outer finally"; 25 sout | "finally after catch";24 printf("finally after catch\n"); 26 25 } 27 sout | nl;26 printf("\n"); 28 27 29 28 try { 30 29 try { 31 sout | "resumption throw";30 printf("resumption throw\n"); 32 31 throwResume exc; 33 32 } finally { 34 33 loud_exit a = "resumption inner finally"; 35 sout | "finally after resume";34 printf("finally after resume\n"); 36 35 } 37 36 } catchResume (myth * error) { 38 sout | "resumption catch";37 printf("resumption catch\n"); 39 38 } finally { 40 39 loud_exit a = "resumption outer finally"; 41 sout | "finally after catch";40 printf("finally after catch\n"); 42 41 } 43 sout | "";42 printf("\n"); 44 43 45 44 try { 46 sout | "walking out of try";45 printf("walking out of try\n"); 47 46 } finally { 48 47 loud_exit a = "walking finally"; 49 sout | "walking through finally";48 printf("walking through finally\n"); 50 49 } 51 sout | "";50 printf("\n"); 52 51 53 52 try { 54 sout | "jumping out of try";53 printf("jumping out of try\n"); 55 54 goto endoffunction; 56 55 } finally { 57 56 loud_exit a = "jumping finally"; 58 sout | "jumping through finally";57 printf("jumping through finally\n"); 59 58 } 60 59 endoffunction:
Note:
See TracChangeset
for help on using the changeset viewer.