test/ptrchng.test

   1 # 2007 April 27
   2 #
   3 # The author disclaims copyright to this source code.  In place of
   4 # a legal notice, here is a blessing:
   5 #
   6 #    May you do good and not evil.
   7 #    May you find forgiveness for yourself and forgive others.
   8 #    May you share freely, never taking more than you give.
   9 #
  10 #***********************************************************************
  11 # This file implements regression tests for SQLite library.
  12 #
  13 # The focus of the tests in this file are to verify that the
  14 # underlying TEXT or BLOB representation of an sqlite3_value
  15 # changes appropriately when APIs from the following set are
  16 # called:
  17 #
  18 #     sqlite3_value_text()
  19 #     sqlite3_value_text16()
  20 #     sqlite3_value_blob()
  21 #     sqlite3_value_bytes()
  22 #     sqlite3_value_bytes16()
  23 #
  24 # $Id: ptrchng.test,v 1.5 2008/07/12 14:52:20 drh Exp $
  25
  26 set testdir [file dirname $argv0]
  27 source $testdir/tester.tcl
  28
  29 ifcapable !bloblit {
  30   finish_test
  31   return
  32 }
  33
  34 # Register the "pointer_change" SQL function.
  35 #
  36 sqlite3_create_function db
  37
  38 do_test ptrchng-1.1 {
  39   execsql {
  40     CREATE TABLE t1(x INTEGER PRIMARY KEY, y BLOB);
  41     INSERT INTO t1 VALUES(1, 'abc');
  42     INSERT INTO t1 VALUES(2,
  43        'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ01234356789');
  44     INSERT INTO t1 VALUES(3, x'626c6f62');
  45     INSERT INTO t1 VALUES(4,
  46  x'000102030405060708090a0b0c0d0e0f101112131415161718191a1b1c1d1e1f2021222324'
  47     );
  48     SELECT count(*) FROM t1;
  49   }
  50 } {4}
  51
  52 # For the short entries that fit in the Mem.zBuf[], the pointer should
  53 # never change regardless of what type conversions occur.
  54 #
  55 # UPDATE: No longer true, as Mem.zBuf[] has been removed.
  56 #
  57 do_test ptrchng-2.1 {
  58   execsql {
  59     SELECT pointer_change(y, 'text', 'noop', 'blob') FROM t1 WHERE x=1
  60   }
  61 } {0}
  62 do_test ptrchng-2.2 {
  63   execsql {
  64     SELECT pointer_change(y, 'blob', 'noop', 'text') FROM t1 WHERE x=1
  65   }
  66 } {0}
  67 ifcapable utf16 {
  68   do_test ptrchng-2.3 {
  69     execsql {
  70       SELECT pointer_change(y, 'text', 'noop', 'text16') FROM t1 WHERE x=1
  71     }
  72   } {1}
  73   do_test ptrchng-2.4 {
  74     execsql {
  75       SELECT pointer_change(y, 'blob', 'noop', 'text16') FROM t1 WHERE x=1
  76     }
  77   } {1}
  78   do_test ptrchng-2.5 {
  79     execsql {
  80       SELECT pointer_change(y, 'text16', 'noop', 'blob') FROM t1 WHERE x=1
  81     }
  82   } {0}
  83   do_test ptrchng-2.6 {
  84     execsql {
  85       SELECT pointer_change(y, 'text16', 'noop', 'text') FROM t1 WHERE x=1
  86     }
  87   } {1}
  88 }
  89 do_test ptrchng-2.11 {
  90   execsql {
  91     SELECT pointer_change(y, 'text', 'noop', 'blob') FROM t1 WHERE x=3
  92   }
  93 } {0}
  94 do_test ptrchng-2.12 {
  95   execsql {
  96     SELECT pointer_change(y, 'blob', 'noop', 'text') FROM t1 WHERE x=3
  97   }
  98 } {0}
  99 ifcapable utf16 {
 100   do_test ptrchng-2.13 {
 101     execsql {
 102       SELECT pointer_change(y, 'text', 'noop', 'text16') FROM t1 WHERE x=3
 103     }
 104   } {1}
 105   do_test ptrchng-2.14 {
 106     execsql {
 107       SELECT pointer_change(y, 'blob', 'noop', 'text16') FROM t1 WHERE x=3
 108     }
 109   } {1}
 110   do_test ptrchng-2.15 {
 111     execsql {
 112       SELECT pointer_change(y, 'text16', 'noop', 'blob') FROM t1 WHERE x=3
 113     }
 114   } {0}
 115   do_test ptrchng-2.16 {
 116     execsql {
 117       SELECT pointer_change(y, 'text16', 'noop', 'text') FROM t1 WHERE x=3
 118     }
 119   } {1}
 120 }
 121
 122 # For the long entries that do not fit in the Mem.zBuf[], the pointer
 123 # should change sometimes.
 124 #
 125 do_test ptrchng-3.1 {
 126   execsql {
 127     SELECT pointer_change(y, 'text', 'noop', 'blob') FROM t1 WHERE x=2
 128   }
 129 } {0}
 130 do_test ptrchng-3.2 {
 131   execsql {
 132     SELECT pointer_change(y, 'blob', 'noop', 'text') FROM t1 WHERE x=2
 133   }
 134 } {0}
 135 ifcapable utf16 {
 136   do_test ptrchng-3.3 {
 137     execsql {
 138       SELECT pointer_change(y, 'text', 'noop', 'text16') FROM t1 WHERE x=2
 139     }
 140   } {1}
 141   do_test ptrchng-3.4 {
 142     execsql {
 143       SELECT pointer_change(y, 'blob', 'noop', 'text16') FROM t1 WHERE x=2
 144     }
 145   } {1}
 146   do_test ptrchng-3.5 {
 147     execsql {
 148       SELECT pointer_change(y, 'text16', 'noop', 'blob') FROM t1 WHERE x=2
 149     }
 150   } {0}
 151   do_test ptrchng-3.6 {
 152     execsql {
 153       SELECT pointer_change(y, 'text16', 'noop', 'text') FROM t1 WHERE x=2
 154     }
 155   } {1}
 156 }
 157 do_test ptrchng-3.11 {
 158   execsql {
 159     SELECT pointer_change(y, 'text', 'noop', 'blob') FROM t1 WHERE x=4
 160   }
 161 } {0}
 162 do_test ptrchng-3.12 {
 163   execsql {
 164     SELECT pointer_change(y, 'blob', 'noop', 'text') FROM t1 WHERE x=4
 165   }
 166 } {0}
 167 ifcapable utf16 {
 168   do_test ptrchng-3.13 {
 169     execsql {
 170       SELECT pointer_change(y, 'text', 'noop', 'text16') FROM t1 WHERE x=4
 171     }
 172   } {1}
 173   do_test ptrchng-3.14 {
 174     execsql {
 175       SELECT pointer_change(y, 'blob', 'noop', 'text16') FROM t1 WHERE x=4
 176     }
 177   } {1}
 178   do_test ptrchng-3.15 {
 179     execsql {
 180       SELECT pointer_change(y, 'text16', 'noop', 'blob') FROM t1 WHERE x=4
 181     }
 182   } {0}
 183   do_test ptrchng-3.16 {
 184     execsql {
 185       SELECT pointer_change(y, 'text16', 'noop', 'text') FROM t1 WHERE x=4
 186     }
 187   } {1}
 188 }
 189
 190 # A call to _bytes() should never reformat a _text() or _blob().
 191 #
 192 do_test ptrchng-4.1 {
 193   execsql {
 194     SELECT pointer_change(y, 'text', 'bytes', 'text') FROM t1
 195   }
 196 } {0 0 0 0}
 197 do_test ptrchng-4.2 {
 198   execsql {
 199     SELECT pointer_change(y, 'blob', 'bytes', 'blob') FROM t1
 200   }
 201 } {0 0 0 0}
 202
 203 # A call to _blob() should never trigger a reformat
 204 #
 205 do_test ptrchng-5.1 {
 206   execsql {
 207     SELECT pointer_change(y, 'text', 'bytes', 'blob') FROM t1
 208   }
 209 } {0 0 0 0}
 210 ifcapable utf16 {
 211   do_test ptrchng-5.2 {
 212     execsql {
 213       SELECT pointer_change(y, 'text16', 'noop', 'blob') FROM t1
 214     }
 215   } {0 0 0 0}
 216   do_test ptrchng-5.3 {
 217     execsql {
 218       SELECT pointer_change(y, 'text16', 'bytes16', 'blob') FROM t1
 219     }
 220   } {0 0 0 0}
 221 }
 222
 223 finish_test