/ Hex Artifact Content
Login

Artifact 686d76d888dffd021f64260abf29a55c57b2cedfa7fc69150b42b1d6119aac3c:


0000: 23 20 52 75 6e 20 74 68 69 73 20 73 63 72 69 70  # Run this scrip
0010: 74 20 75 73 69 6e 67 0a 23 0a 23 20 20 20 20 20  t using.#.#     
0020: 20 20 73 71 6c 69 74 65 33 5f 63 68 65 63 6b 65    sqlite3_checke
0030: 72 20 2d 2d 74 65 73 74 20 24 74 68 69 73 73 63  r --test $thissc
0040: 72 69 70 74 20 24 74 65 73 74 73 63 72 69 70 74  ript $testscript
0050: 73 0a 23 0a 23 20 54 68 65 20 24 74 65 73 74 73  s.#.# The $tests
0060: 63 72 69 70 74 73 20 61 72 67 75 6d 65 6e 74 20  cripts argument 
0070: 69 73 20 6f 70 74 69 6f 6e 61 6c 2e 20 20 49 66  is optional.  If
0080: 20 6f 6d 69 74 74 65 64 2c 20 61 6c 6c 20 2a 2e   omitted, all *.
0090: 74 65 73 74 20 66 69 6c 65 73 0a 23 20 69 6e 20  test files.# in 
00a0: 74 68 65 20 73 61 6d 65 20 64 69 72 65 63 74 6f  the same directo
00b0: 72 79 20 61 73 20 24 74 68 69 73 73 63 72 69 70  ry as $thisscrip
00c0: 74 20 61 72 65 20 72 75 6e 2e 0a 23 0a 73 65 74  t are run..#.set
00d0: 20 4e 54 45 53 54 20 30 0a 73 65 74 20 4e 45 52   NTEST 0.set NER
00e0: 52 20 20 30 0a 0a 0a 23 20 49 6e 76 6f 6b 65 20  R  0...# Invoke 
00f0: 74 68 65 20 64 6f 5f 74 65 73 74 20 70 72 6f 63  the do_test proc
0100: 65 64 75 72 65 20 74 6f 20 72 75 6e 20 61 20 73  edure to run a s
0110: 69 6e 67 6c 65 20 74 65 73 74 0a 23 0a 23 20 54  ingle test.#.# T
0120: 68 65 20 24 65 78 70 65 63 74 65 64 20 70 61 72  he $expected par
0130: 61 6d 65 74 65 72 20 69 73 20 74 68 65 20 65 78  ameter is the ex
0140: 70 65 63 74 65 64 20 72 65 73 75 6c 74 2e 20 20  pected result.  
0150: 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 74 68  The result is th
0160: 65 20 72 65 74 75 72 6e 0a 23 20 76 61 6c 75 65  e return.# value
0170: 20 66 72 6f 6d 20 74 68 65 20 6c 61 73 74 20 54   from the last T
0180: 43 4c 20 63 6f 6d 6d 61 6e 64 20 69 6e 20 24 63  CL command in $c
0190: 6d 64 2e 0a 23 0a 23 20 4e 6f 72 6d 61 6c 6c 79  md..#.# Normally
01a0: 2c 20 24 65 78 70 65 63 74 65 64 20 6d 75 73 74  , $expected must
01b0: 20 6d 61 74 63 68 20 65 78 61 63 74 6c 79 2e 20   match exactly. 
01c0: 20 42 75 74 20 69 66 20 24 65 78 70 65 63 74 65   But if $expecte
01d0: 64 20 69 73 20 6f 66 20 74 68 65 20 66 6f 72 6d  d is of the form
01e0: 0a 23 20 22 2f 72 65 67 65 78 70 2f 22 20 74 68  .# "/regexp/" th
01f0: 65 6e 20 72 65 67 75 6c 61 72 20 65 78 70 72 65  en regular expre
0200: 73 73 69 6f 6e 20 6d 61 74 63 68 69 6e 67 20 69  ssion matching i
0210: 73 20 75 73 65 64 2e 20 20 49 66 20 24 65 78 70  s used.  If $exp
0220: 65 63 74 65 64 20 69 73 0a 23 20 22 7e 2f 72 65  ected is.# "~/re
0230: 67 65 78 70 2f 22 20 74 68 65 6e 20 74 68 65 20  gexp/" then the 
0240: 72 65 67 75 6c 61 72 20 65 78 70 72 65 73 73 69  regular expressi
0250: 6f 6e 20 6d 75 73 74 20 4e 4f 54 20 6d 61 74 63  on must NOT matc
0260: 68 2e 20 20 49 66 20 24 65 78 70 65 63 74 65 64  h.  If $expected
0270: 20 69 73 0a 23 20 6f 66 20 74 68 65 20 66 6f 72   is.# of the for
0280: 6d 20 22 23 2f 76 61 6c 75 65 2d 6c 69 73 74 2f  m "#/value-list/
0290: 22 20 74 68 65 6e 20 65 61 63 68 20 74 65 72 6d  " then each term
02a0: 20 69 6e 20 76 61 6c 75 65 2d 6c 69 73 74 20 6d   in value-list m
02b0: 75 73 74 20 62 65 20 6e 75 6d 65 72 69 63 0a 23  ust be numeric.#
02c0: 20 61 6e 64 20 6d 75 73 74 20 61 70 70 72 6f 78   and must approx
02d0: 69 6d 61 74 65 6c 79 20 6d 61 74 63 68 20 74 68  imately match th
02e0: 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20  e corresponding 
02f0: 6e 75 6d 65 72 69 63 20 74 65 72 6d 20 69 6e 20  numeric term in 
0300: 24 72 65 73 75 6c 74 2e 0a 23 20 56 61 6c 75 65  $result..# Value
0310: 73 20 6d 75 73 74 20 6d 61 74 63 68 20 77 69 74  s must match wit
0320: 68 69 6e 20 31 30 25 2e 20 20 4f 72 20 69 66 20  hin 10%.  Or if 
0330: 74 68 65 20 24 65 78 70 65 63 74 65 64 20 74 65  the $expected te
0340: 72 6d 20 69 73 20 41 2e 2e 42 20 74 68 65 6e 20  rm is A..B then 
0350: 74 68 65 0a 23 20 24 72 65 73 75 6c 74 20 74 65  the.# $result te
0360: 72 6d 20 6d 75 73 74 20 62 65 20 69 6e 20 62 65  rm must be in be
0370: 74 77 65 65 6e 20 41 20 61 6e 64 20 42 2e 0a 23  tween A and B..#
0380: 0a 70 72 6f 63 20 64 6f 5f 74 65 73 74 20 7b 6e  .proc do_test {n
0390: 61 6d 65 20 63 6d 64 20 65 78 70 65 63 74 65 64  ame cmd expected
03a0: 7d 20 7b 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20  } {.  if {[info 
03b0: 65 78 69 73 74 73 20 3a 3a 74 65 73 74 70 72 65  exists ::testpre
03c0: 66 69 78 5d 7d 20 7b 0a 20 20 20 20 73 65 74 20  fix]} {.    set 
03d0: 6e 61 6d 65 20 22 24 3a 3a 74 65 73 74 70 72 65  name "$::testpre
03e0: 66 69 78 24 6e 61 6d 65 22 0a 20 20 7d 0a 0a 20  fix$name".  }.. 
03f0: 20 69 6e 63 72 20 3a 3a 4e 54 45 53 54 0a 20 20   incr ::NTEST.  
0400: 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20  puts -nonewline 
0410: 24 6e 61 6d 65 2e 2e 2e 0a 20 20 66 6c 75 73 68  $name....  flush
0420: 20 73 74 64 6f 75 74 0a 0a 20 20 69 66 20 7b 5b   stdout..  if {[
0430: 63 61 74 63 68 20 7b 75 70 6c 65 76 65 6c 20 23  catch {uplevel #
0440: 30 20 22 24 63 6d 64 3b 5c 6e 22 7d 20 72 65 73  0 "$cmd;\n"} res
0450: 75 6c 74 5d 7d 20 7b 0a 20 20 20 20 70 75 74 73  ult]} {.    puts
0460: 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 24 6e 61 6d   -nonewline $nam
0470: 65 2e 2e 2e 0a 20 20 20 20 70 75 74 73 20 22 5c  e....    puts "\
0480: 6e 45 72 72 6f 72 3a 20 24 72 65 73 75 6c 74 22  nError: $result"
0490: 0a 20 20 20 20 69 6e 63 72 20 3a 3a 4e 45 52 52  .    incr ::NERR
04a0: 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20  .  } else {.    
04b0: 73 65 74 20 6f 6b 20 5b 65 78 70 72 20 7b 5b 73  set ok [expr {[s
04c0: 74 72 69 6e 67 20 63 6f 6d 70 61 72 65 20 24 72  tring compare $r
04d0: 65 73 75 6c 74 20 24 65 78 70 65 63 74 65 64 5d  esult $expected]
04e0: 3d 3d 30 7d 5d 0a 20 20 20 20 69 66 20 7b 21 24  ==0}].    if {!$
04f0: 6f 6b 7d 20 7b 0a 20 20 20 20 20 20 70 75 74 73  ok} {.      puts
0500: 20 22 5c 6e 21 20 20 24 6e 61 6d 65 20 65 78 70   "\n!  $name exp
0510: 65 63 74 65 64 3a 20 5c 5b 24 65 78 70 65 63 74  ected: \[$expect
0520: 65 64 5c 5d 5c 6e 21 20 24 6e 61 6d 65 20 67 6f  ed\]\n! $name go
0530: 74 3a 20 20 20 20 20 20 5c 5b 24 72 65 73 75 6c  t:      \[$resul
0540: 74 5c 5d 22 0a 20 20 20 20 20 20 69 6e 63 72 20  t\]".      incr 
0550: 3a 3a 4e 45 52 52 0a 20 20 20 20 7d 20 65 6c 73  ::NERR.    } els
0560: 65 20 7b 0a 20 20 20 20 20 20 70 75 74 73 20 22  e {.      puts "
0570: 20 4f 6b 22 0a 20 20 20 20 7d 0a 20 20 7d 0a 20   Ok".    }.  }. 
0580: 20 66 6c 75 73 68 20 73 74 64 6f 75 74 0a 7d 0a   flush stdout.}.
0590: 0a 23 0a 23 20 20 20 64 6f 5f 65 78 65 63 73 71  .#.#   do_execsq
05a0: 6c 5f 74 65 73 74 20 54 45 53 54 4e 41 4d 45 20  l_test TESTNAME 
05b0: 53 51 4c 20 52 45 53 0a 23 0a 70 72 6f 63 20 64  SQL RES.#.proc d
05c0: 6f 5f 65 78 65 63 73 71 6c 5f 74 65 73 74 20 7b  o_execsql_test {
05d0: 74 65 73 74 6e 61 6d 65 20 73 71 6c 20 7b 72 65  testname sql {re
05e0: 73 75 6c 74 20 7b 7d 7d 7d 20 7b 0a 20 20 75 70  sult {}}} {.  up
05f0: 6c 65 76 65 6c 20 5b 6c 69 73 74 20 64 6f 5f 74  level [list do_t
0600: 65 73 74 20 24 74 65 73 74 6e 61 6d 65 20 5b 6c  est $testname [l
0610: 69 73 74 20 64 62 20 65 76 61 6c 20 24 73 71 6c  ist db eval $sql
0620: 5d 20 5b 6c 69 73 74 20 7b 2a 7d 24 72 65 73 75  ] [list {*}$resu
0630: 6c 74 5d 5d 0a 7d 0a 0a 69 66 20 7b 5b 6c 6c 65  lt]].}..if {[lle
0640: 6e 67 74 68 20 24 61 72 67 76 5d 3d 3d 30 7d 20  ngth $argv]==0} 
0650: 7b 0a 20 20 73 65 74 20 64 69 72 20 5b 66 69 6c  {.  set dir [fil
0660: 65 20 64 69 72 6e 61 6d 65 20 24 61 72 67 76 30  e dirname $argv0
0670: 5d 0a 20 20 73 65 74 20 61 72 67 76 20 5b 67 6c  ].  set argv [gl
0680: 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 24  ob -nocomplain $
0690: 64 69 72 2f 2a 2e 74 65 73 74 5d 0a 7d 0a 66 6f  dir/*.test].}.fo
06a0: 72 65 61 63 68 20 74 65 73 74 66 69 6c 65 20 24  reach testfile $
06b0: 61 72 67 76 20 7b 0a 20 20 66 69 6c 65 20 64 65  argv {.  file de
06c0: 6c 65 74 65 20 2d 66 6f 72 63 65 20 74 65 73 74  lete -force test
06d0: 2e 64 62 0a 20 20 73 71 6c 69 74 65 33 20 64 62  .db.  sqlite3 db
06e0: 20 74 65 73 74 2e 64 62 0a 20 20 73 6f 75 72 63   test.db.  sourc
06f0: 65 20 24 74 65 73 74 66 69 6c 65 0a 20 20 63 61  e $testfile.  ca
0700: 74 63 68 20 7b 64 62 20 63 6c 6f 73 65 7d 0a 7d  tch {db close}.}
0710: 0a 70 75 74 73 20 22 24 4e 45 52 52 20 65 72 72  .puts "$NERR err
0720: 6f 72 73 20 6f 75 74 20 6f 66 20 24 4e 54 45 53  ors out of $NTES
0730: 54 20 74 65 73 74 73 22 0a                       T tests".