/ Check-in [b0f47963]
Login

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

Overview
Comment:Adjust filename globbing in backcompat.test for Windows.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:b0f4796306a2cb11d6897d5c33f5da05c7473e07
User & Date: shaneh 2010-08-19 18:05:46
Context
2010-08-20
09:14
Fix the sqlite3_release_memory() interface so that it does not attempt to free SQLITE_CONFIG_PAGECACHE memory. check-in: 0426cd62 user: drh tags: trunk
2010-08-19
18:05
Adjust filename globbing in backcompat.test for Windows. check-in: b0f47963 user: shaneh tags: trunk
17:16
Fix backcompat.test so that it works with windows mandatory locking. check-in: 8d05f66d user: dan tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to test/backcompat.test.

    31     31   
    32     32   # Search for binaries to test against. Any executable files that match
    33     33   # our naming convention are assumed to be testfixture binaries to test
    34     34   # against.
    35     35   #
    36     36   set binaries [list]
    37     37   set pattern "[file tail [info nameofexec]]*"
           38  +if {$tcl_platform(platform)=="windows"} {
           39  +  set pattern [string map {\.exe {}} $pattern]
           40  +}
    38     41   foreach file [glob $pattern] {
    39     42     if {[file executable $file]} {lappend binaries $file}
    40     43   }
    41     44   if {[llength $binaries]==0} {
    42     45     puts "WARNING: No binaries to test against. No tests have been run."
    43     46     finish_test
    44     47     return
................................................................................
    88     91   proc do_allbackcompat_test {script} {
    89     92   
    90     93     foreach bin $::binaries {
    91     94       set nErr [set_test_counter errors]
    92     95       foreach dir {0 1} {
    93     96   
    94     97         set bintag [string map {testfixture {}} $bin]
           98  +      set bintag [string map {\.exe {}} $bintag]
    95     99         if {$bintag == ""} {set bintag self}
    96    100         set ::bcname ".$bintag.$dir."
    97    101   
    98    102         rename do_test _do_test
    99    103         proc do_test {nm sql res} {
   100    104           set nm [regsub {\.} $nm $::bcname]
   101    105           uplevel [list _do_test $nm $sql $res]
................................................................................
   197    201   
   198    202     do_test backcompat-1.2.3 { sql1 {
   199    203       BEGIN;
   200    204         UPDATE t1 SET a = randomblob(500);
   201    205     } } {}
   202    206     set data [read_file_system]
   203    207   
   204         -  set f "test.db-journal[incr x]"
   205         -  file copy -force test.db-journal $f
   206         -
   207    208     do_test backcompat-1.2.4 { sql1 { COMMIT } } {}
   208    209   
   209    210     set same [expr {[sql2 {SELECT md5sum(a), md5sum(b) FROM t1}] == $cksum2}]
   210    211     do_test backcompat-1.2.5 [list set {} $same] 0
   211    212   
   212    213     code1 { db close }
   213    214     code2 { db close }