Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Modify 'th1-hooks' test to decouple it from needing to run within a Fossil source checkout. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
9bfdc5c68208f5e3b98b8f95d367b9fd |
User & Date: | mistachkin 2016-01-11 00:40:43 |
Context
2016-01-11
| ||
00:43 | Modify 'th1-tcl' test to make it run outside of the Fossil source checkout. ... (check-in: 18d7d266 user: mistachkin tags: trunk) | |
00:40 | Modify 'th1-hooks' test to decouple it from needing to run within a Fossil source checkout. ... (check-in: 9bfdc5c6 user: mistachkin tags: trunk) | |
00:39 | Modify 'th1-docs' test file to enable it to run when the test suite is running outside of the Fossil source checkout. ... (check-in: 8f199fd8 user: mistachkin tags: trunk) | |
Changes
Changes to test/tester.tcl.
︙ | ︙ | |||
247 248 249 250 251 252 253 | # proc getTh1SetupFileName {} { # # NOTE: This uses the "testdir" global variable provided by the # test suite; alternatively, the root of the source tree # could be obtained directly from Fossil. # | | < > > | | 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 | # proc getTh1SetupFileName {} { # # NOTE: This uses the "testdir" global variable provided by the # test suite; alternatively, the root of the source tree # could be obtained directly from Fossil. # return [file normalize [file join .fossil-settings th1-setup]] } # Return the saved name of the versioned settings file containing # the TH1 setup script. # proc getSavedTh1SetupFileName {} { return [appendArgs [getTh1SetupFileName] . [pid]] } # Sets the TH1 setup script to the one provided. Prior to calling # this, the [saveTh1SetupFile] procedure should be called in order to # preserve the existing TH1 setup script. Prior to completing the test, # the [restoreTh1SetupFile] procedure should be called to restore the # original TH1 setup script. # proc writeTh1SetupFile { data } { set fileName [getTh1SetupFileName] file mkdir [file dirname $fileName] return [write_file $fileName $data] } # Saves the TH1 setup script file by renaming it, based on the current # process ID. # proc saveTh1SetupFile {} { set oldFileName [getTh1SetupFileName] |
︙ | ︙ |
Changes to test/th1-hooks.test.
︙ | ︙ | |||
22 23 24 25 26 27 28 29 30 31 32 33 34 35 | if {$::RESULT ne "1"} then { puts "Fossil was not compiled with TH1 hooks support."; return } ############################################################################### set env(TH1_ENABLE_HOOKS) 1; # TH1 hooks must be enabled for this test. ############################################################################### set testTh1Setup { proc initialize_hook_log {} { if {![info exists ::hook_log]} { | > > > > > | 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 | if {$::RESULT ne "1"} then { puts "Fossil was not compiled with TH1 hooks support."; return } ############################################################################### repo_init write_file f1 "f1"; fossil add f1; fossil commit -m "c1" ############################################################################### set env(TH1_ENABLE_HOOKS) 1; # TH1 hooks must be enabled for this test. ############################################################################### set testTh1Setup { proc initialize_hook_log {} { if {![info exists ::hook_log]} { |
︙ | ︙ | |||
128 129 130 131 132 133 134 | test th1-cmd-hooks-2a {[first_data_line] eq \ {<h1><b>command_hook timeline</b></h1>}} test th1-cmd-hooks-2b {[second_data_line] eq {ERROR: unsupported timeline}} ############################################################################### | | | 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 | test th1-cmd-hooks-2a {[first_data_line] eq \ {<h1><b>command_hook timeline</b></h1>}} test th1-cmd-hooks-2b {[second_data_line] eq {ERROR: unsupported timeline}} ############################################################################### fossil timeline -n -1 now test th1-cmd-hooks-3a {[first_data_line] eq \ {<h1><b>command_hook timeline</b></h1>}} test th1-cmd-hooks-3b \ {[regexp -- {=== \d{4}-\d{2}-\d{2} ===} [second_data_line]]} test th1-cmd-hooks-3c \ |
︙ | ︙ | |||
169 170 171 172 173 174 175 | fossil test4 test th1-custom-cmd-4a {[string trim $RESULT] eq \ {<h1><b>command_hook test4</b></h1>}} ############################################################################### set RESULT [test_fossil_http $repository $dataFileName /timeline] | > | > | 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 | fossil test4 test th1-custom-cmd-4a {[string trim $RESULT] eq \ {<h1><b>command_hook test4</b></h1>}} ############################################################################### set RESULT [test_fossil_http $repository $dataFileName /timeline] test th1-web-hooks-1a {[regexp \ {<title>Unnamed Fossil Project: Timeline</title>} $RESULT]} test th1-web-hooks-1b {[regexp [appendArgs \ {<h1><b>command_hook http webpage_hook timeline} " " \ {webpage_notify timeline</b></h1>}] $RESULT]} ############################################################################### |
︙ | ︙ |