/ Hex Artifact Content
Login

Artifact 00d13cec817f331a687a243e0e5a2d87b0e358c9:


0000: 23 20 32 30 31 34 2d 30 36 2d 31 36 0a 23 0a 23  # 2014-06-16.#.#
0010: 20 54 68 65 20 61 75 74 68 6f 72 20 64 69 73 63   The author disc
0020: 6c 61 69 6d 73 20 63 6f 70 79 72 69 67 68 74 20  laims copyright 
0030: 74 6f 20 74 68 69 73 20 73 6f 75 72 63 65 20 63  to this source c
0040: 6f 64 65 2e 20 20 49 6e 20 70 6c 61 63 65 20 6f  ode.  In place o
0050: 66 0a 23 20 61 20 6c 65 67 61 6c 20 6e 6f 74 69  f.# a legal noti
0060: 63 65 2c 20 68 65 72 65 20 69 73 20 61 20 62 6c  ce, here is a bl
0070: 65 73 73 69 6e 67 3a 0a 23 0a 23 20 20 20 20 4d  essing:.#.#    M
0080: 61 79 20 79 6f 75 20 64 6f 20 67 6f 6f 64 20 61  ay you do good a
0090: 6e 64 20 6e 6f 74 20 65 76 69 6c 2e 0a 23 20 20  nd not evil..#  
00a0: 20 20 4d 61 79 20 79 6f 75 20 66 69 6e 64 20 66    May you find f
00b0: 6f 72 67 69 76 65 6e 65 73 73 20 66 6f 72 20 79  orgiveness for y
00c0: 6f 75 72 73 65 6c 66 20 61 6e 64 20 66 6f 72 67  ourself and forg
00d0: 69 76 65 20 6f 74 68 65 72 73 2e 0a 23 20 20 20  ive others..#   
00e0: 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65 20 66   May you share f
00f0: 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74 61 6b  reely, never tak
0100: 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20 79 6f  ing more than yo
0110: 75 20 67 69 76 65 2e 0a 23 0a 23 2a 2a 2a 2a 2a  u give..#.#*****
0120: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0160: 2a 2a 0a 23 20 0a 23 20 54 68 69 73 20 66 69 6c  **.# .# This fil
0170: 65 20 69 6d 70 6c 65 6d 65 6e 74 73 20 74 65 73  e implements tes
0180: 74 73 20 66 6f 72 20 76 61 72 69 6f 75 73 20 73  ts for various s
0190: 6d 61 6c 6c 20 65 78 74 65 6e 73 69 6f 6e 73 2e  mall extensions.
01a0: 0a 23 0a 0a 73 65 74 20 74 65 73 74 64 69 72 20  .#..set testdir 
01b0: 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 61  [file dirname $a
01c0: 72 67 76 30 5d 0a 73 6f 75 72 63 65 20 24 74 65  rgv0].source $te
01d0: 73 74 64 69 72 2f 74 65 73 74 65 72 2e 74 63 6c  stdir/tester.tcl
01e0: 0a 73 65 74 20 3a 3a 74 65 73 74 70 72 65 66 69  .set ::testprefi
01f0: 78 20 65 78 74 65 6e 73 69 6f 6e 30 31 0a 0a 6c  x extension01..l
0200: 6f 61 64 5f 73 74 61 74 69 63 5f 65 78 74 65 6e  oad_static_exten
0210: 73 69 6f 6e 20 64 62 20 66 69 6c 65 69 6f 0a 64  sion db fileio.d
0220: 6f 5f 74 65 73 74 20 31 2e 30 20 7b 0a 20 20 66  o_test 1.0 {.  f
0230: 6f 72 63 65 64 65 6c 65 74 65 20 66 69 6c 65 31  orcedelete file1
0240: 2e 74 78 74 0a 20 20 73 65 74 20 6f 75 74 20 5b  .txt.  set out [
0250: 6f 70 65 6e 20 2e 2f 66 69 6c 65 31 2e 74 78 74  open ./file1.txt
0260: 20 77 62 5d 0a 20 20 70 75 74 73 20 2d 6e 6f 6e   wb].  puts -non
0270: 65 77 6c 69 6e 65 20 24 6f 75 74 20 22 54 68 69  ewline $out "Thi
0280: 73 20 69 73 20 61 20 74 65 78 74 20 66 69 6c 65  s is a text file
0290: 20 77 69 74 68 6f 75 74 20 61 20 6c 69 6e 65 20   without a line 
02a0: 65 6e 64 69 6e 67 22 0a 20 20 63 6c 6f 73 65 20  ending".  close 
02b0: 24 6f 75 74 0a 20 20 64 62 20 65 76 61 6c 20 7b  $out.  db eval {
02c0: 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c  .    CREATE TABL
02d0: 45 20 74 31 28 61 20 49 4e 54 45 47 45 52 20 50  E t1(a INTEGER P
02e0: 52 49 4d 41 52 59 20 4b 45 59 2c 20 62 20 54 45  RIMARY KEY, b TE
02f0: 58 54 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20  XT);.    INSERT 
0300: 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28 31  INTO t1 VALUES(1
0310: 2c 20 72 65 61 64 66 69 6c 65 28 27 2e 2f 66 69  , readfile('./fi
0320: 6c 65 31 2e 74 78 74 27 29 29 3b 0a 20 20 20 20  le1.txt'));.    
0330: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31  SELECT * FROM t1
0340: 3b 0a 20 20 7d 0a 7d 20 7b 31 20 7b 54 68 69 73  ;.  }.} {1 {This
0350: 20 69 73 20 61 20 74 65 78 74 20 66 69 6c 65 20   is a text file 
0360: 77 69 74 68 6f 75 74 20 61 20 6c 69 6e 65 20 65  without a line e
0370: 6e 64 69 6e 67 7d 7d 0a 64 6f 5f 74 65 73 74 20  nding}}.do_test 
0380: 31 2e 31 20 7b 0a 20 20 66 6f 72 63 65 64 65 6c  1.1 {.  forcedel
0390: 65 74 65 20 66 69 6c 65 32 2e 74 78 74 0a 20 20  ete file2.txt.  
03a0: 64 62 20 6e 75 6c 6c 76 61 6c 75 65 20 6e 69 6c  db nullvalue nil
03b0: 0a 20 20 64 62 20 65 76 61 6c 20 7b 0a 20 20 20  .  db eval {.   
03c0: 20 44 45 4c 45 54 45 20 46 52 4f 4d 20 74 31 3b   DELETE FROM t1;
03d0: 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  .    INSERT INTO
03e0: 20 74 31 20 56 41 4c 55 45 53 28 32 2c 20 72 65   t1 VALUES(2, re
03f0: 61 64 66 69 6c 65 28 4e 55 4c 4c 29 29 2c 28 33  adfile(NULL)),(3
0400: 2c 20 72 65 61 64 66 69 6c 65 28 27 66 69 6c 65  , readfile('file
0410: 32 2e 74 78 74 27 29 29 3b 0a 20 20 20 20 53 45  2.txt'));.    SE
0420: 4c 45 43 54 20 61 2c 20 62 2c 20 74 79 70 65 6f  LECT a, b, typeo
0430: 66 28 62 29 20 46 52 4f 4d 20 74 31 3b 0a 20 20  f(b) FROM t1;.  
0440: 7d 0a 7d 20 7b 32 20 6e 69 6c 20 6e 75 6c 6c 20  }.} {2 nil null 
0450: 33 20 6e 69 6c 20 6e 75 6c 6c 7d 0a 0a 64 6f 5f  3 nil null}..do_
0460: 74 65 73 74 20 31 2e 32 20 7b 0a 20 20 64 62 20  test 1.2 {.  db 
0470: 65 76 61 6c 20 7b 0a 20 20 20 20 53 45 4c 45 43  eval {.    SELEC
0480: 54 20 77 72 69 74 65 66 69 6c 65 28 27 2e 2f 66  T writefile('./f
0490: 69 6c 65 32 2e 74 78 74 27 2c 20 27 41 20 73 65  ile2.txt', 'A se
04a0: 63 6f 6e 64 20 74 65 73 74 20 6c 69 6e 65 27 29  cond test line')
04b0: 3b 0a 20 20 7d 0a 7d 20 7b 31 38 7d 0a 64 6f 5f  ;.  }.} {18}.do_
04c0: 74 65 73 74 20 31 2e 33 20 7b 0a 20 20 73 65 74  test 1.3 {.  set
04d0: 20 69 6e 20 5b 6f 70 65 6e 20 2e 2f 66 69 6c 65   in [open ./file
04e0: 32 2e 74 78 74 20 72 62 5d 0a 20 20 73 65 74 20  2.txt rb].  set 
04f0: 78 20 5b 72 65 61 64 20 24 69 6e 5d 0a 20 20 63  x [read $in].  c
0500: 6c 6f 73 65 20 24 69 6e 0a 20 20 6c 69 73 74 20  lose $in.  list 
0510: 24 78 20 5b 66 69 6c 65 20 73 69 7a 65 20 66 69  $x [file size fi
0520: 6c 65 32 2e 74 78 74 5d 0a 7d 20 7b 7b 41 20 73  le2.txt].} {{A s
0530: 65 63 6f 6e 64 20 74 65 73 74 20 6c 69 6e 65 7d  econd test line}
0540: 20 31 38 7d 0a 0a 64 6f 5f 74 65 73 74 20 31 2e   18}..do_test 1.
0550: 34 20 7b 0a 20 20 64 62 20 65 76 61 6c 20 7b 0a  4 {.  db eval {.
0560: 20 20 20 20 53 45 4c 45 43 54 20 77 72 69 74 65      SELECT write
0570: 66 69 6c 65 28 27 2e 2f 66 69 6c 65 32 2e 74 78  file('./file2.tx
0580: 74 27 2c 20 4e 55 4c 4c 29 3b 0a 20 20 7d 0a 7d  t', NULL);.  }.}
0590: 20 7b 30 7d 0a 64 6f 5f 74 65 73 74 20 31 2e 35   {0}.do_test 1.5
05a0: 20 7b 0a 20 20 66 69 6c 65 20 73 69 7a 65 20 2e   {.  file size .
05b0: 2f 66 69 6c 65 32 2e 74 78 74 0a 7d 20 7b 30 7d  /file2.txt.} {0}
05c0: 0a 0a 64 6f 5f 74 65 73 74 20 31 2e 36 20 7b 0a  ..do_test 1.6 {.
05d0: 20 20 69 66 20 7b 24 3a 3a 74 63 6c 5f 70 6c 61    if {$::tcl_pla
05e0: 74 66 6f 72 6d 28 70 6c 61 74 66 6f 72 6d 29 3d  tform(platform)=
05f0: 3d 22 75 6e 69 78 22 7d 20 7b 0a 20 20 20 20 66  ="unix"} {.    f
0600: 69 6c 65 20 61 74 74 72 69 62 75 74 65 73 20 2e  ile attributes .
0610: 2f 66 69 6c 65 32 2e 74 78 74 20 2d 70 65 72 6d  /file2.txt -perm
0620: 69 73 73 69 6f 6e 73 20 72 2d 2d 72 2d 2d 72 2d  issions r--r--r-
0630: 2d 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20  -.  } else {.   
0640: 20 66 69 6c 65 20 61 74 74 72 69 62 75 74 65 73   file attributes
0650: 20 2e 2f 66 69 6c 65 32 2e 74 78 74 20 2d 72 65   ./file2.txt -re
0660: 61 64 6f 6e 6c 79 20 31 0a 20 20 7d 0a 20 20 64  adonly 1.  }.  d
0670: 62 20 65 76 61 6c 20 7b 0a 20 20 20 20 53 45 4c  b eval {.    SEL
0680: 45 43 54 20 77 72 69 74 65 66 69 6c 65 28 27 2e  ECT writefile('.
0690: 2f 66 69 6c 65 32 2e 74 78 74 27 2c 20 27 41 6e  /file2.txt', 'An
06a0: 6f 74 68 65 72 20 74 65 73 74 27 29 3b 0a 20 20  other test');.  
06b0: 7d 0a 7d 20 7b 6e 69 6c 7d 0a 64 6f 5f 74 65 73  }.} {nil}.do_tes
06c0: 74 20 31 2e 37 20 7b 0a 20 20 69 66 20 7b 24 3a  t 1.7 {.  if {$:
06d0: 3a 74 63 6c 5f 70 6c 61 74 66 6f 72 6d 28 70 6c  :tcl_platform(pl
06e0: 61 74 66 6f 72 6d 29 3d 3d 22 75 6e 69 78 22 7d  atform)=="unix"}
06f0: 20 7b 0a 20 20 20 20 66 69 6c 65 20 61 74 74 72   {.    file attr
0700: 69 62 75 74 65 73 20 2e 2f 66 69 6c 65 32 2e 74  ibutes ./file2.t
0710: 78 74 20 2d 70 65 72 6d 69 73 73 69 6f 6e 73 20  xt -permissions 
0720: 72 77 2d 72 2d 2d 72 2d 2d 0a 20 20 7d 20 65 6c  rw-r--r--.  } el
0730: 73 65 20 7b 0a 20 20 20 20 66 69 6c 65 20 61 74  se {.    file at
0740: 74 72 69 62 75 74 65 73 20 2e 2f 66 69 6c 65 32  tributes ./file2
0750: 2e 74 78 74 20 2d 72 65 61 64 6f 6e 6c 79 20 30  .txt -readonly 0
0760: 0a 20 20 7d 0a 20 20 64 62 20 65 76 61 6c 20 7b  .  }.  db eval {
0770: 0a 20 20 20 20 53 45 4c 45 43 54 20 77 72 69 74  .    SELECT writ
0780: 65 66 69 6c 65 28 4e 55 4c 4c 2c 20 27 41 6e 6f  efile(NULL, 'Ano
0790: 74 68 65 72 20 74 65 73 74 27 29 3b 0a 20 20 7d  ther test');.  }
07a0: 0a 7d 20 7b 6e 69 6c 7d 0a 0a 66 69 6e 69 73 68  .} {nil}..finish
07b0: 5f 74 65 73 74 0a                                _test.