Fossil

Check-in [b045d0774e]
Login

Check-in [b045d0774e]

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
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: b045d0774ed489362f38d02c6e7afff4f330d460
User & Date: mistachkin 2016-10-04 23:32:55.392
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: 561402f2e0 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: 182adc0290 user: mistachkin tags: trunk)
23:32
The final newline must be retained for all test results. ... (check-in: b045d0774e user: mistachkin tags: trunk)
23:29
Coding style and consistency improvements. ... (check-in: 824bfe849b user: mistachkin tags: trunk)
Changes
Unified Diff 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"
︙︙