System.Data.SQLite
Hex Artifact Content
Not logged in
          HomeFAQDownloadTimelineBranchesTicketsLogin
Download

Artifact d29cf8c08fcf29ca97f7b9bf074ab75556ea63a3:

0000: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0010: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0020: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0030: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0040: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d  ###############.
0050: 0a 23 0d 0a 23 20 74 6b 74 2d 33 34 33 64 33 39  .#..# tkt-343d39
0060: 32 62 35 31 2e 65 61 67 6c 65 20 2d 2d 0d 0a 23  2b51.eagle --..#
0070: 0d 0a 23 20 57 72 69 74 74 65 6e 20 62 79 20 4a  ..# Written by J
0080: 6f 65 20 4d 69 73 74 61 63 68 6b 69 6e 2e 0d 0a  oe Mistachkin...
0090: 23 20 52 65 6c 65 61 73 65 64 20 74 6f 20 74 68  # Released to th
00a0: 65 20 70 75 62 6c 69 63 20 64 6f 6d 61 69 6e 2c  e public domain,
00b0: 20 75 73 65 20 61 74 20 79 6f 75 72 20 6f 77 6e   use at your own
00c0: 20 72 69 73 6b 21 0d 0a 23 0d 0a 23 23 23 23 23   risk!..#..#####
00d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
00e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
00f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0100: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0110: 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 70 61  ##########....pa
0120: 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 45 61  ckage require Ea
0130: 67 6c 65 0d 0a 70 61 63 6b 61 67 65 20 72 65 71  gle..package req
0140: 75 69 72 65 20 45 61 67 6c 65 4c 69 62 72 61 72  uire EagleLibrar
0150: 79 0d 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69  y..package requi
0160: 72 65 20 45 61 67 6c 65 54 65 73 74 0d 0a 0d 0a  re EagleTest....
0170: 72 75 6e 54 65 73 74 50 72 6f 6c 6f 67 75 65 0d  runTestPrologue.
0180: 0a 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 23  ...#############
0190: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
01a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
01b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
01c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
01d0: 23 23 0d 0a 0d 0a 70 61 63 6b 61 67 65 20 72 65  ##....package re
01e0: 71 75 69 72 65 20 53 79 73 74 65 6d 2e 44 61 74  quire System.Dat
01f0: 61 2e 53 51 4c 69 74 65 2e 54 65 73 74 0d 0a 72  a.SQLite.Test..r
0200: 75 6e 53 51 4c 69 74 65 54 65 73 74 50 72 6f 6c  unSQLiteTestProl
0210: 6f 67 75 65 0d 0a 0d 0a 23 23 23 23 23 23 23 23  ogue....########
0220: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0230: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0240: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0250: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0260: 23 23 23 23 23 23 23 0d 0a 0d 0a 72 75 6e 54 65  #######....runTe
0270: 73 74 20 7b 74 65 73 74 20 74 6b 74 2d 33 34 33  st {test tkt-343
0280: 64 33 39 32 62 35 31 2d 31 2e 31 20 7b 53 51 4c  d392b51-1.1 {SQL
0290: 69 74 65 44 61 74 61 41 64 61 70 74 65 72 20 62  iteDataAdapter b
02a0: 61 74 63 68 20 75 70 64 61 74 65 73 7d 20 2d 73  atch updates} -s
02b0: 65 74 75 70 20 7b 0d 0a 20 20 73 65 74 75 70 44  etup {..  setupD
02c0: 62 20 5b 73 65 74 20 66 69 6c 65 4e 61 6d 65 20  b [set fileName 
02d0: 74 6b 74 2d 33 34 33 64 33 39 32 62 35 31 2d 31  tkt-343d392b51-1
02e0: 2e 31 2e 64 62 5d 0d 0a 20 20 73 65 74 20 6f 74  .1.db]..  set ot
02f0: 68 65 72 46 69 6c 65 4e 61 6d 65 20 74 6b 74 2d  herFileName tkt-
0300: 33 34 33 64 33 39 32 62 35 31 2d 31 2e 31 2d 6f  343d392b51-1.1-o
0310: 74 68 65 72 44 62 2e 64 62 0d 0a 7d 20 2d 62 6f  therDb.db..} -bo
0320: 64 79 20 7b 0d 0a 20 20 73 65 74 20 69 64 20 5b  dy {..  set id [
0330: 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 49 6e  object invoke In
0340: 74 65 72 70 72 65 74 65 72 2e 47 65 74 41 63 74  terpreter.GetAct
0350: 69 76 65 20 4e 65 78 74 49 64 5d 0d 0a 20 20 73  ive NextId]..  s
0360: 65 74 20 64 61 74 61 53 6f 75 72 63 65 20 5b 66  et dataSource [f
0370: 69 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 54 65 6d  ile join [getTem
0380: 70 6f 72 61 72 79 50 61 74 68 5d 20 24 66 69 6c  poraryPath] $fil
0390: 65 4e 61 6d 65 5d 0d 0a 20 20 73 65 74 20 6f 74  eName]..  set ot
03a0: 68 65 72 44 61 74 61 53 6f 75 72 63 65 20 5b 66  herDataSource [f
03b0: 69 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 54 65 6d  ile join [getTem
03c0: 70 6f 72 61 72 79 50 61 74 68 5d 20 24 6f 74 68  poraryPath] $oth
03d0: 65 72 46 69 6c 65 4e 61 6d 65 5d 0d 0a 20 20 73  erFileName]..  s
03e0: 65 74 20 6f 74 68 65 72 44 62 4e 61 6d 65 20 6f  et otherDbName o
03f0: 74 68 65 72 44 62 0d 0a 20 20 73 65 74 20 74 61  therDb..  set ta
0400: 62 6c 65 20 5b 61 70 70 65 6e 64 41 72 67 73 20  ble [appendArgs 
0410: 24 6f 74 68 65 72 44 62 4e 61 6d 65 20 2e 74 31  $otherDbName .t1
0420: 5d 0d 0a 0d 0a 20 20 73 65 74 20 73 71 6c 28 31  ]....  set sql(1
0430: 29 20 5b 73 75 62 73 74 20 7b 20 5c 0d 0a 20 20  ) [subst { \..  
0440: 20 20 41 54 54 41 43 48 20 44 41 54 41 42 41 53    ATTACH DATABAS
0450: 45 20 27 24 7b 6f 74 68 65 72 44 61 74 61 53 6f  E '${otherDataSo
0460: 75 72 63 65 7d 27 20 41 53 20 24 7b 6f 74 68 65  urce}' AS ${othe
0470: 72 44 62 4e 61 6d 65 7d 3b 20 5c 0d 0a 20 20 20  rDbName}; \..   
0480: 20 43 52 45 41 54 45 20 54 41 42 4c 45 20 24 7b   CREATE TABLE ${
0490: 74 61 62 6c 65 7d 28 78 20 49 4e 54 45 47 45 52  table}(x INTEGER
04a0: 20 50 52 49 4d 41 52 59 20 4b 45 59 2c 20 79 29   PRIMARY KEY, y)
04b0: 3b 20 5c 0d 0a 20 20 20 20 5b 66 6f 72 20 7b 73  ; \..    [for {s
04c0: 65 74 20 69 20 31 7d 20 7b 24 69 20 3c 20 32 30  et i 1} {$i < 20
04d0: 30 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0d 0a 20  0} {incr i} {.. 
04e0: 20 20 20 20 20 61 70 70 65 6e 64 20 73 71 6c 28       append sql(
04f0: 69 6e 73 65 72 74 73 29 20 5c 0d 0a 20 20 20 20  inserts) \..    
0500: 20 20 20 20 20 20 22 49 4e 53 45 52 54 20 49 4e        "INSERT IN
0510: 54 4f 20 24 7b 74 61 62 6c 65 7d 20 28 78 2c 20  TO ${table} (x, 
0520: 79 29 20 56 41 4c 55 45 53 28 24 69 2c 20 27 24  y) VALUES($i, '$
0530: 69 27 29 3b 20 22 0d 0a 20 20 20 20 7d 3b 20 72  i'); "..    }; r
0540: 65 74 75 72 6e 20 5b 65 78 70 72 20 7b 5b 69 6e  eturn [expr {[in
0550: 66 6f 20 65 78 69 73 74 73 20 73 71 6c 28 69 6e  fo exists sql(in
0560: 73 65 72 74 73 29 5d 20 3f 20 24 73 71 6c 28 69  serts)] ? $sql(i
0570: 6e 73 65 72 74 73 29 20 3a 20 22 22 7d 5d 5d 20  nserts) : ""}]] 
0580: 5c 0d 0a 20 20 7d 5d 0d 0a 0d 0a 20 20 73 65 74  \..  }]....  set
0590: 20 73 71 6c 28 32 29 20 5b 73 75 62 73 74 20 7b   sql(2) [subst {
05a0: 20 5c 0d 0a 20 20 20 20 53 45 4c 45 43 54 20 78   \..    SELECT x
05b0: 2c 20 79 20 46 52 4f 4d 20 24 7b 74 61 62 6c 65  , y FROM ${table
05c0: 7d 20 4f 52 44 45 52 20 42 59 20 78 3b 20 5c 0d  } ORDER BY x; \.
05d0: 0a 20 20 7d 5d 0d 0a 0d 0a 20 20 75 6e 73 65 74  .  }]....  unset
05e0: 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65 73   -nocomplain res
05f0: 75 6c 74 73 20 65 72 72 6f 72 73 0d 0a 0d 0a 20  ults errors.... 
0600: 20 73 65 74 20 63 6f 64 65 20 5b 63 6f 6d 70 69   set code [compi
0610: 6c 65 43 53 68 61 72 70 57 69 74 68 20 5b 73 75  leCSharpWith [su
0620: 62 73 74 20 7b 0d 0a 20 20 20 20 75 73 69 6e 67  bst {..    using
0630: 20 53 79 73 74 65 6d 2e 44 61 74 61 3b 0d 0a 20   System.Data;.. 
0640: 20 20 20 75 73 69 6e 67 20 53 79 73 74 65 6d 2e     using System.
0650: 44 61 74 61 2e 53 51 4c 69 74 65 3b 0d 0a 0d 0a  Data.SQLite;....
0660: 20 20 20 20 6e 61 6d 65 73 70 61 63 65 20 5f 44      namespace _D
0670: 79 6e 61 6d 69 63 24 7b 69 64 7d 0d 0a 20 20 20  ynamic${id}..   
0680: 20 7b 0d 0a 20 20 20 20 20 20 70 75 62 6c 69 63   {..      public
0690: 20 63 6c 61 73 73 20 54 65 73 74 24 7b 69 64 7d   class Test${id}
06a0: 0d 0a 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20  ..      {..     
06b0: 20 20 20 70 75 62 6c 69 63 20 73 74 61 74 69 63     public static
06c0: 20 76 6f 69 64 20 4d 61 69 6e 28 29 0d 0a 20 20   void Main()..  
06d0: 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20        {..       
06e0: 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65     using (SQLite
06f0: 43 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65  Connection conne
0700: 63 74 69 6f 6e 20 3d 20 6e 65 77 20 53 51 4c 69  ction = new SQLi
0710: 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a 20  teConnection(.. 
0720: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 44 61               "Da
0730: 74 61 20 53 6f 75 72 63 65 3d 24 7b 64 61 74 61  ta Source=${data
0740: 53 6f 75 72 63 65 7d 3b 22 29 29 0d 0a 20 20 20  Source};"))..   
0750: 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20         {..      
0760: 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e        connection
0770: 2e 4f 70 65 6e 28 29 3b 0d 0a 0d 0a 20 20 20 20  .Open();....    
0780: 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 28 53          using (S
0790: 51 4c 69 74 65 43 6f 6d 6d 61 6e 64 20 63 6f 6d  QLiteCommand com
07a0: 6d 61 6e 64 20 3d 20 63 6f 6e 6e 65 63 74 69 6f  mand = connectio
07b0: 6e 2e 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28  n.CreateCommand(
07c0: 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  ))..            
07d0: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  {..             
07e0: 20 63 6f 6d 6d 61 6e 64 2e 43 6f 6d 6d 61 6e 64   command.Command
07f0: 54 65 78 74 20 3d 20 22 24 7b 73 71 6c 28 31 29  Text = "${sql(1)
0800: 7d 22 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  }";..           
0810: 20 20 20 63 6f 6d 6d 61 6e 64 2e 45 78 65 63 75     command.Execu
0820: 74 65 4e 6f 6e 51 75 65 72 79 28 29 3b 0d 0a 20  teNonQuery();.. 
0830: 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a             }....
0840: 20 20 20 20 20 20 20 20 20 20 20 20 75 73 69 6e              usin
0850: 67 20 28 53 51 4c 69 74 65 44 61 74 61 41 64 61  g (SQLiteDataAda
0860: 70 74 65 72 20 64 61 74 61 41 64 61 70 74 65 72  pter dataAdapter
0870: 20 3d 20 6e 65 77 20 53 51 4c 69 74 65 44 61 74   = new SQLiteDat
0880: 61 41 64 61 70 74 65 72 28 0d 0a 20 20 20 20 20  aAdapter(..     
0890: 20 20 20 20 20 20 20 20 20 20 20 22 24 7b 73 71             "${sq
08a0: 6c 28 32 29 7d 22 2c 20 63 6f 6e 6e 65 63 74 69  l(2)}", connecti
08b0: 6f 6e 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20  on))..          
08c0: 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20    {..           
08d0: 20 20 20 75 73 69 6e 67 20 28 44 61 74 61 53 65     using (DataSe
08e0: 74 20 64 61 74 61 53 65 74 20 3d 20 6e 65 77 20  t dataSet = new 
08f0: 44 61 74 61 53 65 74 28 29 29 0d 0a 20 20 20 20  DataSet())..    
0900: 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20            {..   
0910: 20 20 20 20 20 20 20 20 20 20 20 20 20 64 61 74               dat
0920: 61 41 64 61 70 74 65 72 2e 46 69 6c 6c 28 64 61  aAdapter.Fill(da
0930: 74 61 53 65 74 2c 20 22 24 7b 74 61 62 6c 65 7d  taSet, "${table}
0940: 22 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20  ");....         
0950: 20 20 20 20 20 20 20 44 61 74 61 54 61 62 6c 65         DataTable
0960: 20 64 61 74 61 54 61 62 6c 65 20 3d 20 64 61 74   dataTable = dat
0970: 61 53 65 74 2e 54 61 62 6c 65 73 5c 5b 22 24 7b  aSet.Tables\["${
0980: 74 61 62 6c 65 7d 22 5c 5d 3b 0d 0a 0d 0a 20 20  table}"\];....  
0990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 61                da
09a0: 74 61 54 61 62 6c 65 2e 43 6f 6c 75 6d 6e 73 5c  taTable.Columns\
09b0: 5b 22 78 22 5c 5d 2e 55 6e 69 71 75 65 20 3d 20  ["x"\].Unique = 
09c0: 74 72 75 65 3b 0d 0a 20 20 20 20 20 20 20 20 20  true;..         
09d0: 20 20 20 20 20 20 20 64 61 74 61 54 61 62 6c 65         dataTable
09e0: 2e 50 72 69 6d 61 72 79 4b 65 79 20 3d 20 6e 65  .PrimaryKey = ne
09f0: 77 20 44 61 74 61 43 6f 6c 75 6d 6e 5c 5b 5c 5d  w DataColumn\[\]
0a00: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
0a10: 20 20 20 20 20 20 64 61 74 61 54 61 62 6c 65 2e        dataTable.
0a20: 43 6f 6c 75 6d 6e 73 5c 5b 22 78 22 5c 5d 0d 0a  Columns\["x"\]..
0a30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0a40: 7d 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20  };....          
0a50: 20 20 20 20 20 20 53 51 4c 69 74 65 43 6f 6d 6d        SQLiteComm
0a60: 61 6e 64 42 75 69 6c 64 65 72 20 63 6f 6d 6d 61  andBuilder comma
0a70: 6e 64 42 75 69 6c 64 65 72 20 3d 0d 0a 20 20 20  ndBuilder =..   
0a80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0a90: 20 6e 65 77 20 53 51 4c 69 74 65 43 6f 6d 6d 61   new SQLiteComma
0aa0: 6e 64 42 75 69 6c 64 65 72 28 64 61 74 61 41 64  ndBuilder(dataAd
0ab0: 61 70 74 65 72 29 3b 0d 0a 0d 0a 20 20 20 20 20  apter);....     
0ac0: 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 65 61             forea
0ad0: 63 68 20 28 44 61 74 61 52 6f 77 20 64 61 74 61  ch (DataRow data
0ae0: 52 6f 77 20 69 6e 20 64 61 74 61 54 61 62 6c 65  Row in dataTable
0af0: 2e 52 6f 77 73 29 0d 0a 20 20 20 20 20 20 20 20  .Rows)..        
0b00: 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20          {..     
0b10: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 0d               //.
0b20: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0b30: 20 20 20 2f 2f 20 4e 4f 54 45 3a 20 55 70 64 61     // NOTE: Upda
0b40: 74 65 20 65 76 65 6e 20 72 6f 77 73 20 61 6e 64  te even rows and
0b50: 20 64 65 6c 65 74 65 20 6f 64 64 20 72 6f 77 73   delete odd rows
0b60: 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  ...             
0b70: 20 20 20 20 20 2f 2f 0d 0a 20 20 20 20 20 20 20       //..       
0b80: 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 28             if ((
0b90: 6c 6f 6e 67 29 64 61 74 61 52 6f 77 5c 5b 22 78  long)dataRow\["x
0ba0: 22 5c 5d 20 25 20 32 20 3d 3d 20 30 29 0d 0a 20  "\] % 2 == 0).. 
0bb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0bc0: 20 20 20 64 61 74 61 52 6f 77 5c 5b 22 79 22 5c     dataRow\["y"\
0bd0: 5d 20 3d 20 22 7a 65 72 6f 22 3b 0d 0a 20 20 20  ] = "zero";..   
0be0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65                 e
0bf0: 6c 73 65 0d 0a 20 20 20 20 20 20 20 20 20 20 20  lse..           
0c00: 20 20 20 20 20 20 20 20 20 64 61 74 61 52 6f 77           dataRow
0c10: 2e 44 65 6c 65 74 65 28 29 3b 0d 0a 0d 0a 20 20  .Delete();....  
0c20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0c30: 62 72 65 61 6b 3b 0d 0a 20 20 20 20 20 20 20 20  break;..        
0c40: 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20          }....   
0c50: 20 20 20 20 20 20 20 20 20 20 20 20 20 64 61 74               dat
0c60: 61 41 64 61 70 74 65 72 2e 55 70 64 61 74 65 28  aAdapter.Update(
0c70: 64 61 74 61 54 61 62 6c 65 29 3b 20 2f 2f 20 44  dataTable); // D
0c80: 42 43 6f 6e 63 75 72 72 65 6e 63 79 45 78 63 65  BConcurrencyExce
0c90: 70 74 69 6f 6e 20 28 3f 29 0d 0a 20 20 20 20 20  ption (?)..     
0ca0: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20           }..    
0cb0: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20          }..     
0cc0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20       }..        
0cd0: 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20  }..      }..    
0ce0: 7d 0d 0a 20 20 7d 5d 20 72 65 73 75 6c 74 73 20  }..  }] results 
0cf0: 65 72 72 6f 72 73 20 53 79 73 74 65 6d 2e 44 61  errors System.Da
0d00: 74 61 2e 53 51 4c 69 74 65 2e 64 6c 6c 5d 0d 0a  ta.SQLite.dll]..
0d10: 0d 0a 20 20 6c 69 73 74 20 24 63 6f 64 65 20 24  ..  list $code $
0d20: 72 65 73 75 6c 74 73 20 5c 0d 0a 20 20 20 20 20  results \..     
0d30: 20 5b 65 78 70 72 20 7b 5b 69 6e 66 6f 20 65 78   [expr {[info ex
0d40: 69 73 74 73 20 65 72 72 6f 72 73 5d 20 3f 20 24  ists errors] ? $
0d50: 65 72 72 6f 72 73 20 3a 20 22 22 7d 5d 20 5c 0d  errors : ""}] \.
0d60: 0a 20 20 20 20 20 20 5b 65 78 70 72 20 7b 24 63  .      [expr {$c
0d70: 6f 64 65 20 65 71 20 22 4f 6b 22 20 3f 20 5b 63  ode eq "Ok" ? [c
0d80: 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20  atch {..        
0d90: 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 5f 44  object invoke _D
0da0: 79 6e 61 6d 69 63 24 7b 69 64 7d 2e 54 65 73 74  ynamic${id}.Test
0db0: 24 7b 69 64 7d 20 4d 61 69 6e 0d 0a 20 20 20 20  ${id} Main..    
0dc0: 20 20 7d 20 72 65 73 75 6c 74 5d 20 3a 20 5b 73    } result] : [s
0dd0: 65 74 20 72 65 73 75 6c 74 20 22 22 5d 7d 5d 20  et result ""]}] 
0de0: 24 72 65 73 75 6c 74 0d 0a 7d 20 2d 63 6c 65 61  $result..} -clea
0df0: 6e 75 70 20 7b 0d 0a 20 20 63 6c 65 61 6e 75 70  nup {..  cleanup
0e00: 44 62 20 24 6f 74 68 65 72 46 69 6c 65 4e 61 6d  Db $otherFileNam
0e10: 65 0d 0a 20 20 63 6c 65 61 6e 75 70 44 62 20 24  e..  cleanupDb $
0e20: 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 75 6e  fileName....  un
0e30: 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20  set -nocomplain 
0e40: 72 65 73 75 6c 74 20 63 6f 64 65 20 72 65 73 75  result code resu
0e50: 6c 74 73 20 65 72 72 6f 72 73 20 69 20 73 71 6c  lts errors i sql
0e60: 20 74 61 62 6c 65 20 6f 74 68 65 72 44 62 4e 61   table otherDbNa
0e70: 6d 65 20 5c 0d 0a 20 20 20 20 20 20 6f 74 68 65  me \..      othe
0e80: 72 44 61 74 61 53 6f 75 72 63 65 20 64 61 74 61  rDataSource data
0e90: 53 6f 75 72 63 65 20 69 64 20 64 62 20 6f 74 68  Source id db oth
0ea0: 65 72 46 69 6c 65 4e 61 6d 65 20 66 69 6c 65 4e  erFileName fileN
0eb0: 61 6d 65 0d 0a 7d 20 2d 63 6f 6e 73 74 72 61 69  ame..} -constrai
0ec0: 6e 74 73 20 5c 0d 0a 7b 65 61 67 6c 65 20 6d 6f  nts \..{eagle mo
0ed0: 6e 6f 42 75 67 32 38 20 63 6f 6d 6d 61 6e 64 2e  noBug28 command.
0ee0: 73 71 6c 20 63 6f 6d 70 69 6c 65 2e 44 41 54 41  sql compile.DATA
0ef0: 20 53 51 4c 69 74 65 20 53 79 73 74 65 6d 2e 44   SQLite System.D
0f00: 61 74 61 2e 53 51 4c 69 74 65 7d 20 2d 6d 61 74  ata.SQLite} -mat
0f10: 63 68 20 5c 0d 0a 72 65 67 65 78 70 20 2d 72 65  ch \..regexp -re
0f20: 73 75 6c 74 20 7b 5e 4f 6b 20 53 79 73 74 65 6d  sult {^Ok System
0f30: 23 43 6f 64 65 44 6f 6d 23 43 6f 6d 70 69 6c 65  #CodeDom#Compile
0f40: 72 23 43 6f 6d 70 69 6c 65 72 52 65 73 75 6c 74  r#CompilerResult
0f50: 73 23 5c 64 2b 20 5c 7b 5c 7d 20 30 20 5c 7b 5c  s#\d+ \{\} 0 \{\
0f60: 7d 24 7d 7d 0d 0a 0d 0a 23 23 23 23 23 23 23 23  }$}}....########
0f70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0f80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0f90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0fa0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0fb0: 23 23 23 23 23 23 23 0d 0a 0d 0a 72 75 6e 53 51  #######....runSQ
0fc0: 4c 69 74 65 54 65 73 74 45 70 69 6c 6f 67 75 65  LiteTestEpilogue
0fd0: 0d 0a 72 75 6e 54 65 73 74 45 70 69 6c 6f 67 75  ..runTestEpilogu
0fe0: 65 0d 0a                                         e..
This page was generated in about 0.004s by Fossil version 2.12 [85f4869078] 2020-07-10 12:49:00