Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Add test for ticket [4a791e70ab]. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
f11d1e6b7442d33203863ce93f9f7bfe |
User & Date: | mistachkin 2013-04-10 07:16:44.372 |
Context
2013-04-11
| ||
09:55 | Improve diagnostic output from the .NET Compact Framework testing tool. Also, update the master release archive manifest. check-in: 5b5f922631 user: mistachkin tags: trunk | |
2013-04-10
| ||
07:16 | Add test for ticket [4a791e70ab]. check-in: f11d1e6b74 user: mistachkin tags: trunk | |
2013-04-09
| ||
22:34 | Preliminary fix for ticket [4a791e70ab]. Lacks tests. check-in: 89a866c1e8 user: mistachkin tags: trunk | |
Changes
Added Tests/tkt-4a791e70ab.eagle.
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 | ############################################################################### # # tkt-4a791e70ab.eagle -- # # Written by Joe Mistachkin. # Released to the public domain, use at your own risk! # ############################################################################### package require Eagle package require Eagle.Library package require Eagle.Test runTestPrologue ############################################################################### package require System.Data.SQLite.Test runSQLiteTestPrologue ############################################################################### runTest {test tkt-4a791e70ab-1.1 {SQLiteDataAdapter w/SelectCommand} -setup { setupDb [set fileName tkt-4a791e70ab-1.1.db] } -body { sql execute $db "CREATE TABLE t1(x);" set id [object invoke Interpreter.GetActive NextId] set dataSource [file join [getDatabaseDirectory] $fileName] unset -nocomplain results errors set code [compileCSharpWith [subst { using System.Data.SQLite; namespace _Dynamic${id} { public static class Test${id} { public static void Main() { using (SQLiteConnection connection = new SQLiteConnection( "Data Source=${dataSource};")) { connection.Open(); using (SQLiteCommand command = connection.CreateCommand()) { command.CommandText = "SELECT x FROM t1 ORDER BY x;"; using (SQLiteDataAdapter dataAdapter = new SQLiteDataAdapter( command)) { // do nothing. } string sql = command.CommandText; /* ObjectDisposedException? */ } } } } } }] true true true results errors System.Data.SQLite.dll] list $code $results \ [expr {[info exists errors] ? $errors : ""}] \ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code dataSource id db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -match \ regexp -result {^Ok System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\}$}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |