wasCSharpSQLite – Blame information for rev 4

Subversion Repositories:
Rev:
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 ##########################################################################################