System.Data.SQLite: Hex Artifact Content

Artifact b3118a1efd5f094a949628467c792e915700d192:

File Tests/backup.eagle — part of check-in [40e0fb8133] at 2012-09-22 18:50:35 on branch trunk — Modularize the connection opaque object handle lookup done by several tests. Modify test data-1.34 to use the Enum typed ReturnCode property instead of the Int32 typed ErrorCode property. Improve comments and formatting in the common test suite infrastructure file. (user: mistachkin size: 8987)
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 62 61 63 6b 75 70 2e 65 61 67  .#..# backup.eag
0060: 6c 65 20 2d 2d 0d 0a 23 0d 0a 23 20 57 72 69 74  le --..#..# Writ
0070: 74 65 6e 20 62 79 20 4a 6f 65 20 4d 69 73 74 61  ten by Joe Mista
0080: 63 68 6b 69 6e 2e 0d 0a 23 20 52 65 6c 65 61 73  chkin...# Releas
0090: 65 64 20 74 6f 20 74 68 65 20 70 75 62 6c 69 63  ed to the public
00a0: 20 64 6f 6d 61 69 6e 2c 20 75 73 65 20 61 74 20   domain, use at 
00b0: 79 6f 75 72 20 6f 77 6e 20 72 69 73 6b 21 0d 0a  your own risk!..
00c0: 23 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 23  #..#############
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 0d 0a 0d 0a 70 61 63 6b 61 67 65 20 72 65  ##....package re
0120: 71 75 69 72 65 20 45 61 67 6c 65 0d 0a 70 61 63  quire Eagle..pac
0130: 6b 61 67 65 20 72 65 71 75 69 72 65 20 45 61 67  kage require Eag
0140: 6c 65 2e 4c 69 62 72 61 72 79 0d 0a 70 61 63 6b  le.Library..pack
0150: 61 67 65 20 72 65 71 75 69 72 65 20 45 61 67 6c  age require Eagl
0160: 65 2e 54 65 73 74 0d 0a 0d 0a 72 75 6e 54 65 73  e.Test....runTes
0170: 74 50 72 6f 6c 6f 67 75 65 0d 0a 0d 0a 23 23 23  tPrologue....###
0180: 23 23 23 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 0d 0a 0d 0a  ############....
01d0: 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20  package require 
01e0: 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69  System.Data.SQLi
01f0: 74 65 2e 54 65 73 74 0d 0a 72 75 6e 53 51 4c 69  te.Test..runSQLi
0200: 74 65 54 65 73 74 50 72 6f 6c 6f 67 75 65 0d 0a  teTestPrologue..
0210: 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ..##############
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 0d 0a 0d 0a 73 65 74 20 70 61 72 61 6d 73 28  #....set params(
0270: 70 61 67 65 73 29 20 5b 6c 69 73 74 20 2d 31 20  pages) [list -1 
0280: 2d 31 20 30 20 30 20 31 20 31 20 32 20 32 20 31  -1 0 0 1 1 2 2 1
0290: 30 30 30 20 31 30 30 30 5d 0d 0a 0d 0a 73 65 74  000 1000]....set
02a0: 20 70 61 72 61 6d 73 28 63 61 6c 6c 62 61 63 6b   params(callback
02b0: 73 29 20 5b 6c 69 73 74 20 6e 75 6c 6c 20 22 6e  s) [list null "n
02c0: 65 77 20 53 51 4c 69 74 65 42 61 63 6b 75 70 43  ew SQLiteBackupC
02d0: 61 6c 6c 62 61 63 6b 28 42 61 63 6b 75 70 43 61  allback(BackupCa
02e0: 6c 6c 62 61 63 6b 29 22 20 5c 0d 0a 20 20 20 20  llback)" \..    
02f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0300: 20 20 20 20 20 20 20 20 6e 75 6c 6c 20 22 6e 65          null "ne
0310: 77 20 53 51 4c 69 74 65 42 61 63 6b 75 70 43 61  w SQLiteBackupCa
0320: 6c 6c 62 61 63 6b 28 42 61 63 6b 75 70 43 61 6c  llback(BackupCal
0330: 6c 62 61 63 6b 29 22 20 5c 0d 0a 20 20 20 20 20  lback)" \..     
0340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0350: 20 20 20 20 20 20 20 6e 75 6c 6c 20 22 6e 65 77         null "new
0360: 20 53 51 4c 69 74 65 42 61 63 6b 75 70 43 61 6c   SQLiteBackupCal
0370: 6c 62 61 63 6b 28 42 61 63 6b 75 70 43 61 6c 6c  lback(BackupCall
0380: 62 61 63 6b 29 22 20 5c 0d 0a 20 20 20 20 20 20  back)" \..      
0390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
03a0: 20 20 20 20 20 20 6e 75 6c 6c 20 22 6e 65 77 20        null "new 
03b0: 53 51 4c 69 74 65 42 61 63 6b 75 70 43 61 6c 6c  SQLiteBackupCall
03c0: 62 61 63 6b 28 42 61 63 6b 75 70 43 61 6c 6c 62  back(BackupCallb
03d0: 61 63 6b 29 22 20 5c 0d 0a 20 20 20 20 20 20 20  ack)" \..       
03e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
03f0: 20 20 20 20 20 6e 75 6c 6c 20 22 6e 65 77 20 53       null "new S
0400: 51 4c 69 74 65 42 61 63 6b 75 70 43 61 6c 6c 62  QLiteBackupCallb
0410: 61 63 6b 28 42 61 63 6b 75 70 43 61 6c 6c 62 61  ack(BackupCallba
0420: 63 6b 29 22 5d 0d 0a 0d 0a 73 65 74 20 70 61 72  ck)"]....set par
0430: 61 6d 73 28 72 65 73 75 6c 74 73 29 20 5b 6c 69  ams(results) [li
0440: 73 74 20 5c 0d 0a 20 20 20 20 22 30 20 5c 5c 7b  st \..    "0 \\{
0450: 31 20 31 30 34 38 35 37 36 20 31 30 34 38 35 37  1 1048576 104857
0460: 36 20 31 30 34 38 35 37 36 20 31 30 34 38 35 37  6 1048576 104857
0470: 36 20 31 30 34 38 35 37 36 20 31 30 34 38 35 37  6 1048576 104857
0480: 36 20 31 30 34 38 35 37 36 20 31 30 34 38 35 37  6 1048576 104857
0490: 36 5c 0d 0a 20 20 20 20 31 30 34 38 35 37 36 20  6\..    1048576 
04a0: 31 30 34 38 35 37 36 20 31 30 5c 5c 7d 20 30 5c  1048576 10\\} 0\
04b0: 24 22 20 5c 0d 0a 20 20 20 20 22 30 20 5c 5c 7b  $" \..    "0 \\{
04c0: 31 20 31 30 34 38 35 37 36 20 31 30 34 38 35 37  1 1048576 104857
04d0: 36 20 31 30 34 38 35 37 36 20 31 30 34 38 35 37  6 1048576 104857
04e0: 36 20 31 30 34 38 35 37 36 20 31 30 34 38 35 37  6 1048576 104857
04f0: 36 20 31 30 34 38 35 37 36 20 31 30 34 38 35 37  6 1048576 104857
0500: 36 5c 0d 0a 20 20 20 20 31 30 34 38 35 37 36 20  6\..    1048576 
0510: 31 30 34 38 35 37 36 20 31 30 5c 5c 7d 20 30 5c  1048576 10\\} 0\
0520: 24 22 20 5c 0d 0a 20 20 20 20 22 31 20 5c 5c 7b  $" \..    "1 \\{
0530: 53 79 73 74 65 6d 5c 5c 2e 52 65 66 6c 65 63 74  System\\.Reflect
0540: 69 6f 6e 5c 5c 2e 54 61 72 67 65 74 49 6e 76 6f  ion\\.TargetInvo
0550: 63 61 74 69 6f 6e 45 78 63 65 70 74 69 6f 6e 3a  cationException:
0560: 20 45 78 63 65 70 74 69 6f 6e 20 68 61 73 20 62   Exception has b
0570: 65 65 6e 5c 0d 0a 20 20 20 20 74 68 72 6f 77 6e  een\..    thrown
0580: 20 62 79 20 74 68 65 20 74 61 72 67 65 74 20 6f   by the target o
0590: 66 20 61 6e 20 69 6e 76 6f 63 61 74 69 6f 6e 5c  f an invocation\
05a0: 5c 2e 20 2d 2d 2d 3e 5c 0d 0a 20 20 20 20 53 79  \. --->\..    Sy
05b0: 73 74 65 6d 5c 5c 2e 44 61 74 61 5c 5c 2e 53 51  stem\\.Data\\.SQ
05c0: 4c 69 74 65 5c 5c 2e 53 51 4c 69 74 65 45 78 63  Lite\\.SQLiteExc
05d0: 65 70 74 69 6f 6e 3a 20 53 51 4c 20 6c 6f 67 69  eption: SQL logi
05e0: 63 20 65 72 72 6f 72 20 6f 72 20 6d 69 73 73 69  c error or missi
05f0: 6e 67 5c 0d 0a 20 20 20 20 64 61 74 61 62 61 73  ng\..    databas
0600: 65 5c 5c 72 5c 5c 6e 6e 6f 20 73 75 63 68 20 74  e\\r\\nno such t
0610: 61 62 6c 65 3a 20 74 31 5c 5c 72 5c 5c 6e 2e 2a  able: t1\\r\\n.*
0620: 3f 22 20 5c 0d 0a 20 20 20 20 22 31 20 5c 5c 7b  ?" \..    "1 \\{
0630: 53 79 73 74 65 6d 5c 5c 2e 52 65 66 6c 65 63 74  System\\.Reflect
0640: 69 6f 6e 5c 5c 2e 54 61 72 67 65 74 49 6e 76 6f  ion\\.TargetInvo
0650: 63 61 74 69 6f 6e 45 78 63 65 70 74 69 6f 6e 3a  cationException:
0660: 20 45 78 63 65 70 74 69 6f 6e 20 68 61 73 20 62   Exception has b
0670: 65 65 6e 5c 0d 0a 20 20 20 20 74 68 72 6f 77 6e  een\..    thrown
0680: 20 62 79 20 74 68 65 20 74 61 72 67 65 74 20 6f   by the target o
0690: 66 20 61 6e 20 69 6e 76 6f 63 61 74 69 6f 6e 5c  f an invocation\
06a0: 5c 2e 20 2d 2d 2d 3e 5c 0d 0a 20 20 20 20 53 79  \. --->\..    Sy
06b0: 73 74 65 6d 5c 5c 2e 44 61 74 61 5c 5c 2e 53 51  stem\\.Data\\.SQ
06c0: 4c 69 74 65 5c 5c 2e 53 51 4c 69 74 65 45 78 63  Lite\\.SQLiteExc
06d0: 65 70 74 69 6f 6e 3a 20 53 51 4c 20 6c 6f 67 69  eption: SQL logi
06e0: 63 20 65 72 72 6f 72 20 6f 72 20 6d 69 73 73 69  c error or missi
06f0: 6e 67 5c 0d 0a 20 20 20 20 64 61 74 61 62 61 73  ng\..    databas
0700: 65 5c 5c 72 5c 5c 6e 6e 6f 20 73 75 63 68 20 74  e\\r\\nno such t
0710: 61 62 6c 65 3a 20 74 31 5c 5c 72 5c 5c 6e 2e 2a  able: t1\\r\\n.*
0720: 3f 22 20 5c 0d 0a 20 20 20 20 22 30 20 5c 5c 7b  ?" \..    "0 \\{
0730: 31 20 31 30 34 38 35 37 36 20 31 30 34 38 35 37  1 1048576 104857
0740: 36 20 31 30 34 38 35 37 36 20 31 30 34 38 35 37  6 1048576 104857
0750: 36 20 31 30 34 38 35 37 36 20 31 30 34 38 35 37  6 1048576 104857
0760: 36 20 31 30 34 38 35 37 36 20 31 30 34 38 35 37  6 1048576 104857
0770: 36 5c 0d 0a 20 20 20 20 31 30 34 38 35 37 36 20  6\..    1048576 
0780: 31 30 34 38 35 37 36 20 31 30 5c 5c 7d 20 30 5c  1048576 10\\} 0\
0790: 24 22 20 5c 0d 0a 20 20 20 20 22 30 20 5c 5c 7b  $" \..    "0 \\{
07a0: 31 20 31 30 34 38 35 37 36 20 31 30 34 38 35 37  1 1048576 104857
07b0: 36 20 31 30 34 38 35 37 36 20 31 30 34 38 35 37  6 1048576 104857
07c0: 36 20 31 30 34 38 35 37 36 20 31 30 34 38 35 37  6 1048576 104857
07d0: 36 20 31 30 34 38 35 37 36 20 31 30 34 38 35 37  6 1048576 104857
07e0: 36 5c 0d 0a 20 20 20 20 31 30 34 38 35 37 36 20  6\..    1048576 
07f0: 31 30 34 38 35 37 36 20 31 30 5c 5c 7d 20 31 30  1048576 10\\} 10
0800: 32 38 33 5c 24 22 20 5c 0d 0a 20 20 20 20 22 30  283\$" \..    "0
0810: 20 5c 5c 7b 31 20 31 30 34 38 35 37 36 20 31 30   \\{1 1048576 10
0820: 34 38 35 37 36 20 31 30 34 38 35 37 36 20 31 30  48576 1048576 10
0830: 34 38 35 37 36 20 31 30 34 38 35 37 36 20 31 30  48576 1048576 10
0840: 34 38 35 37 36 20 31 30 34 38 35 37 36 20 31 30  48576 1048576 10
0850: 34 38 35 37 36 5c 0d 0a 20 20 20 20 31 30 34 38  48576\..    1048
0860: 35 37 36 20 31 30 34 38 35 37 36 20 31 30 5c 5c  576 1048576 10\\
0870: 7d 20 30 5c 24 22 20 5c 0d 0a 20 20 20 20 22 31  } 0\$" \..    "1
0880: 20 5c 5c 7b 53 79 73 74 65 6d 5c 5c 2e 52 65 66   \\{System\\.Ref
0890: 6c 65 63 74 69 6f 6e 5c 5c 2e 54 61 72 67 65 74  lection\\.Target
08a0: 49 6e 76 6f 63 61 74 69 6f 6e 45 78 63 65 70 74  InvocationExcept
08b0: 69 6f 6e 3a 20 45 78 63 65 70 74 69 6f 6e 20 68  ion: Exception h
08c0: 61 73 20 62 65 65 6e 5c 0d 0a 20 20 20 20 74 68  as been\..    th
08d0: 72 6f 77 6e 20 62 79 20 74 68 65 20 74 61 72 67  rown by the targ
08e0: 65 74 20 6f 66 20 61 6e 20 69 6e 76 6f 63 61 74  et of an invocat
08f0: 69 6f 6e 5c 5c 2e 20 2d 2d 2d 3e 5c 0d 0a 20 20  ion\\. --->\..  
0900: 20 20 53 79 73 74 65 6d 5c 5c 2e 44 61 74 61 5c    System\\.Data\
0910: 5c 2e 53 51 4c 69 74 65 5c 5c 2e 53 51 4c 69 74  \.SQLite\\.SQLit
0920: 65 45 78 63 65 70 74 69 6f 6e 3a 20 53 51 4c 20  eException: SQL 
0930: 6c 6f 67 69 63 20 65 72 72 6f 72 20 6f 72 20 6d  logic error or m
0940: 69 73 73 69 6e 67 5c 0d 0a 20 20 20 20 64 61 74  issing\..    dat
0950: 61 62 61 73 65 5c 5c 72 5c 5c 6e 6e 6f 20 73 75  abase\\r\\nno su
0960: 63 68 20 74 61 62 6c 65 3a 20 74 31 5c 5c 72 5c  ch table: t1\\r\
0970: 5c 6e 2e 2a 3f 22 20 5c 0d 0a 20 20 20 20 22 30  \n.*?" \..    "0
0980: 20 5c 5c 7b 31 20 31 30 34 38 35 37 36 20 31 30   \\{1 1048576 10
0990: 34 38 35 37 36 20 31 30 34 38 35 37 36 20 31 30  48576 1048576 10
09a0: 34 38 35 37 36 20 31 30 34 38 35 37 36 20 31 30  48576 1048576 10
09b0: 34 38 35 37 36 20 31 30 34 38 35 37 36 20 31 30  48576 1048576 10
09c0: 34 38 35 37 36 5c 0d 0a 20 20 20 20 31 30 34 38  48576\..    1048
09d0: 35 37 36 20 31 30 34 38 35 37 36 20 31 30 5c 5c  576 1048576 10\\
09e0: 7d 20 5c 5c 7b 5c 5c 7d 5c 24 22 20 5c 0d 0a 20  } \\{\\}\$" \.. 
09f0: 20 20 20 22 30 20 5c 5c 7b 31 20 31 30 34 38 35     "0 \\{1 10485
0a00: 37 36 20 31 30 34 38 35 37 36 20 31 30 34 38 35  76 1048576 10485
0a10: 37 36 20 31 30 34 38 35 37 36 20 31 30 34 38 35  76 1048576 10485
0a20: 37 36 20 31 30 34 38 35 37 36 20 31 30 34 38 35  76 1048576 10485
0a30: 37 36 20 31 30 34 38 35 37 36 5c 0d 0a 20 20 20  76 1048576\..   
0a40: 20 31 30 34 38 35 37 36 20 31 30 34 38 35 37 36   1048576 1048576
0a50: 20 31 30 5c 5c 7d 20 5c 5c 7b 53 79 73 74 65 6d   10\\} \\{System
0a60: 5c 5c 2e 44 61 74 61 5c 5c 2e 53 51 4c 69 74 65  \\.Data\\.SQLite
0a70: 5c 5c 2e 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74  \\.SQLiteConnect
0a80: 69 6f 6e 20 6d 61 69 6e 5c 0d 0a 20 20 20 20 53  ion main\..    S
0a90: 79 73 74 65 6d 5c 5c 2e 44 61 74 61 5c 5c 2e 53  ystem\\.Data\\.S
0aa0: 51 4c 69 74 65 5c 5c 2e 53 51 4c 69 74 65 43 6f  QLite\\.SQLiteCo
0ab0: 6e 6e 65 63 74 69 6f 6e 20 6d 61 69 6e 20 31 30  nnection main 10
0ac0: 30 30 20 39 32 38 34 20 31 30 32 38 34 20 46 61  00 9284 10284 Fa
0ad0: 6c 73 65 5c 0d 0a 20 20 20 20 53 79 73 74 65 6d  lse\..    System
0ae0: 5c 5c 2e 44 61 74 61 5c 5c 2e 53 51 4c 69 74 65  \\.Data\\.SQLite
0af0: 5c 5c 2e 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74  \\.SQLiteConnect
0b00: 69 6f 6e 20 6d 61 69 6e 5c 0d 0a 20 20 20 20 53  ion main\..    S
0b10: 79 73 74 65 6d 5c 5c 2e 44 61 74 61 5c 5c 2e 53  ystem\\.Data\\.S
0b20: 51 4c 69 74 65 5c 5c 2e 53 51 4c 69 74 65 43 6f  QLite\\.SQLiteCo
0b30: 6e 6e 65 63 74 69 6f 6e 20 6d 61 69 6e 20 31 30  nnection main 10
0b40: 30 30 20 38 32 38 34 20 31 30 32 38 34 20 46 61  00 8284 10284 Fa
0b50: 6c 73 65 5c 0d 0a 20 20 20 20 53 79 73 74 65 6d  lse\..    System
0b60: 5c 5c 2e 44 61 74 61 5c 5c 2e 53 51 4c 69 74 65  \\.Data\\.SQLite
0b70: 5c 5c 2e 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74  \\.SQLiteConnect
0b80: 69 6f 6e 20 6d 61 69 6e 5c 0d 0a 20 20 20 20 53  ion main\..    S
0b90: 79 73 74 65 6d 5c 5c 2e 44 61 74 61 5c 5c 2e 53  ystem\\.Data\\.S
0ba0: 51 4c 69 74 65 5c 5c 2e 53 51 4c 69 74 65 43 6f  QLite\\.SQLiteCo
0bb0: 6e 6e 65 63 74 69 6f 6e 20 6d 61 69 6e 20 31 30  nnection main 10
0bc0: 30 30 20 37 32 38 34 20 31 30 32 38 34 20 46 61  00 7284 10284 Fa
0bd0: 6c 73 65 5c 0d 0a 20 20 20 20 53 79 73 74 65 6d  lse\..    System
0be0: 5c 5c 2e 44 61 74 61 5c 5c 2e 53 51 4c 69 74 65  \\.Data\\.SQLite
0bf0: 5c 5c 2e 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74  \\.SQLiteConnect
0c00: 69 6f 6e 20 6d 61 69 6e 5c 0d 0a 20 20 20 20 53  ion main\..    S
0c10: 79 73 74 65 6d 5c 5c 2e 44 61 74 61 5c 5c 2e 53  ystem\\.Data\\.S
0c20: 51 4c 69 74 65 5c 5c 2e 53 51 4c 69 74 65 43 6f  QLite\\.SQLiteCo
0c30: 6e 6e 65 63 74 69 6f 6e 20 6d 61 69 6e 20 31 30  nnection main 10
0c40: 30 30 20 36 32 38 34 20 31 30 32 38 34 20 46 61  00 6284 10284 Fa
0c50: 6c 73 65 5c 0d 0a 20 20 20 20 53 79 73 74 65 6d  lse\..    System
0c60: 5c 5c 2e 44 61 74 61 5c 5c 2e 53 51 4c 69 74 65  \\.Data\\.SQLite
0c70: 5c 5c 2e 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74  \\.SQLiteConnect
0c80: 69 6f 6e 20 6d 61 69 6e 5c 0d 0a 20 20 20 20 53  ion main\..    S
0c90: 79 73 74 65 6d 5c 5c 2e 44 61 74 61 5c 5c 2e 53  ystem\\.Data\\.S
0ca0: 51 4c 69 74 65 5c 5c 2e 53 51 4c 69 74 65 43 6f  QLite\\.SQLiteCo
0cb0: 6e 6e 65 63 74 69 6f 6e 20 6d 61 69 6e 20 31 30  nnection main 10
0cc0: 30 30 20 35 32 38 34 20 31 30 32 38 34 20 46 61  00 5284 10284 Fa
0cd0: 6c 73 65 5c 0d 0a 20 20 20 20 53 79 73 74 65 6d  lse\..    System
0ce0: 5c 5c 2e 44 61 74 61 5c 5c 2e 53 51 4c 69 74 65  \\.Data\\.SQLite
0cf0: 5c 5c 2e 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74  \\.SQLiteConnect
0d00: 69 6f 6e 20 6d 61 69 6e 5c 0d 0a 20 20 20 20 53  ion main\..    S
0d10: 79 73 74 65 6d 5c 5c 2e 44 61 74 61 5c 5c 2e 53  ystem\\.Data\\.S
0d20: 51 4c 69 74 65 5c 5c 2e 53 51 4c 69 74 65 43 6f  QLite\\.SQLiteCo
0d30: 6e 6e 65 63 74 69 6f 6e 20 6d 61 69 6e 20 31 30  nnection main 10
0d40: 30 30 20 34 32 38 34 20 31 30 32 38 34 20 46 61  00 4284 10284 Fa
0d50: 6c 73 65 5c 0d 0a 20 20 20 20 53 79 73 74 65 6d  lse\..    System
0d60: 5c 5c 2e 44 61 74 61 5c 5c 2e 53 51 4c 69 74 65  \\.Data\\.SQLite
0d70: 5c 5c 2e 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74  \\.SQLiteConnect
0d80: 69 6f 6e 20 6d 61 69 6e 5c 0d 0a 20 20 20 20 53  ion main\..    S
0d90: 79 73 74 65 6d 5c 5c 2e 44 61 74 61 5c 5c 2e 53  ystem\\.Data\\.S
0da0: 51 4c 69 74 65 5c 5c 2e 53 51 4c 69 74 65 43 6f  QLite\\.SQLiteCo
0db0: 6e 6e 65 63 74 69 6f 6e 20 6d 61 69 6e 20 31 30  nnection main 10
0dc0: 30 30 20 33 32 38 34 20 31 30 32 38 34 20 46 61  00 3284 10284 Fa
0dd0: 6c 73 65 5c 0d 0a 20 20 20 20 53 79 73 74 65 6d  lse\..    System
0de0: 5c 5c 2e 44 61 74 61 5c 5c 2e 53 51 4c 69 74 65  \\.Data\\.SQLite
0df0: 5c 5c 2e 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74  \\.SQLiteConnect
0e00: 69 6f 6e 20 6d 61 69 6e 5c 0d 0a 20 20 20 20 53  ion main\..    S
0e10: 79 73 74 65 6d 5c 5c 2e 44 61 74 61 5c 5c 2e 53  ystem\\.Data\\.S
0e20: 51 4c 69 74 65 5c 5c 2e 53 51 4c 69 74 65 43 6f  QLite\\.SQLiteCo
0e30: 6e 6e 65 63 74 69 6f 6e 20 6d 61 69 6e 20 31 30  nnection main 10
0e40: 30 30 20 32 32 38 34 20 31 30 32 38 34 20 46 61  00 2284 10284 Fa
0e50: 6c 73 65 5c 0d 0a 20 20 20 20 53 79 73 74 65 6d  lse\..    System
0e60: 5c 5c 2e 44 61 74 61 5c 5c 2e 53 51 4c 69 74 65  \\.Data\\.SQLite
0e70: 5c 5c 2e 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74  \\.SQLiteConnect
0e80: 69 6f 6e 20 6d 61 69 6e 5c 0d 0a 20 20 20 20 53  ion main\..    S
0e90: 79 73 74 65 6d 5c 5c 2e 44 61 74 61 5c 5c 2e 53  ystem\\.Data\\.S
0ea0: 51 4c 69 74 65 5c 5c 2e 53 51 4c 69 74 65 43 6f  QLite\\.SQLiteCo
0eb0: 6e 6e 65 63 74 69 6f 6e 20 6d 61 69 6e 20 31 30  nnection main 10
0ec0: 30 30 20 31 32 38 34 20 31 30 32 38 34 20 46 61  00 1284 10284 Fa
0ed0: 6c 73 65 5c 0d 0a 20 20 20 20 53 79 73 74 65 6d  lse\..    System
0ee0: 5c 5c 2e 44 61 74 61 5c 5c 2e 53 51 4c 69 74 65  \\.Data\\.SQLite
0ef0: 5c 5c 2e 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74  \\.SQLiteConnect
0f00: 69 6f 6e 20 6d 61 69 6e 5c 0d 0a 20 20 20 20 53  ion main\..    S
0f10: 79 73 74 65 6d 5c 5c 2e 44 61 74 61 5c 5c 2e 53  ystem\\.Data\\.S
0f20: 51 4c 69 74 65 5c 5c 2e 53 51 4c 69 74 65 43 6f  QLite\\.SQLiteCo
0f30: 6e 6e 65 63 74 69 6f 6e 20 6d 61 69 6e 20 31 30  nnection main 10
0f40: 30 30 20 32 38 34 20 31 30 32 38 34 20 46 61 6c  00 284 10284 Fal
0f50: 73 65 5c 5c 7d 5c 24 22 5d 0d 0a 0d 0a 23 23 23  se\\}\$"]....###
0f60: 23 23 23 23 23 23 23 23 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 0d 0a 0d 0a  ############....
0fb0: 66 6f 72 20 7b 73 65 74 20 69 20 30 7d 20 7b 24  for {set i 0} {$
0fc0: 69 20 3c 20 5b 6c 6c 65 6e 67 74 68 20 24 70 61  i < [llength $pa
0fd0: 72 61 6d 73 28 70 61 67 65 73 29 5d 7d 20 7b 69  rams(pages)]} {i
0fe0: 6e 63 72 20 69 7d 20 7b 0d 0a 20 20 73 65 74 20  ncr i} {..  set 
0ff0: 70 61 67 65 73 20 5b 6c 69 6e 64 65 78 20 24 70  pages [lindex $p
1000: 61 72 61 6d 73 28 70 61 67 65 73 29 20 24 69 5d  arams(pages) $i]
1010: 0d 0a 20 20 73 65 74 20 63 61 6c 6c 62 61 63 6b  ..  set callback
1020: 20 5b 6c 69 6e 64 65 78 20 24 70 61 72 61 6d 73   [lindex $params
1030: 28 63 61 6c 6c 62 61 63 6b 73 29 20 24 69 5d 0d  (callbacks) $i].
1040: 0a 0d 0a 20 20 72 75 6e 54 65 73 74 20 7b 74 65  ...  runTest {te
1050: 73 74 20 5b 61 70 70 65 6e 64 41 72 67 73 20 62  st [appendArgs b
1060: 61 63 6b 75 70 2d 31 2e 20 24 69 5d 20 7b 42 61  ackup-1. $i] {Ba
1070: 63 6b 75 70 44 61 74 61 62 61 73 65 20 6d 65 74  ckupDatabase met
1080: 68 6f 64 7d 20 2d 73 65 74 75 70 20 7b 0d 0a 20  hod} -setup {.. 
1090: 20 20 20 73 65 74 75 70 44 62 20 5b 73 65 74 20     setupDb [set 
10a0: 66 69 6c 65 4e 61 6d 65 28 31 29 20 3a 6d 65 6d  fileName(1) :mem
10b0: 6f 72 79 3a 5d 20 22 22 20 22 22 20 22 22 20 22  ory:] "" "" "" "
10c0: 22 20 22 22 20 66 61 6c 73 65 20 66 61 6c 73 65  " "" false false
10d0: 20 66 61 6c 73 65 20 6d 65 6d 44 62 0d 0a 20 20   false memDb..  
10e0: 20 20 73 65 74 75 70 44 62 20 5b 73 65 74 20 66    setupDb [set f
10f0: 69 6c 65 4e 61 6d 65 28 32 29 20 5b 61 70 70 65  ileName(2) [appe
1100: 6e 64 41 72 67 73 20 62 61 63 6b 75 70 2d 31 2e  ndArgs backup-1.
1110: 20 24 69 20 2e 64 62 5d 5d 0d 0a 20 20 7d 20 2d   $i .db]]..  } -
1120: 62 6f 64 79 20 7b 0d 0a 20 20 20 20 73 65 74 20  body {..    set 
1130: 69 64 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b  id [object invok
1140: 65 20 49 6e 74 65 72 70 72 65 74 65 72 2e 47 65  e Interpreter.Ge
1150: 74 41 63 74 69 76 65 20 4e 65 78 74 49 64 5d 0d  tActive NextId].
1160: 0a 20 20 20 20 73 65 74 20 64 61 74 61 53 6f 75  .    set dataSou
1170: 72 63 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b  rce [file join [
1180: 67 65 74 44 61 74 61 62 61 73 65 44 69 72 65 63  getDatabaseDirec
1190: 74 6f 72 79 5d 20 24 66 69 6c 65 4e 61 6d 65 28  tory] $fileName(
11a0: 32 29 5d 0d 0a 0d 0a 20 20 20 20 73 71 6c 20 65  2)]....    sql e
11b0: 78 65 63 75 74 65 20 24 6d 65 6d 44 62 20 7b 0d  xecute $memDb {.
11c0: 0a 20 20 20 20 20 20 43 52 45 41 54 45 20 54 41  .      CREATE TA
11d0: 42 4c 45 20 74 31 28 78 20 54 45 58 54 29 3b 0d  BLE t1(x TEXT);.
11e0: 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 66 6f  .    }....    fo
11f0: 72 20 7b 73 65 74 20 69 6e 64 65 78 20 30 7d 20  r {set index 0} 
1200: 7b 24 69 6e 64 65 78 20 3c 20 31 30 7d 20 7b 69  {$index < 10} {i
1210: 6e 63 72 20 69 6e 64 65 78 7d 20 7b 0d 0a 20 20  ncr index} {..  
1220: 20 20 20 20 73 71 6c 20 65 78 65 63 75 74 65 20      sql execute 
1230: 24 6d 65 6d 44 62 20 5b 73 75 62 73 74 20 7b 0d  $memDb [subst {.
1240: 0a 20 20 20 20 20 20 20 20 49 4e 53 45 52 54 20  .        INSERT 
1250: 49 4e 54 4f 20 74 31 20 28 78 29 20 56 41 4c 55  INTO t1 (x) VALU
1260: 45 53 28 27 5b 73 74 72 69 6e 67 20 72 65 70 65  ES('[string repe
1270: 61 74 20 21 20 31 30 34 38 35 37 36 5d 27 29 3b  at ! 1048576]');
1280: 0d 0a 20 20 20 20 20 20 7d 5d 0d 0a 20 20 20 20  ..      }]..    
1290: 7d 0d 0a 0d 0a 20 20 20 20 73 65 74 20 6d 65 6d  }....    set mem
12a0: 53 6f 75 72 63 65 20 5b 67 65 74 44 62 43 6f 6e  Source [getDbCon
12b0: 6e 65 63 74 69 6f 6e 20 6d 65 6d 44 62 5d 0d 0a  nection memDb]..
12c0: 0d 0a 20 20 20 20 75 6e 73 65 74 20 2d 6e 6f 63  ..    unset -noc
12d0: 6f 6d 70 6c 61 69 6e 20 72 65 73 75 6c 74 73 20  omplain results 
12e0: 65 72 72 6f 72 73 0d 0a 0d 0a 20 20 20 20 73 65  errors....    se
12f0: 74 20 63 6f 64 65 20 5b 63 6f 6d 70 69 6c 65 43  t code [compileC
1300: 53 68 61 72 70 57 69 74 68 20 5b 73 75 62 73 74  SharpWith [subst
1310: 20 7b 0d 0a 20 20 20 20 20 20 75 73 69 6e 67 20   {..      using 
1320: 53 79 73 74 65 6d 3b 0d 0a 20 20 20 20 20 20 75  System;..      u
1330: 73 69 6e 67 20 53 79 73 74 65 6d 2e 44 61 74 61  sing System.Data
1340: 2e 53 51 4c 69 74 65 3b 0d 0a 20 20 20 20 20 20  .SQLite;..      
1350: 75 73 69 6e 67 20 53 79 73 74 65 6d 2e 54 65 78  using System.Tex
1360: 74 3b 0d 0a 20 20 20 20 20 20 75 73 69 6e 67 20  t;..      using 
1370: 45 61 67 6c 65 2e 5f 43 6f 6d 70 6f 6e 65 6e 74  Eagle._Component
1380: 73 2e 50 75 62 6c 69 63 3b 0d 0a 0d 0a 20 20 20  s.Public;....   
1390: 20 20 20 6e 61 6d 65 73 70 61 63 65 20 5f 44 79     namespace _Dy
13a0: 6e 61 6d 69 63 24 7b 69 64 7d 0d 0a 20 20 20 20  namic${id}..    
13b0: 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 70 75 62    {..        pub
13c0: 6c 69 63 20 73 74 61 74 69 63 20 63 6c 61 73 73  lic static class
13d0: 20 54 65 73 74 24 7b 69 64 7d 0d 0a 20 20 20 20   Test${id}..    
13e0: 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20      {..         
13f0: 20 70 75 62 6c 69 63 20 73 74 61 74 69 63 20 69   public static i
1400: 6e 74 20 63 6f 75 6e 74 20 3d 20 30 3b 0d 0a 20  nt count = 0;.. 
1410: 20 20 20 20 20 20 20 20 20 70 75 62 6c 69 63 20           public 
1420: 73 74 61 74 69 63 20 72 65 61 64 6f 6e 6c 79 20  static readonly 
1430: 53 74 72 69 6e 67 42 75 69 6c 64 65 72 20 72 65  StringBuilder re
1440: 73 75 6c 74 73 20 3d 20 6e 65 77 20 53 74 72 69  sults = new Stri
1450: 6e 67 42 75 69 6c 64 65 72 28 29 3b 0d 0a 0d 0a  ngBuilder();....
1460: 20 20 20 20 20 20 20 20 20 20 2f 2f 2f 2f 2f 2f            //////
1470: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
1480: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
1490: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
14a0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d  ///////////////.
14b0: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 70 75 62  ...          pub
14c0: 6c 69 63 20 73 74 61 74 69 63 20 62 6f 6f 6c 20  lic static bool 
14d0: 42 61 63 6b 75 70 43 61 6c 6c 62 61 63 6b 28 0d  BackupCallback(.
14e0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 53 51 4c  .            SQL
14f0: 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 20 73 6f  iteConnection so
1500: 75 72 63 65 2c 0d 0a 20 20 20 20 20 20 20 20 20  urce,..         
1510: 20 20 20 73 74 72 69 6e 67 20 73 6f 75 72 63 65     string source
1520: 4e 61 6d 65 2c 0d 0a 20 20 20 20 20 20 20 20 20  Name,..         
1530: 20 20 20 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74     SQLiteConnect
1540: 69 6f 6e 20 64 65 73 74 69 6e 61 74 69 6f 6e 2c  ion destination,
1550: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 74  ..            st
1560: 72 69 6e 67 20 64 65 73 74 69 6e 61 74 69 6f 6e  ring destination
1570: 4e 61 6d 65 2c 0d 0a 20 20 20 20 20 20 20 20 20  Name,..         
1580: 20 20 20 69 6e 74 20 70 61 67 65 73 2c 0d 0a 20     int pages,.. 
1590: 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 20 72             int r
15a0: 65 6d 61 69 6e 69 6e 67 50 61 67 65 73 2c 0d 0a  emainingPages,..
15b0: 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 20              int 
15c0: 74 6f 74 61 6c 50 61 67 65 73 2c 0d 0a 20 20 20  totalPages,..   
15d0: 20 20 20 20 20 20 20 20 20 62 6f 6f 6c 20 72 65           bool re
15e0: 74 72 79 0d 0a 20 20 20 20 20 20 20 20 20 20 20  try..           
15f0: 20 29 0d 0a 20 20 20 20 20 20 20 20 20 20 7b 0d   )..          {.
1600: 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73  .            res
1610: 75 6c 74 73 2e 41 70 70 65 6e 64 46 6f 72 6d 61  ults.AppendForma
1620: 74 28 22 7b 30 7d 20 7b 31 7d 20 7b 32 7d 20 7b  t("{0} {1} {2} {
1630: 33 7d 20 7b 34 7d 20 7b 35 7d 20 7b 36 7d 20 7b  3} {4} {5} {6} {
1640: 37 7d 20 22 2c 20 73 6f 75 72 63 65 2c 0d 0a 20  7} ", source,.. 
1650: 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6f 75               sou
1660: 72 63 65 4e 61 6d 65 2c 20 64 65 73 74 69 6e 61  rceName, destina
1670: 74 69 6f 6e 2c 20 64 65 73 74 69 6e 61 74 69 6f  tion, destinatio
1680: 6e 4e 61 6d 65 2c 20 70 61 67 65 73 2c 20 72 65  nName, pages, re
1690: 6d 61 69 6e 69 6e 67 50 61 67 65 73 2c 0d 0a 20  mainingPages,.. 
16a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 74 6f 74               tot
16b0: 61 6c 50 61 67 65 73 2c 20 72 65 74 72 79 29 3b  alPages, retry);
16c0: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  ....            
16d0: 63 6f 75 6e 74 2b 2b 3b 0d 0a 0d 0a 20 20 20 20  count++;....    
16e0: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 28          return (
16f0: 70 61 67 65 73 20 21 3d 20 32 29 3b 0d 0a 20 20  pages != 2);..  
1700: 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20          }....   
1710: 20 20 20 20 20 20 20 2f 2f 2f 2f 2f 2f 2f 2f 2f         /////////
1720: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
1730: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
1740: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
1750: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 0a 0d 0a  ////////////....
1760: 20 20 20 20 20 20 20 20 20 20 70 75 62 6c 69 63            public
1770: 20 73 74 61 74 69 63 20 73 74 72 69 6e 67 20 42   static string B
1780: 61 63 6b 75 70 41 6e 64 47 65 74 44 61 74 61 28  ackupAndGetData(
1790: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 49 6e  ..            In
17a0: 74 65 72 70 72 65 74 65 72 20 69 6e 74 65 72 70  terpreter interp
17b0: 72 65 74 65 72 2c 0d 0a 20 20 20 20 20 20 20 20  reter,..        
17c0: 20 20 20 20 53 51 4c 69 74 65 43 6f 6e 6e 65 63      SQLiteConnec
17d0: 74 69 6f 6e 20 73 6f 75 72 63 65 0d 0a 20 20 20  tion source..   
17e0: 20 20 20 20 20 20 20 20 20 29 0d 0a 20 20 20 20           )..    
17f0: 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20        {..       
1800: 20 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69       using (SQLi
1810: 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 20 64 65 73  teConnection des
1820: 74 69 6e 61 74 69 6f 6e 20 3d 20 6e 65 77 20 53  tination = new S
1830: 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 28  QLiteConnection(
1840: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
1850: 20 20 22 44 61 74 61 20 53 6f 75 72 63 65 3d 24    "Data Source=$
1860: 7b 64 61 74 61 53 6f 75 72 63 65 7d 3b 22 29 29  {dataSource};"))
1870: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d  ..            {.
1880: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64  .              d
1890: 65 73 74 69 6e 61 74 69 6f 6e 2e 4f 70 65 6e 28  estination.Open(
18a0: 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20  );....          
18b0: 20 20 20 20 69 6e 74 20 70 61 67 65 73 20 3d 20      int pages = 
18c0: 24 7b 70 61 67 65 73 7d 3b 0d 0a 0d 0a 20 20 20  ${pages};....   
18d0: 20 20 20 20 20 20 20 20 20 20 20 73 6f 75 72 63             sourc
18e0: 65 2e 42 61 63 6b 75 70 44 61 74 61 62 61 73 65  e.BackupDatabase
18f0: 28 64 65 73 74 69 6e 61 74 69 6f 6e 2c 20 22 6d  (destination, "m
1900: 61 69 6e 22 2c 20 22 6d 61 69 6e 22 2c 20 70 61  ain", "main", pa
1910: 67 65 73 2c 0d 0a 20 20 20 20 20 20 20 20 20 20  ges,..          
1920: 20 20 20 20 20 20 24 7b 63 61 6c 6c 62 61 63 6b        ${callback
1930: 7d 2c 20 30 29 3b 0d 0a 0d 0a 20 20 20 20 20 20  }, 0);....      
1940: 20 20 20 20 20 20 20 20 52 65 74 75 72 6e 43 6f          ReturnCo
1950: 64 65 20 63 6f 64 65 3b 0d 0a 20 20 20 20 20 20  de code;..      
1960: 20 20 20 20 20 20 20 20 52 65 73 75 6c 74 20 65          Result e
1970: 72 72 6f 72 20 3d 20 6e 75 6c 6c 3b 0d 0a 0d 0a  rror = null;....
1980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f                co
1990: 64 65 20 3d 20 69 6e 74 65 72 70 72 65 74 65 72  de = interpreter
19a0: 2e 53 65 74 56 61 72 69 61 62 6c 65 56 61 6c 75  .SetVariableValu
19b0: 65 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  e(..            
19c0: 20 20 20 20 56 61 72 69 61 62 6c 65 46 6c 61 67      VariableFlag
19d0: 73 2e 47 6c 6f 62 61 6c 4f 6e 6c 79 2c 20 22 63  s.GlobalOnly, "c
19e0: 61 6c 6c 62 61 63 6b 52 65 73 75 6c 74 73 22 2c  allbackResults",
19f0: 20 28 70 61 67 65 73 20 3e 20 32 29 20 3f 0d 0a   (pages > 2) ?..
1a00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1a10: 20 20 20 20 72 65 73 75 6c 74 73 2e 54 6f 53 74      results.ToSt
1a20: 72 69 6e 67 28 29 2e 54 72 69 6d 28 29 20 3a 20  ring().Trim() : 
1a30: 63 6f 75 6e 74 2e 54 6f 53 74 72 69 6e 67 28 29  count.ToString()
1a40: 2c 20 6e 75 6c 6c 2c 0d 0a 20 20 20 20 20 20 20  , null,..       
1a50: 20 20 20 20 20 20 20 20 20 72 65 66 20 65 72 72           ref err
1a60: 6f 72 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20  or);....        
1a70: 20 20 20 20 20 20 69 66 20 28 63 6f 64 65 20 21        if (code !
1a80: 3d 20 52 65 74 75 72 6e 43 6f 64 65 2e 4f 6b 29  = ReturnCode.Ok)
1a90: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
1aa0: 20 20 55 74 69 6c 69 74 79 2e 43 6f 6d 70 6c 61    Utility.Compla
1ab0: 69 6e 28 69 6e 74 65 72 70 72 65 74 65 72 2c 20  in(interpreter, 
1ac0: 63 6f 64 65 2c 20 65 72 72 6f 72 29 3b 0d 0a 0d  code, error);...
1ad0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75  .              u
1ae0: 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f 6d 6d  sing (SQLiteComm
1af0: 61 6e 64 20 63 6f 6d 6d 61 6e 64 20 3d 20 6e 65  and command = ne
1b00: 77 20 53 51 4c 69 74 65 43 6f 6d 6d 61 6e 64 28  w SQLiteCommand(
1b10: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
1b20: 20 20 20 20 22 53 45 4c 45 43 54 20 6c 65 6e 67      "SELECT leng
1b30: 74 68 28 78 29 20 46 52 4f 4d 20 74 31 3b 22 2c  th(x) FROM t1;",
1b40: 20 64 65 73 74 69 6e 61 74 69 6f 6e 29 29 0d 0a   destination))..
1b50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d                {.
1b60: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
1b70: 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 44 61   using (SQLiteDa
1b80: 74 61 52 65 61 64 65 72 20 64 61 74 61 52 65 61  taReader dataRea
1b90: 64 65 72 20 3d 20 63 6f 6d 6d 61 6e 64 2e 45 78  der = command.Ex
1ba0: 65 63 75 74 65 52 65 61 64 65 72 28 29 29 0d 0a  ecuteReader())..
1bb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1bc0: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  {..             
1bd0: 20 20 20 20 20 53 74 72 69 6e 67 42 75 69 6c 64       StringBuild
1be0: 65 72 20 62 75 69 6c 64 65 72 20 3d 20 6e 65 77  er builder = new
1bf0: 20 53 74 72 69 6e 67 42 75 69 6c 64 65 72 28 29   StringBuilder()
1c00: 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  ;..             
1c10: 20 20 20 20 20 69 6e 74 20 72 6f 77 43 6f 75 6e       int rowCoun
1c20: 74 20 3d 20 30 3b 0d 0a 0d 0a 20 20 20 20 20 20  t = 0;....      
1c30: 20 20 20 20 20 20 20 20 20 20 20 20 62 75 69 6c              buil
1c40: 64 65 72 2e 41 70 70 65 6e 64 28 64 61 74 61 52  der.Append(dataR
1c50: 65 61 64 65 72 2e 46 69 65 6c 64 43 6f 75 6e 74  eader.FieldCount
1c60: 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  );..            
1c70: 20 20 20 20 20 20 62 75 69 6c 64 65 72 2e 41 70        builder.Ap
1c80: 70 65 6e 64 28 27 20 27 29 3b 0d 0a 0d 0a 20 20  pend(' ');....  
1c90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1ca0: 77 68 69 6c 65 20 28 64 61 74 61 52 65 61 64 65  while (dataReade
1cb0: 72 2e 52 65 61 64 28 29 29 0d 0a 20 20 20 20 20  r.Read())..     
1cc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a               {..
1cd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1ce0: 20 20 20 20 62 75 69 6c 64 65 72 2e 41 70 70 65      builder.Appe
1cf0: 6e 64 28 64 61 74 61 52 65 61 64 65 72 2e 47 65  nd(dataReader.Ge
1d00: 74 49 6e 74 36 34 28 30 29 29 3b 0d 0a 20 20 20  tInt64(0));..   
1d10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1d20: 20 62 75 69 6c 64 65 72 2e 41 70 70 65 6e 64 28   builder.Append(
1d30: 27 20 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20  ' ');..         
1d40: 20 20 20 20 20 20 20 20 20 20 20 72 6f 77 43 6f             rowCo
1d50: 75 6e 74 2b 2b 3b 0d 0a 20 20 20 20 20 20 20 20  unt++;..        
1d60: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20            }.... 
1d70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1d80: 20 62 75 69 6c 64 65 72 2e 41 70 70 65 6e 64 28   builder.Append(
1d90: 72 6f 77 43 6f 75 6e 74 29 3b 0d 0a 20 20 20 20  rowCount);..    
1da0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65                re
1db0: 74 75 72 6e 20 62 75 69 6c 64 65 72 2e 54 6f 53  turn builder.ToS
1dc0: 74 72 69 6e 67 28 29 3b 0d 0a 20 20 20 20 20 20  tring();..      
1dd0: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20            }..   
1de0: 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20             }..  
1df0: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20            }..   
1e00: 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20         }....    
1e10: 20 20 20 20 20 20 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f        //////////
1e20: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
1e30: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
1e40: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
1e50: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 0a 0d 0a 20  ///////////.... 
1e60: 20 20 20 20 20 20 20 20 20 70 75 62 6c 69 63 20           public 
1e70: 73 74 61 74 69 63 20 76 6f 69 64 20 4d 61 69 6e  static void Main
1e80: 28 29 0d 0a 20 20 20 20 20 20 20 20 20 20 7b 0d  ()..          {.
1e90: 0a 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 20  .            // 
1ea0: 64 6f 20 6e 6f 74 68 69 6e 67 2e 0d 0a 20 20 20  do nothing...   
1eb0: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20         }..      
1ec0: 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20    }..      }..  
1ed0: 20 20 7d 5d 20 74 72 75 65 20 74 72 75 65 20 74    }] true true t
1ee0: 72 75 65 20 72 65 73 75 6c 74 73 20 65 72 72 6f  rue results erro
1ef0: 72 73 20 5b 6c 69 73 74 20 53 79 73 74 65 6d 2e  rs [list System.
1f00: 44 61 74 61 2e 53 51 4c 69 74 65 2e 64 6c 6c 20  Data.SQLite.dll 
1f10: 45 61 67 6c 65 2e 64 6c 6c 5d 5d 0d 0a 0d 0a 20  Eagle.dll]].... 
1f20: 20 20 20 73 65 74 20 63 61 6c 6c 62 61 63 6b 52     set callbackR
1f30: 65 73 75 6c 74 73 20 5b 6c 69 73 74 5d 0d 0a 0d  esults [list]...
1f40: 0a 20 20 20 20 6c 69 73 74 20 24 63 6f 64 65 20  .    list $code 
1f50: 24 72 65 73 75 6c 74 73 20 5c 0d 0a 20 20 20 20  $results \..    
1f60: 20 20 20 20 5b 65 78 70 72 20 7b 5b 69 6e 66 6f      [expr {[info
1f70: 20 65 78 69 73 74 73 20 65 72 72 6f 72 73 5d 20   exists errors] 
1f80: 3f 20 24 65 72 72 6f 72 73 20 3a 20 22 22 7d 5d  ? $errors : ""}]
1f90: 20 5c 0d 0a 20 20 20 20 20 20 20 20 5b 65 78 70   \..        [exp
1fa0: 72 20 7b 24 63 6f 64 65 20 65 71 20 22 4f 6b 22  r {$code eq "Ok"
1fb0: 20 3f 20 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20   ? [catch {..   
1fc0: 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20 69 6e         object in
1fd0: 76 6f 6b 65 20 5f 44 79 6e 61 6d 69 63 24 7b 69  voke _Dynamic${i
1fe0: 64 7d 2e 54 65 73 74 24 7b 69 64 7d 20 42 61 63  d}.Test${id} Bac
1ff0: 6b 75 70 41 6e 64 47 65 74 44 61 74 61 20 22 22  kupAndGetData ""
2000: 20 24 6d 65 6d 53 6f 75 72 63 65 0d 0a 20 20 20   $memSource..   
2010: 20 20 20 20 20 7d 20 72 65 73 75 6c 74 5d 20 3a       } result] :
2020: 20 5b 73 65 74 20 72 65 73 75 6c 74 20 22 22 5d   [set result ""]
2030: 7d 5d 20 24 72 65 73 75 6c 74 20 24 63 61 6c 6c  }] $result $call
2040: 62 61 63 6b 52 65 73 75 6c 74 73 0d 0a 20 20 7d  backResults..  }
2050: 20 2d 63 6c 65 61 6e 75 70 20 7b 0d 0a 20 20 20   -cleanup {..   
2060: 20 63 6c 65 61 6e 75 70 44 62 20 24 66 69 6c 65   cleanupDb $file
2070: 4e 61 6d 65 28 32 29 0d 0a 20 20 20 20 63 6c 65  Name(2)..    cle
2080: 61 6e 75 70 44 62 20 24 66 69 6c 65 4e 61 6d 65  anupDb $fileName
2090: 28 31 29 20 6d 65 6d 44 62 0d 0a 0d 0a 20 20 20  (1) memDb....   
20a0: 20 66 72 65 65 44 62 43 6f 6e 6e 65 63 74 69 6f   freeDbConnectio
20b0: 6e 20 6d 65 6d 53 6f 75 72 63 65 0d 0a 0d 0a 20  n memSource.... 
20c0: 20 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70     unset -nocomp
20d0: 6c 61 69 6e 20 72 65 73 75 6c 74 20 72 65 73 75  lain result resu
20e0: 6c 74 73 20 65 72 72 6f 72 73 20 63 6f 64 65 20  lts errors code 
20f0: 69 6e 64 65 78 20 6d 65 6d 53 6f 75 72 63 65 20  index memSource 
2100: 64 61 74 61 53 6f 75 72 63 65 20 5c 0d 0a 20 20  dataSource \..  
2110: 20 20 20 20 20 20 69 64 20 6d 65 6d 44 62 20 64        id memDb d
2120: 62 20 66 69 6c 65 4e 61 6d 65 20 63 61 6c 6c 62  b fileName callb
2130: 61 63 6b 52 65 73 75 6c 74 73 0d 0a 20 20 7d 20  ackResults..  } 
2140: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 5c 0d 0a  -constraints \..
2150: 7b 65 61 67 6c 65 20 6d 6f 6e 6f 42 75 67 32 38  {eagle monoBug28
2160: 20 63 6f 6d 6d 61 6e 64 2e 73 71 6c 20 63 6f 6d   command.sql com
2170: 70 69 6c 65 2e 44 41 54 41 20 53 51 4c 69 74 65  pile.DATA SQLite
2180: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c   System.Data.SQL
2190: 69 74 65 7d 20 5c 0d 0a 2d 6d 61 74 63 68 20 72  ite} \..-match r
21a0: 65 67 65 78 70 20 2d 72 65 73 75 6c 74 20 5b 61  egexp -result [a
21b0: 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 22 5e 4f  ppendArgs \.."^O
21c0: 6b 20 53 79 73 74 65 6d 23 43 6f 64 65 44 6f 6d  k System#CodeDom
21d0: 23 43 6f 6d 70 69 6c 65 72 23 43 6f 6d 70 69 6c  #Compiler#Compil
21e0: 65 72 52 65 73 75 6c 74 73 23 5c 5c 64 2b 20 5c  erResults#\\d+ \
21f0: 5c 7b 5c 5c 7d 20 22 20 5c 0d 0a 5b 6c 69 6e 64  \{\\} " \..[lind
2200: 65 78 20 24 70 61 72 61 6d 73 28 72 65 73 75 6c  ex $params(resul
2210: 74 73 29 20 24 69 5d 5d 7d 0d 0a 7d 0d 0a 0d 0a  ts) $i]]}..}....
2220: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2230: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2240: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2250: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2260: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d  ###############.
2270: 0a 0d 0a 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70  ...unset -nocomp
2280: 6c 61 69 6e 20 69 20 70 61 72 61 6d 73 20 70 61  lain i params pa
2290: 67 65 73 20 63 61 6c 6c 62 61 63 6b 0d 0a 0d 0a  ges callback....
22a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
22b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
22c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
22d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
22e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d  ###############.
22f0: 0a 0d 0a 72 75 6e 53 51 4c 69 74 65 54 65 73 74  ...runSQLiteTest
2300: 45 70 69 6c 6f 67 75 65 0d 0a 72 75 6e 54 65 73  Epilogue..runTes
2310: 74 45 70 69 6c 6f 67 75 65 0d 0a                 tEpilogue..