/ Check-in [9e004c51]
Login

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

Overview
Comment:Add Tcl (flush) commands to exclusive2.test, which is failing on some systems but not others. (CVS 3806)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 9e004c519a30257fe3230ac7af630d296e139c9e
User & Date: danielk1977 2007-04-03 16:13:52
Context
2007-04-04
01:27
Test coverage improvements. (CVS 3807) check-in: 25f49acc user: drh tags: trunk
2007-04-03
16:13
Add Tcl (flush) commands to exclusive2.test, which is failing on some systems but not others. (CVS 3806) check-in: 9e004c51 user: danielk1977 tags: trunk
2007-04-02
22:19
Fix to Makefile.in so that "make test" works. (CVS 3805) check-in: f592dd2d user: drh tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to test/exclusive2.test.

     6      6   #    May you do good and not evil.
     7      7   #    May you find forgiveness for yourself and forgive others.
     8      8   #    May you share freely, never taking more than you give.
     9      9   #
    10     10   #***********************************************************************
    11     11   # This file implements regression tests for SQLite library.
    12     12   #
    13         -# $Id: exclusive2.test,v 1.1 2007/03/26 10:27:19 danielk1977 Exp $
           13  +# $Id: exclusive2.test,v 1.2 2007/04/03 16:13:52 danielk1977 Exp $
    14     14   
    15     15   set testdir [file dirname $argv0]
    16     16   source $testdir/tester.tcl
    17     17   
    18     18   ifcapable {!pager_pragmas} {
    19     19     finish_test
    20     20     return
................................................................................
    25     25     fconfigure $fd -translation binary -encoding binary
    26     26     if {$new ne ""} {
    27     27       seek $fd 24
    28     28       set a [expr {($new&0xFF000000)>>24}]
    29     29       set b [expr {($new&0x00FF0000)>>16}]
    30     30       set c [expr {($new&0x0000FF00)>>8}]
    31     31       set d [expr {($new&0x000000FF)}]
    32         -    puts $fd [binary format cccc $a $b $c $d]
           32  +    puts -nonewline $fd [binary format cccc $a $b $c $d]
           33  +    flush $fd
    33     34     }
    34     35   
    35     36     seek $fd 24
    36     37     foreach {a b c d} [list 0 0 0 0] {}
    37     38     binary scan [read $fd 4] cccc a b c d
    38     39     set  ret [expr ($a&0x000000FF)<<24]
    39     40     incr ret [expr ($b&0x000000FF)<<16]
................................................................................
   153    154     t1sig
   154    155   } $::sig
   155    156   
   156    157   do_test exclusive2-2.4 {
   157    158     set fd [open test.db a]
   158    159     seek $fd 1024
   159    160     puts -nonewline $fd [string repeat [binary format c 0] 10000]
          161  +  flush $fd
   160    162     t1sig
   161    163   } $::sig
   162    164   
   163    165   do_test exclusive2-2.5 {
   164    166     pagerChangeCounter test.db 5
   165    167   } {5}
   166    168   do_test exclusive2-2.6 {