Fossil SCM
Update test cases to work with or without the USE_TCL_EVALOBJV compile-time option enabled.
Commit
7d43a362d036fccc22789db3585829178ad5e30a
Parent
e49581506a2b6b6…
1 file changed
+5
-2
+5
-2
| --- test/th1-tcl.test | ||
| +++ test/th1-tcl.test | ||
| @@ -72,11 +72,12 @@ | ||
| 72 | 72 | ############################################################################### |
| 73 | 73 | |
| 74 | 74 | fossil test-th-render [file nativename [file join $dir th1-tcl5.txt]] |
| 75 | 75 | |
| 76 | 76 | test th1-tcl-5 {$RESULT eq {<hr><p class="thmainError">ERROR:\ |
| 77 | -Tcl command not found: bad_command</p>}} | |
| 77 | +Tcl command not found: bad_command</p>} || $RESULT eq {<hr><p\ | |
| 78 | +class="thmainError">ERROR: invalid command name "bad_command"</p>}} | |
| 78 | 79 | |
| 79 | 80 | ############################################################################### |
| 80 | 81 | |
| 81 | 82 | fossil test-th-render [file nativename [file join $dir th1-tcl6.txt]] |
| 82 | 83 | |
| @@ -93,7 +94,9 @@ | ||
| 93 | 94 | ############################################################################### |
| 94 | 95 | |
| 95 | 96 | fossil test-th-render [file nativename [file join $dir th1-tcl8.txt]] |
| 96 | 97 | |
| 97 | 98 | test th1-tcl-8 {$RESULT eq {<hr><p class="thmainError">ERROR:\ |
| 98 | -Cannot invoke Tcl command: tailcall</p>}} | |
| 99 | +Cannot invoke Tcl command: tailcall</p>} || $RESULT eq {<hr><p\ | |
| 100 | +class="thmainError">ERROR: tailcall can only be called from a proc or\ | |
| 101 | +lambda</p>}} | |
| 99 | 102 | |
| 100 | 103 |
| --- test/th1-tcl.test | |
| +++ test/th1-tcl.test | |
| @@ -72,11 +72,12 @@ | |
| 72 | ############################################################################### |
| 73 | |
| 74 | fossil test-th-render [file nativename [file join $dir th1-tcl5.txt]] |
| 75 | |
| 76 | test th1-tcl-5 {$RESULT eq {<hr><p class="thmainError">ERROR:\ |
| 77 | Tcl command not found: bad_command</p>}} |
| 78 | |
| 79 | ############################################################################### |
| 80 | |
| 81 | fossil test-th-render [file nativename [file join $dir th1-tcl6.txt]] |
| 82 | |
| @@ -93,7 +94,9 @@ | |
| 93 | ############################################################################### |
| 94 | |
| 95 | fossil test-th-render [file nativename [file join $dir th1-tcl8.txt]] |
| 96 | |
| 97 | test th1-tcl-8 {$RESULT eq {<hr><p class="thmainError">ERROR:\ |
| 98 | Cannot invoke Tcl command: tailcall</p>}} |
| 99 | |
| 100 |
| --- test/th1-tcl.test | |
| +++ test/th1-tcl.test | |
| @@ -72,11 +72,12 @@ | |
| 72 | ############################################################################### |
| 73 | |
| 74 | fossil test-th-render [file nativename [file join $dir th1-tcl5.txt]] |
| 75 | |
| 76 | test th1-tcl-5 {$RESULT eq {<hr><p class="thmainError">ERROR:\ |
| 77 | Tcl command not found: bad_command</p>} || $RESULT eq {<hr><p\ |
| 78 | class="thmainError">ERROR: invalid command name "bad_command"</p>}} |
| 79 | |
| 80 | ############################################################################### |
| 81 | |
| 82 | fossil test-th-render [file nativename [file join $dir th1-tcl6.txt]] |
| 83 | |
| @@ -93,7 +94,9 @@ | |
| 94 | ############################################################################### |
| 95 | |
| 96 | fossil test-th-render [file nativename [file join $dir th1-tcl8.txt]] |
| 97 | |
| 98 | test th1-tcl-8 {$RESULT eq {<hr><p class="thmainError">ERROR:\ |
| 99 | Cannot invoke Tcl command: tailcall</p>} || $RESULT eq {<hr><p\ |
| 100 | class="thmainError">ERROR: tailcall can only be called from a proc or\ |
| 101 | lambda</p>}} |
| 102 | |
| 103 |