Fossil SCM
Correct and enhance tests.
Commit
3b691ce90c8f7264104dcea9d5074e2d409dfd7e
Parent
3f21421a5137cd0…
1 file changed
+16
-4
+16
-4
| --- test/th1.test | ||
| +++ test/th1.test | ||
| @@ -861,13 +861,13 @@ | ||
| 861 | 861 | # NOTE: This test may fail if the command names do not always come |
| 862 | 862 | # out in a deterministic order from TH1. |
| 863 | 863 | # |
| 864 | 864 | fossil test-th-eval "info commands" |
| 865 | 865 | test th1-info-commands-1 {$RESULT eq {linecount htmlize date stime\ |
| 866 | -enable_output uplevel dir http expr glob_match utime styleFooter catch if\ | |
| 867 | -tclReady searchable reinitialize combobox lindex query html anoncap randhex\ | |
| 868 | -llength for set break regexp markdown styleHeader puts return checkout\ | |
| 866 | +enable_output uplevel dir http expr glob_match utime styleFooter encode64\ | |
| 867 | +catch if tclReady searchable reinitialize combobox lindex query html anoncap\ | |
| 868 | +randhex llength for set break regexp markdown styleHeader puts return checkout\ | |
| 869 | 869 | decorate artifact trace wiki proc hascap globalState continue getParameter\ |
| 870 | 870 | hasfeature setting lsearch breakpoint upvar render repository string unset\ |
| 871 | 871 | setParameter list error info rename anycap httpize}} |
| 872 | 872 | |
| 873 | 873 | ############################################################################### |
| @@ -1253,7 +1253,19 @@ | ||
| 1253 | 1253 | fossil test-th-eval {encode64 test} |
| 1254 | 1254 | test th1-encode64-1 {$RESULT eq "dGVzdA=="} |
| 1255 | 1255 | |
| 1256 | 1256 | ############################################################################### |
| 1257 | 1257 | |
| 1258 | -fossil test-th-eval {encode64 test\0} | |
| 1258 | +fossil test-th-eval {encode64 test\x00} | |
| 1259 | 1259 | test th1-encode64-2 {$RESULT eq "dGVzdAA="} |
| 1260 | + | |
| 1261 | +############################################################################### | |
| 1262 | + | |
| 1263 | +# | |
| 1264 | +# TODO: Modify the result of this test if the source file (i.e. | |
| 1265 | +# "ajax/cgi-bin/fossil-json.cgi.example") changes. | |
| 1266 | +# | |
| 1267 | +fossil test-th-eval --open-config \ | |
| 1268 | + {encode64 [artifact trunk ajax/cgi-bin/fossil-json.cgi.example]} | |
| 1269 | + | |
| 1270 | +test th1-encode64-3 {$RESULT eq \ | |
| 1271 | +"IyEvcGF0aC90by9mb3NzaWwvYmluYXJ5CnJlcG9zaXRvcnk6IC9wYXRoL3RvL3JlcG8uZnNsCg=="} | |
| 1260 | 1272 |
| --- test/th1.test | |
| +++ test/th1.test | |
| @@ -861,13 +861,13 @@ | |
| 861 | # NOTE: This test may fail if the command names do not always come |
| 862 | # out in a deterministic order from TH1. |
| 863 | # |
| 864 | fossil test-th-eval "info commands" |
| 865 | test th1-info-commands-1 {$RESULT eq {linecount htmlize date stime\ |
| 866 | enable_output uplevel dir http expr glob_match utime styleFooter catch if\ |
| 867 | tclReady searchable reinitialize combobox lindex query html anoncap randhex\ |
| 868 | llength for set break regexp markdown styleHeader puts return checkout\ |
| 869 | decorate artifact trace wiki proc hascap globalState continue getParameter\ |
| 870 | hasfeature setting lsearch breakpoint upvar render repository string unset\ |
| 871 | setParameter list error info rename anycap httpize}} |
| 872 | |
| 873 | ############################################################################### |
| @@ -1253,7 +1253,19 @@ | |
| 1253 | fossil test-th-eval {encode64 test} |
| 1254 | test th1-encode64-1 {$RESULT eq "dGVzdA=="} |
| 1255 | |
| 1256 | ############################################################################### |
| 1257 | |
| 1258 | fossil test-th-eval {encode64 test\0} |
| 1259 | test th1-encode64-2 {$RESULT eq "dGVzdAA="} |
| 1260 |
| --- test/th1.test | |
| +++ test/th1.test | |
| @@ -861,13 +861,13 @@ | |
| 861 | # NOTE: This test may fail if the command names do not always come |
| 862 | # out in a deterministic order from TH1. |
| 863 | # |
| 864 | fossil test-th-eval "info commands" |
| 865 | test th1-info-commands-1 {$RESULT eq {linecount htmlize date stime\ |
| 866 | enable_output uplevel dir http expr glob_match utime styleFooter encode64\ |
| 867 | catch if tclReady searchable reinitialize combobox lindex query html anoncap\ |
| 868 | randhex llength for set break regexp markdown styleHeader puts return checkout\ |
| 869 | decorate artifact trace wiki proc hascap globalState continue getParameter\ |
| 870 | hasfeature setting lsearch breakpoint upvar render repository string unset\ |
| 871 | setParameter list error info rename anycap httpize}} |
| 872 | |
| 873 | ############################################################################### |
| @@ -1253,7 +1253,19 @@ | |
| 1253 | fossil test-th-eval {encode64 test} |
| 1254 | test th1-encode64-1 {$RESULT eq "dGVzdA=="} |
| 1255 | |
| 1256 | ############################################################################### |
| 1257 | |
| 1258 | fossil test-th-eval {encode64 test\x00} |
| 1259 | test th1-encode64-2 {$RESULT eq "dGVzdAA="} |
| 1260 | |
| 1261 | ############################################################################### |
| 1262 | |
| 1263 | # |
| 1264 | # TODO: Modify the result of this test if the source file (i.e. |
| 1265 | # "ajax/cgi-bin/fossil-json.cgi.example") changes. |
| 1266 | # |
| 1267 | fossil test-th-eval --open-config \ |
| 1268 | {encode64 [artifact trunk ajax/cgi-bin/fossil-json.cgi.example]} |
| 1269 | |
| 1270 | test th1-encode64-3 {$RESULT eq \ |
| 1271 | "IyEvcGF0aC90by9mb3NzaWwvYmluYXJ5CnJlcG9zaXRvcnk6IC9wYXRoL3RvL3JlcG8uZnNsCg=="} |
| 1272 |