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: |
340a6d09bcde11065c1887b84bb81805 |
| 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
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 |