wasCSharpSQLite – Blame information for rev 4
?pathlinks?
Rev | Author | Line No. | Line |
---|---|---|---|
1 | office | 1 | ######################################################################################### |
2 | # This file drives the testharness |
||
3 | # |
||
4 | ######################################################################################### |
||
5 | set testdir [file dirname $argv0] |
||
6 | source $testdir/tester.tcl |
||
7 | |||
8 | do_test SIMPLE_SQLITE_VERSION { |
||
9 | execsql { |
||
10 | SELECT SQLITE_VERSION(), SQLITE_SOURCE_ID(); |
||
11 | } |
||
12 | } {3.7.7(C#) {Ported to C# from 2011-06-23 19:49:22 4374b7e83ea0a3fbc3691f9c0c936272862f32f2}} |
||
13 | |||
14 | |||
15 | ########################################################################################## |
||
16 | #puts -nonewline "Press RETURN to exit..."; gets stdin; exit 0 |
||
17 | |||
18 | set filter "" |
||
19 | |||
20 | if [info exists argv] { |
||
21 | set TESTSUITE $argv |
||
22 | puts "Running tests ($argv)" |
||
23 | } else { |
||
24 | set TESTSUITE "QUICK" |
||
25 | puts "running allquicktests" |
||
26 | } |
||
27 | if [string compare $filter "skip"] { |
||
28 | if ![string compare $filter ""] {puts -nonewline "Enter test name prefix:"; set filter [gets stdin]} |
||
29 | source $testdir/_C#SQLite.test |
||
30 | } |
||
31 | |||
32 | set tm1 [clock seconds] |
||
33 | if ![string compare $filter ""] { |
||
34 | set rc [run_test_suite C#SQLitetests] |
||
35 | } else { |
||
36 | set rc [run_test_suite C#SQLiteFilterTests] |
||
37 | } |
||
38 | set tm2 [clock seconds] |
||
39 | |||
40 | set minutes [expr {($tm2-$tm1)/60}] |
||
41 | set seconds [expr {($tm2-$tm1)%60}] |
||
42 | puts [format "\nTests ran in (%d:%.2d) " $minutes $seconds] |
||
43 | finish_test |
||
44 | ########################################################################################## |
||
45 | |||
46 | |||
47 | |||
48 | ########################################################################################## |
||
49 | # |
||
50 | # Sample TCL command sequences |
||
51 | # |
||
52 | ########################################################################################## |
||
53 | |||
54 | do_test SIMPLE_SQLITE_VERSION { |
||
55 | execsql { |
||
56 | SELECT SQLITE_VERSION(), SQLITE_SOURCE_ID(); |
||
57 | } |
||
58 | } {3.7.7(C#) {Ported to C# from 2011-06-23 19:49:22 4374b7e83ea0a3fbc3691f9c0c936272862f32f2}} |
||
59 | |||
60 | |||
61 | do_test SIMPLE_COUNT_SQL_MASTER { |
||
62 | execsql { |
||
63 | SELECT COUNT() FROM SQLITE_MASTER; |
||
64 | } |
||
65 | } {0} |
||
66 | do_test SIMPLE_CREATE_TABLE { |
||
67 | execsql { |
||
68 | CREATE TABLE T1 (C1); |
||
69 | } |
||
70 | } {} |
||
71 | |||
72 | do_test SIMPLE_SELECT_ALL { |
||
73 | execsql { |
||
74 | SELECT * FROM SQLITE_MASTER; |
||
75 | } |
||
76 | } {table T1 T1 2 {CREATE TABLE T1 (C1)}} |
||
77 | |||
78 | |||
79 | |||
80 | ########################################################################################## |
||
81 | # |
||
82 | # TCL Test suites |
||
83 | # |
||
84 | # help will display the test suites and descriptions |
||
85 | # the supported test suites are listed below |
||
86 | ########################################################################################## |
||
87 | # |
||
88 | # Test suite: "C#SQLitetests" |
||
89 | # Quick test suite for C#-SQLite. Runs in around 7 minutes on a workstation. |
||
90 | # |
||
91 | # test_list C#SQLitetests will display the individual file names |
||
92 | ########################################################################################## |