System.Data.SQLite
Hex Artifact Content
Not logged in

Artifact eaa3f06753ab802421e3c93edd1284c231f885dd:


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 30 64 35 62 31 65  .#..# tkt-0d5b1e
0060: 66 33 36 32 2e 65 61 67 6c 65 20 2d 2d 0d 0a 23  f362.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 23 0d 0a 23 20  #######....#..# 
0270: 48 41 43 4b 3a 20 54 68 69 73 20 74 65 73 74 20  HACK: This test 
0280: 72 65 61 64 73 20 74 68 65 20 70 72 69 76 61 74  reads the privat
0290: 65 20 22 5f 64 6f 6d 61 69 6e 55 6e 6c 6f 61 64  e "_domainUnload
02a0: 22 20 66 69 65 6c 64 20 6f 66 20 74 68 65 20 41  " field of the A
02b0: 70 70 44 6f 6d 61 69 6e 0d 0a 23 20 20 20 20 20  ppDomain..#     
02c0: 20 20 63 6c 61 73 73 2e 20 20 54 68 69 73 20 69    class.  This i
02d0: 73 20 6e 6f 6e 2d 70 6f 72 74 61 62 6c 65 20 61  s non-portable a
02e0: 6e 64 20 77 69 6c 6c 20 6e 6f 74 20 77 6f 72 6b  nd will not work
02f0: 20 6f 6e 20 4d 6f 6e 6f 2e 20 20 41 6c 73 6f 2c   on Mono.  Also,
0300: 20 74 68 69 73 0d 0a 23 20 20 20 20 20 20 20 6d   this..#       m
0310: 61 79 20 6e 6f 74 20 77 6f 72 6b 20 6f 6e 20 76  ay not work on v
0320: 65 72 73 69 6f 6e 73 20 6f 66 20 74 68 65 20 2e  ersions of the .
0330: 4e 45 54 20 46 72 61 6d 65 77 6f 72 6b 20 61 66  NET Framework af
0340: 74 65 72 20 34 2e 30 2e 0d 0a 23 0d 0a 72 75 6e  ter 4.0...#..run
0350: 54 65 73 74 20 7b 74 65 73 74 20 74 6b 74 2d 30  Test {test tkt-0
0360: 64 35 62 31 65 66 33 36 32 2d 31 2e 31 20 7b 53  d5b1ef362-1.1 {S
0370: 51 4c 69 74 65 4c 6f 67 2e 44 6f 6d 61 69 6e 55  QLiteLog.DomainU
0380: 6e 6c 6f 61 64 20 65 76 65 6e 74 7d 20 2d 73 65  nload event} -se
0390: 74 75 70 20 5c 0d 0a 20 20 20 20 5b 67 65 74 41  tup \..    [getA
03a0: 70 70 44 6f 6d 61 69 6e 50 72 65 61 6d 62 6c 65  ppDomainPreamble
03b0: 5d 20 2d 62 6f 64 79 20 7b 0d 0a 20 20 23 0d 0a  ] -body {..  #..
03c0: 20 20 23 20 4e 4f 54 45 3a 20 47 72 61 62 20 74    # NOTE: Grab t
03d0: 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 44 6f 6d  he number of Dom
03e0: 61 69 6e 55 6e 6c 6f 61 64 20 68 61 6e 64 6c 65  ainUnload handle
03f0: 72 73 20 70 72 69 6f 72 20 74 6f 20 64 6f 69 6e  rs prior to doin
0400: 67 20 61 6e 79 74 68 69 6e 67 0d 0a 20 20 23 20  g anything..  # 
0410: 20 20 20 20 20 20 65 6c 73 65 2e 0d 0a 20 20 23        else...  #
0420: 0d 0a 20 20 73 65 74 20 78 20 5b 6f 62 6a 65 63  ..  set x [objec
0430: 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20  t invoke -flags 
0440: 2b 4e 6f 6e 50 75 62 6c 69 63 20 5c 0d 0a 20 20  +NonPublic \..  
0450: 20 20 20 20 41 70 70 44 6f 6d 61 69 6e 2e 43 75      AppDomain.Cu
0460: 72 72 65 6e 74 44 6f 6d 61 69 6e 2e 5f 64 6f 6d  rrentDomain._dom
0470: 61 69 6e 55 6e 6c 6f 61 64 2e 47 65 74 49 6e 76  ainUnload.GetInv
0480: 6f 63 61 74 69 6f 6e 4c 69 73 74 20 4c 65 6e 67  ocationList Leng
0490: 74 68 5d 0d 0a 0d 0a 20 20 70 61 63 6b 61 67 65  th]....  package
04a0: 20 72 65 71 75 69 72 65 20 45 61 67 6c 65 4c 69   require EagleLi
04b0: 62 72 61 72 79 0d 0a 20 20 70 61 63 6b 61 67 65  brary..  package
04c0: 20 72 65 71 75 69 72 65 20 45 61 67 6c 65 54 65   require EagleTe
04d0: 73 74 0d 0a 20 20 70 61 63 6b 61 67 65 20 72 65  st..  package re
04e0: 71 75 69 72 65 20 53 79 73 74 65 6d 2e 44 61 74  quire System.Dat
04f0: 61 2e 53 51 4c 69 74 65 2e 54 65 73 74 0d 0a 0d  a.SQLite.Test...
0500: 0a 20 20 6f 62 6a 65 63 74 20 6c 6f 61 64 20 2d  .  object load -
0510: 6c 6f 61 64 74 79 70 65 20 46 69 6c 65 20 5b 66  loadtype File [f
0520: 69 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 42 69 6e  ile join [getBin
0530: 61 72 79 44 69 72 65 63 74 6f 72 79 5d 20 5c 0d  aryDirectory] \.
0540: 0a 20 20 20 20 20 20 53 79 73 74 65 6d 2e 44 61  .      System.Da
0550: 74 61 2e 53 51 4c 69 74 65 2e 64 6c 6c 5d 0d 0a  ta.SQLite.dll]..
0560: 0d 0a 20 20 66 6f 72 20 7b 73 65 74 20 69 20 31  ..  for {set i 1
0570: 7d 20 7b 24 69 20 3c 20 33 7d 20 7b 69 6e 63 72  } {$i < 3} {incr
0580: 20 69 7d 20 7b 0d 0a 20 20 20 20 73 65 74 20 63   i} {..    set c
0590: 6f 6e 6e 65 63 74 69 6f 6e 28 24 69 29 20 5b 6f  onnection($i) [o
05a0: 62 6a 65 63 74 20 63 72 65 61 74 65 20 53 79 73  bject create Sys
05b0: 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e  tem.Data.SQLite.
05c0: 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e  SQLiteConnection
05d0: 20 22 22 5d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23   ""]..  }....  #
05e0: 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 4e 6f 77 2c  ..  # NOTE: Now,
05f0: 20 67 72 61 62 20 74 68 65 20 6e 75 6d 62 65 72   grab the number
0600: 20 6f 66 20 44 6f 6d 61 69 6e 55 6e 6c 6f 61 64   of DomainUnload
0610: 20 68 61 6e 64 6c 65 72 73 20 61 66 74 65 72 20   handlers after 
0620: 63 72 65 61 74 69 6e 67 20 74 68 65 0d 0a 20 20  creating the..  
0630: 23 20 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69  #       connecti
0640: 6f 6e 73 2e 0d 0a 20 20 23 0d 0a 20 20 73 65 74  ons...  #..  set
0650: 20 79 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b   y [object invok
0660: 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62  e -flags +NonPub
0670: 6c 69 63 20 5c 0d 0a 20 20 20 20 20 20 41 70 70  lic \..      App
0680: 44 6f 6d 61 69 6e 2e 43 75 72 72 65 6e 74 44 6f  Domain.CurrentDo
0690: 6d 61 69 6e 2e 5f 64 6f 6d 61 69 6e 55 6e 6c 6f  main._domainUnlo
06a0: 61 64 2e 47 65 74 49 6e 76 6f 63 61 74 69 6f 6e  ad.GetInvocation
06b0: 4c 69 73 74 20 4c 65 6e 67 74 68 5d 0d 0a 0d 0a  List Length]....
06c0: 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 4d    #..  # NOTE: M
06d0: 61 6b 65 20 73 75 72 65 20 74 68 61 74 20 6e 6f  ake sure that no
06e0: 20 44 6f 6d 61 69 6e 55 6e 6c 6f 61 64 20 68 61   DomainUnload ha
06f0: 6e 64 6c 65 72 73 20 77 65 72 65 20 61 63 74 75  ndlers were actu
0700: 61 6c 6c 79 20 61 64 64 65 64 20 77 68 69 6c 65  ally added while
0710: 20 77 65 0d 0a 20 20 23 20 20 20 20 20 20 20 63   we..  #       c
0720: 72 65 61 74 65 64 20 74 68 65 20 74 77 6f 20 63  reated the two c
0730: 6f 6e 6e 65 63 74 69 6f 6e 73 20 28 69 2e 65 2e  onnections (i.e.
0740: 20 62 65 63 61 75 73 65 20 77 65 20 61 72 65 20   because we are 
0750: 6e 6f 74 20 69 6e 20 74 68 65 20 64 65 66 61 75  not in the defau
0760: 6c 74 0d 0a 20 20 23 20 20 20 20 20 20 20 61 70  lt..  #       ap
0770: 70 6c 69 63 61 74 69 6f 6e 20 64 6f 6d 61 69 6e  plication domain
0780: 29 2e 0d 0a 20 20 23 0d 0a 20 20 65 78 70 72 20  )...  #..  expr 
0790: 7b 24 78 20 3d 3d 20 24 79 7d 0d 0a 7d 20 2d 63  {$x == $y}..} -c
07a0: 6c 65 61 6e 75 70 20 7b 0d 0a 20 20 75 6e 73 65  leanup {..  unse
07b0: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 63 6f  t -nocomplain co
07c0: 6e 6e 65 63 74 69 6f 6e 20 69 20 78 20 79 0d 0a  nnection i x y..
07d0: 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b  } -constraints {
07e0: 65 61 67 6c 65 20 64 6f 74 4e 65 74 20 6d 6f 6e  eagle dotNet mon
07f0: 6f 42 75 67 32 38 20 63 6f 6d 70 69 6c 65 2e 49  oBug28 compile.I
0800: 53 4f 4c 41 54 45 44 5f 49 4e 54 45 52 50 52 45  SOLATED_INTERPRE
0810: 54 45 52 53 20 53 51 4c 69 74 65 5c 0d 0a 53 79  TERS SQLite\..Sy
0820: 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65  stem.Data.SQLite
0830: 7d 20 2d 69 73 6f 6c 61 74 69 6f 6e 4c 65 76 65  } -isolationLeve
0840: 6c 20 41 70 70 44 6f 6d 61 69 6e 20 2d 72 65 73  l AppDomain -res
0850: 75 6c 74 20 7b 54 72 75 65 7d 7d 0d 0a 0d 0a 23  ult {True}}....#
0860: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0870: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0880: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0890: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
08a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a  ##############..
08b0: 0d 0a 72 75 6e 53 51 4c 69 74 65 54 65 73 74 45  ..runSQLiteTestE
08c0: 70 69 6c 6f 67 75 65 0d 0a 72 75 6e 54 65 73 74  pilogue..runTest
08d0: 45 70 69 6c 6f 67 75 65 0d 0a                    Epilogue..