/ Check-in [c2e5faca]
Login

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

Overview
Comment:Fix typo in previous tester.tcl commit.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:c2e5faca144d2c25aada2a77b4ddefa5ca6ea925
User & Date: shaneh 2011-06-21 19:39:59
Context
2011-06-22
10:37
Modify the implementation of the test code in test_vfs.c so that test VFS objects may be invoked recursively. check-in: 065e5a5e user: dan tags: trunk
2011-06-21
19:39
Fix typo in previous tester.tcl commit. check-in: c2e5faca user: shaneh tags: trunk
19:38
Update filepath_normalize for unix. check-in: 30dd4f88 user: shaneh tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to test/tester.tcl.

352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
    puts " Ok"
  }
  flush stdout
}

proc filepath_normalize {p} {
  # test cases should be written to assume "unix"-like file paths
  if {$::tcl_platform(platform)=="unix"} {
    # lreverse*2 as a hack to remove any unneeded {} after the string map
    lreverse [lreverse [string map {\\ /} [regsub -nocase -all {[a-z]:[/\\]+} $p {/}]]]
  } {
    set p
  }
}
proc do_filepath_test {name cmd expected} {







|







352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
    puts " Ok"
  }
  flush stdout
}

proc filepath_normalize {p} {
  # test cases should be written to assume "unix"-like file paths
  if {$::tcl_platform(platform)!="unix"} {
    # lreverse*2 as a hack to remove any unneeded {} after the string map
    lreverse [lreverse [string map {\\ /} [regsub -nocase -all {[a-z]:[/\\]+} $p {/}]]]
  } {
    set p
  }
}
proc do_filepath_test {name cmd expected} {