Fossil

Differences From Artifact [ed51b93aed]:

• File test/amend.test — part of check-in [4d556700a7] at 2024-04-25 13:34:23 on branch trunk — Use join instead to avoid prepending garbage at the beginning of the string. (user: andybradford size: 12496)

To Artifact [c1ea044297]:

• File test/amend.test — part of check-in [f0c4705d49] at 2024-04-25 13:36:19 on branch trunk — Fix minor typo in test introduced by previous commit. (user: andybradford size: 12495) [more...]

294
295
296
297
298
299
300
301
302
303
304
305
306
307
308

  {000000 lower Upper alpha 0alpha} {000000 0alpha Upper alpha lower}
}
set tc 0
foreach {tagt result} $tagtests {
  incr tc
  set tags {}
  set cancels {}
  set t1exp [join $results ", "]
  set t2exp "*"
  set t3exp "*"
  set t5exp "*"
  foreach tag $tagt {
    lappend tags -tag $tag
    lappend cancels -cancel $tag
  }

|

294
295
296
297
298
299
300
301
302
303
304
305
306
307
308

  {000000 lower Upper alpha 0alpha} {000000 0alpha Upper alpha lower}
}
set tc 0
foreach {tagt result} $tagtests {
  incr tc
  set tags {}
  set cancels {}
  set t1exp [join $result ", "]
  set t2exp "*"
  set t3exp "*"
  set t5exp "*"
  foreach tag $tagt {
    lappend tags -tag $tag
    lappend cancels -cancel $tag
  }