SQLite

Check-in [6396f80462]
Login

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

Overview
Comment:Fix the error counter in releasetest.tcl. And report the total time in HH:MM:SS instead of just seconds.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 6396f8046242286298fecd1748a6e8e786e6794e
User & Date: drh 2014-12-24 23:35:36.745
Context
2014-12-25
12:19
Update the SQLITE_CONFIG_PAGECACHE documentation so that the maximum page size is correctly stated to be 65536. (check-in: 3286424b4d user: drh tags: trunk)
2014-12-24
23:35
Fix the error counter in releasetest.tcl. And report the total time in HH:MM:SS instead of just seconds. (check-in: 6396f80462 user: drh tags: trunk)
18:11
Fix a failing assert() in balance_nonroot(). (check-in: e2e323145f user: dan tags: trunk)
Changes
Unified Diff Ignore Whitespace Patch
Changes to test/releasetest.tcl.
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
#
proc main {argv} {

  # Process any command line options.
  process_options $argv
  puts [string repeat * 70]

  set NERR 0
  set NTEST 0
  set STARTTIME [clock seconds]
  foreach {zConfig target} $::CONFIGLIST {
    if {$::QUICK} {set target test}
    if {$::BUILDONLY} {set target testfixture}
    set config_options $::Configs($zConfig)

    incr NTEST







|
|







401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
#
proc main {argv} {

  # Process any command line options.
  process_options $argv
  puts [string repeat * 70]

  set ::NERR 0
  set ::NTEST 0
  set STARTTIME [clock seconds]
  foreach {zConfig target} $::CONFIGLIST {
    if {$::QUICK} {set target test}
    if {$::BUILDONLY} {set target testfixture}
    set config_options $::Configs($zConfig)

    incr NTEST
432
433
434
435
436
437
438




439
440
441
442
443
          lreplace $config_options $debug_idx $debug_idx
        ]
      }
    }
  }

  set elapsetime [expr {[clock seconds]-$STARTTIME}]




  puts [string repeat * 70]
  puts "$NERR failures of $NTEST test suites run in $elapsetime seconds"
}

main $argv







>
>
>
>

|



432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
          lreplace $config_options $debug_idx $debug_idx
        ]
      }
    }
  }

  set elapsetime [expr {[clock seconds]-$STARTTIME}]
  set hr [expr {$elapsetime/3600}]
  set min [expr {($elapsetime/60)%60}]
  set sec [expr {$elapsetime%60}]
  set etime [format (%02d:%02d:%02d) $hr $min $sec]
  puts [string repeat * 70]
  puts "$::NERR failures of $::NTEST test suites run in $etime"
}

main $argv