Fossil

Check-in [b045d077]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:The final newline must be retained for all test results.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:b045d0774ed489362f38d02c6e7afff4f330d460
User & Date: mistachkin 2016-10-04 23:32:55
References
2016-10-05
08:10
The changes in [b045d0774ed48936] are too far reaching. Instead, add a -keepNewline option and use it where appropriate. check-in: 561402f2 user: mistachkin tags: trunk
Context
2016-10-04
23:44
Add 'unversioned remove' as an alias for 'unversioned rm'. Update and improve help text. check-in: 182adc02 user: mistachkin tags: trunk
23:32
The final newline must be retained for all test results. check-in: b045d077 user: mistachkin tags: trunk
23:29
Coding style and consistency improvements. check-in: 824bfe84 user: mistachkin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to test/tester.tcl.

148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
  protOut $cmd

  flush stdout
  if {[string length $answer] > 0} {
    protOut $answer
    set prompt_file [file join $::tempPath fossil_prompt_answer]
    write_file $prompt_file $answer\n
    set rc [catch {eval exec $cmd <$prompt_file} result]
    file delete $prompt_file
  } else {
    set rc [catch {eval exec $cmd} result]
  }
  global RESULT CODE
  set CODE $rc
  if {($rc && !$expectError) || (!$rc && $expectError)} {
    protOut "ERROR: $result" 1
  } elseif {$::VERBOSE} {
    protOut "RESULT: $result"







|


|







148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
  protOut $cmd

  flush stdout
  if {[string length $answer] > 0} {
    protOut $answer
    set prompt_file [file join $::tempPath fossil_prompt_answer]
    write_file $prompt_file $answer\n
    set rc [catch {eval exec -keepnewline $cmd <$prompt_file} result]
    file delete $prompt_file
  } else {
    set rc [catch {eval exec -keepnewline $cmd} result]
  }
  global RESULT CODE
  set CODE $rc
  if {($rc && !$expectError) || (!$rc && $expectError)} {
    protOut "ERROR: $result" 1
  } elseif {$::VERBOSE} {
    protOut "RESULT: $result"