System.Data.SQLite
Check-in [e2dffd3a80]
Not logged in

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

Overview
Comment:Enhancements to tests added by the previous check-in.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: e2dffd3a8032b3849698c60c4512e3be916ec8ed
User & Date: mistachkin 2018-02-26 19:31:01
Context
2018-02-26
20:23
The SetConfigurationOption method needs to throw an exception when the core library result code indicates an error. check-in: ca6b82074a user: mistachkin tags: trunk
19:31
Enhancements to tests added by the previous check-in. check-in: e2dffd3a80 user: mistachkin tags: trunk
19:17
Add tests for the database option values added via check-in [b7ba6996c1]. check-in: b3872ff42e user: mistachkin tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to Tests/basic.eagle.

  4976   4976           set value [object invoke -create System.Boolean Parse true]
  4977   4977         }
  4978   4978       }
  4979   4979   
  4980   4980       lappend result [$connection SetConfigurationOption $dbConfig $value]
  4981   4981     }
  4982   4982   
         4983  +  set current(0) 0; set highwater(0) 0
         4984  +
         4985  +  lappend result [$connection -flags +NonPublic \
         4986  +      _sql.GetStatusParameter SQLITE_DBSTATUS_LOOKASIDE_USED \
         4987  +      false current(0) highwater(0)]
         4988  +
         4989  +  lappend result $current(0) $highwater(0)
         4990  +
  4983   4991     sql execute $db {
  4984   4992       CREATE TABLE t1(x);
  4985   4993       INSERT INTO t1 (x) VALUES(RANDOMBLOB(1024));
  4986   4994     }
  4987   4995   
  4988         -  set current 0; set highwater 0
         4996  +  set current(1) 0; set highwater(1) 0
  4989   4997   
  4990   4998     lappend result [$connection -flags +NonPublic \
  4991   4999         _sql.GetStatusParameter SQLITE_DBSTATUS_LOOKASIDE_USED \
  4992         -      false current highwater]
         5000  +      false current(1) highwater(1)]
         5001  +
         5002  +  lappend result $current(1) $highwater(1)
  4993   5003   
  4994         -  lappend result $current $highwater
         5004  +  lappend result [expr {$current(1) == $current(0)}]
         5005  +  lappend result [expr {$highwater(1) > $highwater(0)}]
  4995   5006   } -cleanup {
  4996   5007     cleanupDb $fileName
  4997   5008   
  4998   5009     freeDbConnection
  4999   5010   
  5000   5011     if {[info exists ptr]} then {
  5001   5012       object invoke -flags +NonPublic \
................................................................................
  5002   5013           System.Data.SQLite.SQLiteMemory Free $ptr
  5003   5014     }
  5004   5015   
  5005   5016     unset -nocomplain current highwater ints ptr value
  5006   5017     unset -nocomplain result dbConfig dbConfigs
  5007   5018     unset -nocomplain connection db fileName
  5008   5019   } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\
  5009         -System.Data.SQLite} -result {{} {} {} {} {} {} {} {} {} {} Ok 48 100}}
         5020  +System.Data.SQLite} -match regexp -result {^\{\} \{\} \{\} \{\} \{\} \{\} \{\}\
         5021  +\{\} \{\} \{\} Ok \d+ \d+ Ok \d+ \d+ True True$}}
  5010   5022   
  5011   5023   ###############################################################################
  5012   5024   
  5013   5025   reportSQLiteResources $test_channel
  5014   5026   
  5015   5027   ###############################################################################
  5016   5028   
  5017   5029   runSQLiteTestFilesEpilogue
  5018   5030   runSQLiteTestEpilogue
  5019   5031   runTestEpilogue