Fossil SCM
Account for recent 'hr' markup changes in the th1-tcl tests.
Commit
6a73034e71d50b8c5e705aba1d2c6c2a4d124833
Parent
ce910a43c5cf5e4…
1 file changed
+9
-9
+9
-9
| --- test/th1-tcl.test | ||
| +++ test/th1-tcl.test | ||
| @@ -77,55 +77,55 @@ | ||
| 77 | 77 | ############################################################################### |
| 78 | 78 | |
| 79 | 79 | fossil test-th-render --open-config \ |
| 80 | 80 | [file nativename [file join $dir th1-tcl3.txt]] |
| 81 | 81 | |
| 82 | -test th1-tcl-3 {$RESULT eq {<hr><p class="thmainError">ERROR:\ | |
| 82 | +test th1-tcl-3 {$RESULT eq {<hr /><p class="thmainError">ERROR:\ | |
| 83 | 83 | invalid command name "bad_command"</p>}} |
| 84 | 84 | |
| 85 | 85 | ############################################################################### |
| 86 | 86 | |
| 87 | 87 | fossil test-th-render --open-config \ |
| 88 | 88 | [file nativename [file join $dir th1-tcl4.txt]] |
| 89 | 89 | |
| 90 | -test th1-tcl-4 {$RESULT eq {<hr><p class="thmainError">ERROR:\ | |
| 90 | +test th1-tcl-4 {$RESULT eq {<hr /><p class="thmainError">ERROR:\ | |
| 91 | 91 | divide by zero</p>}} |
| 92 | 92 | |
| 93 | 93 | ############################################################################### |
| 94 | 94 | |
| 95 | 95 | fossil test-th-render --open-config \ |
| 96 | 96 | [file nativename [file join $dir th1-tcl5.txt]] |
| 97 | 97 | |
| 98 | -test th1-tcl-5 {$RESULT eq {<hr><p class="thmainError">ERROR:\ | |
| 99 | -Tcl command not found: bad_command</p>} || $RESULT eq {<hr><p\ | |
| 98 | +test th1-tcl-5 {$RESULT eq {<hr /><p class="thmainError">ERROR:\ | |
| 99 | +Tcl command not found: bad_command</p>} || $RESULT eq {<hr /><p\ | |
| 100 | 100 | class="thmainError">ERROR: invalid command name "bad_command"</p>}} |
| 101 | 101 | |
| 102 | 102 | ############################################################################### |
| 103 | 103 | |
| 104 | 104 | fossil test-th-render --open-config \ |
| 105 | 105 | [file nativename [file join $dir th1-tcl6.txt]] |
| 106 | 106 | |
| 107 | -test th1-tcl-6 {$RESULT eq {<hr><p class="thmainError">ERROR:\ | |
| 107 | +test th1-tcl-6 {$RESULT eq {<hr /><p class="thmainError">ERROR:\ | |
| 108 | 108 | no such command: bad_command</p>}} |
| 109 | 109 | |
| 110 | 110 | ############################################################################### |
| 111 | 111 | |
| 112 | 112 | fossil test-th-render --open-config \ |
| 113 | 113 | [file nativename [file join $dir th1-tcl7.txt]] |
| 114 | 114 | |
| 115 | -test th1-tcl-7 {$RESULT eq {<hr><p class="thmainError">ERROR:\ | |
| 115 | +test th1-tcl-7 {$RESULT eq {<hr /><p class="thmainError">ERROR:\ | |
| 116 | 116 | syntax error in expression: "2**0"</p>}} |
| 117 | 117 | |
| 118 | 118 | ############################################################################### |
| 119 | 119 | |
| 120 | 120 | fossil test-th-render --open-config \ |
| 121 | 121 | [file nativename [file join $dir th1-tcl8.txt]] |
| 122 | 122 | |
| 123 | -test th1-tcl-8 {$RESULT eq {<hr><p class="thmainError">ERROR:\ | |
| 124 | -cannot invoke Tcl command: tailcall</p>} || $RESULT eq {<hr><p\ | |
| 123 | +test th1-tcl-8 {$RESULT eq {<hr /><p class="thmainError">ERROR:\ | |
| 124 | +cannot invoke Tcl command: tailcall</p>} || $RESULT eq {<hr /><p\ | |
| 125 | 125 | class="thmainError">ERROR: tailcall can only be called from a proc or\ |
| 126 | -lambda</p>} || $RESULT eq {<hr><p class="thmainError">ERROR: This test\ | |
| 126 | +lambda</p>} || $RESULT eq {<hr /><p class="thmainError">ERROR: This test\ | |
| 127 | 127 | requires Tcl 8.6 or higher.</p>}} |
| 128 | 128 | |
| 129 | 129 | ############################################################################### |
| 130 | 130 | |
| 131 | 131 | fossil test-th-render --open-config \ |
| 132 | 132 |
| --- test/th1-tcl.test | |
| +++ test/th1-tcl.test | |
| @@ -77,55 +77,55 @@ | |
| 77 | ############################################################################### |
| 78 | |
| 79 | fossil test-th-render --open-config \ |
| 80 | [file nativename [file join $dir th1-tcl3.txt]] |
| 81 | |
| 82 | test th1-tcl-3 {$RESULT eq {<hr><p class="thmainError">ERROR:\ |
| 83 | invalid command name "bad_command"</p>}} |
| 84 | |
| 85 | ############################################################################### |
| 86 | |
| 87 | fossil test-th-render --open-config \ |
| 88 | [file nativename [file join $dir th1-tcl4.txt]] |
| 89 | |
| 90 | test th1-tcl-4 {$RESULT eq {<hr><p class="thmainError">ERROR:\ |
| 91 | divide by zero</p>}} |
| 92 | |
| 93 | ############################################################################### |
| 94 | |
| 95 | fossil test-th-render --open-config \ |
| 96 | [file nativename [file join $dir th1-tcl5.txt]] |
| 97 | |
| 98 | test th1-tcl-5 {$RESULT eq {<hr><p class="thmainError">ERROR:\ |
| 99 | Tcl command not found: bad_command</p>} || $RESULT eq {<hr><p\ |
| 100 | class="thmainError">ERROR: invalid command name "bad_command"</p>}} |
| 101 | |
| 102 | ############################################################################### |
| 103 | |
| 104 | fossil test-th-render --open-config \ |
| 105 | [file nativename [file join $dir th1-tcl6.txt]] |
| 106 | |
| 107 | test th1-tcl-6 {$RESULT eq {<hr><p class="thmainError">ERROR:\ |
| 108 | no such command: bad_command</p>}} |
| 109 | |
| 110 | ############################################################################### |
| 111 | |
| 112 | fossil test-th-render --open-config \ |
| 113 | [file nativename [file join $dir th1-tcl7.txt]] |
| 114 | |
| 115 | test th1-tcl-7 {$RESULT eq {<hr><p class="thmainError">ERROR:\ |
| 116 | syntax error in expression: "2**0"</p>}} |
| 117 | |
| 118 | ############################################################################### |
| 119 | |
| 120 | fossil test-th-render --open-config \ |
| 121 | [file nativename [file join $dir th1-tcl8.txt]] |
| 122 | |
| 123 | test th1-tcl-8 {$RESULT eq {<hr><p class="thmainError">ERROR:\ |
| 124 | cannot invoke Tcl command: tailcall</p>} || $RESULT eq {<hr><p\ |
| 125 | class="thmainError">ERROR: tailcall can only be called from a proc or\ |
| 126 | lambda</p>} || $RESULT eq {<hr><p class="thmainError">ERROR: This test\ |
| 127 | requires Tcl 8.6 or higher.</p>}} |
| 128 | |
| 129 | ############################################################################### |
| 130 | |
| 131 | fossil test-th-render --open-config \ |
| 132 |
| --- test/th1-tcl.test | |
| +++ test/th1-tcl.test | |
| @@ -77,55 +77,55 @@ | |
| 77 | ############################################################################### |
| 78 | |
| 79 | fossil test-th-render --open-config \ |
| 80 | [file nativename [file join $dir th1-tcl3.txt]] |
| 81 | |
| 82 | test th1-tcl-3 {$RESULT eq {<hr /><p class="thmainError">ERROR:\ |
| 83 | invalid command name "bad_command"</p>}} |
| 84 | |
| 85 | ############################################################################### |
| 86 | |
| 87 | fossil test-th-render --open-config \ |
| 88 | [file nativename [file join $dir th1-tcl4.txt]] |
| 89 | |
| 90 | test th1-tcl-4 {$RESULT eq {<hr /><p class="thmainError">ERROR:\ |
| 91 | divide by zero</p>}} |
| 92 | |
| 93 | ############################################################################### |
| 94 | |
| 95 | fossil test-th-render --open-config \ |
| 96 | [file nativename [file join $dir th1-tcl5.txt]] |
| 97 | |
| 98 | test th1-tcl-5 {$RESULT eq {<hr /><p class="thmainError">ERROR:\ |
| 99 | Tcl command not found: bad_command</p>} || $RESULT eq {<hr /><p\ |
| 100 | class="thmainError">ERROR: invalid command name "bad_command"</p>}} |
| 101 | |
| 102 | ############################################################################### |
| 103 | |
| 104 | fossil test-th-render --open-config \ |
| 105 | [file nativename [file join $dir th1-tcl6.txt]] |
| 106 | |
| 107 | test th1-tcl-6 {$RESULT eq {<hr /><p class="thmainError">ERROR:\ |
| 108 | no such command: bad_command</p>}} |
| 109 | |
| 110 | ############################################################################### |
| 111 | |
| 112 | fossil test-th-render --open-config \ |
| 113 | [file nativename [file join $dir th1-tcl7.txt]] |
| 114 | |
| 115 | test th1-tcl-7 {$RESULT eq {<hr /><p class="thmainError">ERROR:\ |
| 116 | syntax error in expression: "2**0"</p>}} |
| 117 | |
| 118 | ############################################################################### |
| 119 | |
| 120 | fossil test-th-render --open-config \ |
| 121 | [file nativename [file join $dir th1-tcl8.txt]] |
| 122 | |
| 123 | test th1-tcl-8 {$RESULT eq {<hr /><p class="thmainError">ERROR:\ |
| 124 | cannot invoke Tcl command: tailcall</p>} || $RESULT eq {<hr /><p\ |
| 125 | class="thmainError">ERROR: tailcall can only be called from a proc or\ |
| 126 | lambda</p>} || $RESULT eq {<hr /><p class="thmainError">ERROR: This test\ |
| 127 | requires Tcl 8.6 or higher.</p>}} |
| 128 | |
| 129 | ############################################################################### |
| 130 | |
| 131 | fossil test-th-render --open-config \ |
| 132 |