/ Check-in [340a6d09]
Login

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

Overview
Comment:Test script fixes to get things running under varying configurations. No changes to code. (CVS 4378)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 340a6d09bcde11065c1887b84bb81805b523ffb6
User & Date: drh 2007-09-03 15:42:48
Context
2007-09-03
16:12
Enable threadsafe builds by default in configure. Ticket #2606. Changes to test scripts to do better testing under all configurations. (CVS 4379) check-in: d66e08fd user: drh tags: trunk
15:42
Test script fixes to get things running under varying configurations. No changes to code. (CVS 4378) check-in: 340a6d09 user: drh tags: trunk
15:26
Remove the last traces of SQLITE_ENABLE_REDEF_IO. (CVS 4377) check-in: 38dff76d user: drh tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to test/fuzz_malloc.test.

8
9
10
11
12
13
14
15
16
17
18





19
20
21
22
23
24
25
#    May you find forgiveness for yourself and forgive others.
#    May you share freely, never taking more than you give.
#
#***********************************************************************
#
# This file tests malloc failures in concert with fuzzy SQL generation.
#
# $Id: fuzz_malloc.test,v 1.8 2007/08/30 11:48:32 danielk1977 Exp $

set testdir [file dirname $argv0]
source $testdir/tester.tcl






source $testdir/malloc_common.tcl
source $testdir/fuzz_common.tcl

if {[info exists ISQUICK]} {
  set ::REPEATS 20
} elseif {[info exists SOAKTEST]} {







|



>
>
>
>
>







8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
#    May you find forgiveness for yourself and forgive others.
#    May you share freely, never taking more than you give.
#
#***********************************************************************
#
# This file tests malloc failures in concert with fuzzy SQL generation.
#
# $Id: fuzz_malloc.test,v 1.9 2007/09/03 15:42:48 drh Exp $

set testdir [file dirname $argv0]
source $testdir/tester.tcl

ifcapable !memdebug {
  finish_test
  return
}

source $testdir/malloc_common.tcl
source $testdir/fuzz_common.tcl

if {[info exists ISQUICK]} {
  set ::REPEATS 20
} elseif {[info exists SOAKTEST]} {

Changes to test/main.test.

7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
...
313
314
315
316
317
318
319


320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355


356
#    May you find forgiveness for yourself and forgive others.
#    May you share freely, never taking more than you give.
#
#***********************************************************************
# This file implements regression tests for SQLite library.  The
# focus of this file is exercising the code in main.c.
#
# $Id: main.test,v 1.26 2007/09/01 09:02:54 danielk1977 Exp $

set testdir [file dirname $argv0]
source $testdir/tester.tcl

# Only do the next group of tests if the sqlite3_complete API is available
#
ifcapable {complete} {
................................................................................
} {1 {near "create": syntax error}}
do_test main-3.6 {
  catchsql {SELECT 'abc' + #9}
} {1 {near "#9": syntax error}}

# The following test-case tests the linked list code used to manage
# sqlite3_vfs structures.


do_test main-4.1 {
  sqlite3_crash_enable 1
  sqlite3_crash_enable 0

  sqlite3async_enable 1
  sqlite3async_enable 0

  sqlite3_crash_enable 1
  sqlite3async_enable 1
  sqlite3_crash_enable 0
  sqlite3async_enable 0

  sqlite3_crash_enable 1
  sqlite3async_enable 1
  sqlite3async_enable 0
  sqlite3_crash_enable 0

  sqlite3async_enable 1
  sqlite3_crash_enable 1
  sqlite3_crash_enable 0
  sqlite3async_enable 0

  sqlite3async_enable 1
  sqlite3_crash_enable 1
  sqlite3async_enable 0
  sqlite3_crash_enable 0
} {}
do_test main-4.2 {
  set rc [catch {sqlite3 db test.db -vfs crash} msg]
  list $rc $msg
} {1 {no such vfs: crash}}
do_test main-4.3 {
  set rc [catch {sqlite3 db test.db -vfs async} msg]
  list $rc $msg
} {1 {no such vfs: async}}



finish_test







|







 







>
>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
>
>

7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
...
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
#    May you find forgiveness for yourself and forgive others.
#    May you share freely, never taking more than you give.
#
#***********************************************************************
# This file implements regression tests for SQLite library.  The
# focus of this file is exercising the code in main.c.
#
# $Id: main.test,v 1.27 2007/09/03 15:42:48 drh Exp $

set testdir [file dirname $argv0]
source $testdir/tester.tcl

# Only do the next group of tests if the sqlite3_complete API is available
#
ifcapable {complete} {
................................................................................
} {1 {near "create": syntax error}}
do_test main-3.6 {
  catchsql {SELECT 'abc' + #9}
} {1 {near "#9": syntax error}}

# The following test-case tests the linked list code used to manage
# sqlite3_vfs structures.
if {$::tcl_platform(platform)=="unix"} {
  ifcapable threadsafe {
    do_test main-4.1 {
      sqlite3_crash_enable 1
      sqlite3_crash_enable 0
    
      sqlite3async_enable 1
      sqlite3async_enable 0
    
      sqlite3_crash_enable 1
      sqlite3async_enable 1
      sqlite3_crash_enable 0
      sqlite3async_enable 0
    
      sqlite3_crash_enable 1
      sqlite3async_enable 1
      sqlite3async_enable 0
      sqlite3_crash_enable 0
    
      sqlite3async_enable 1
      sqlite3_crash_enable 1
      sqlite3_crash_enable 0
      sqlite3async_enable 0
    
      sqlite3async_enable 1
      sqlite3_crash_enable 1
      sqlite3async_enable 0
      sqlite3_crash_enable 0
    } {}
    do_test main-4.2 {
      set rc [catch {sqlite3 db test.db -vfs crash} msg]
      list $rc $msg
    } {1 {no such vfs: crash}}
    do_test main-4.3 {
      set rc [catch {sqlite3 db test.db -vfs async} msg]
      list $rc $msg
    } {1 {no such vfs: async}}
  }
}
    
finish_test