test/func2.test

   1 # 2009 November 11
   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.  The
  12 # focus of this file is testing built-in functions.
  13 #
  14
  15 set testdir [file dirname $argv0]
  16 source $testdir/tester.tcl
  17
  18 # Test plan:
  19 #
  20 #   func2-1.*: substr implementation (ascii)
  21 #   func2-2.*: substr implementation (utf8)
  22 #   func2-3.*: substr implementation (blob)
  23 #
  24
  25 proc bin_to_hex {blob} {
  26   set bytes {}
  27   binary scan $blob \c* bytes
  28   set bytes2 [list]
  29   foreach b $bytes {lappend bytes2 [format %02X [expr $b & 0xFF]]}
  30   join $bytes2 {}
  31 }
  32
  33 #----------------------------------------------------------------------------
  34 # Test cases func2-1.*: substr implementation (ascii)
  35 #
  36
  37 do_test func2-1.1 {
  38   execsql {SELECT 'Supercalifragilisticexpialidocious'}
  39 } {Supercalifragilisticexpialidocious}
  40
  41 # substr(x,y), substr(x,y,z)
  42 do_test func2-1.2.1 {
  43   catchsql {SELECT SUBSTR()}
  44 } {1 {wrong number of arguments to function SUBSTR()}}
  45 do_test func2-1.2.2 {
  46   catchsql {SELECT SUBSTR('Supercalifragilisticexpialidocious')}
  47 } {1 {wrong number of arguments to function SUBSTR()}}
  48 do_test func2-1.2.3 {
  49   catchsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 1,1,1)}
  50 } {1 {wrong number of arguments to function SUBSTR()}}
  51
  52 # p1 is 1-indexed
  53 do_test func2-1.3 {
  54   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 0)}
  55 } {Supercalifragilisticexpialidocious}
  56 do_test func2-1.4 {
  57   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 1)}
  58 } {Supercalifragilisticexpialidocious}
  59 do_test func2-1.5 {
  60   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 2)}
  61 } {upercalifragilisticexpialidocious}
  62 do_test func2-1.6 {
  63   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 30)}
  64 } {cious}
  65 do_test func2-1.7 {
  66   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 34)}
  67 } {s}
  68 do_test func2-1.8 {
  69   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 35)}
  70 } {{}}
  71 do_test func2-1.9 {
  72   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 36)}
  73 } {{}}
  74
  75 # if p1<0, start from right
  76 do_test func2-1.10 {
  77   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -0)}
  78 } {Supercalifragilisticexpialidocious}
  79 do_test func2-1.11 {
  80   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -1)}
  81 } {s}
  82 do_test func2-1.12 {
  83   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -2)}
  84 } {us}
  85 do_test func2-1.13 {
  86   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -30)}
  87 } {rcalifragilisticexpialidocious}
  88 do_test func2-1.14 {
  89   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -34)}
  90 } {Supercalifragilisticexpialidocious}
  91 do_test func2-1.15 {
  92   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -35)}
  93 } {Supercalifragilisticexpialidocious}
  94 do_test func2-1.16 {
  95   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -36)}
  96 } {Supercalifragilisticexpialidocious}
  97
  98 # p1 is 1-indexed, p2 length to return
  99 do_test func2-1.17.1 {
 100   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 0, 1)}
 101 } {{}}
 102 do_test func2-1.17.2 {
 103   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 0, 2)}
 104 } {S}
 105 do_test func2-1.18 {
 106   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 1, 1)}
 107 } {S}
 108 do_test func2-1.19.0 {
 109   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 2, 0)}
 110 } {{}}
 111 do_test func2-1.19.1 {
 112   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 2, 1)}
 113 } {u}
 114 do_test func2-1.19.2 {
 115   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 2, 2)}
 116 } {up}
 117 do_test func2-1.20 {
 118   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 30, 1)}
 119 } {c}
 120 do_test func2-1.21 {
 121   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 34, 1)}
 122 } {s}
 123 do_test func2-1.22 {
 124   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 35, 1)}
 125 } {{}}
 126 do_test func2-1.23 {
 127   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 36, 1)}
 128 } {{}}
 129
 130 # if p1<0, start from right, p2 length to return
 131 do_test func2-1.24 {
 132   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -0, 1)}
 133 } {{}}
 134 do_test func2-1.25.0 {
 135   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -1, 0)}
 136 } {{}}
 137 do_test func2-1.25.1 {
 138   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -1, 1)}
 139 } {s}
 140 do_test func2-1.25.2 {
 141   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -1, 2)}
 142 } {s}
 143 do_test func2-1.26 {
 144   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -2, 1)}
 145 } {u}
 146 do_test func2-1.27 {
 147   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -30, 1)}
 148 } {r}
 149 do_test func2-1.28.0 {
 150   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -34, 0)}
 151 } {{}}
 152 do_test func2-1.28.1 {
 153   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -34, 1)}
 154 } {S}
 155 do_test func2-1.28.2 {
 156   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -34, 2)}
 157 } {Su}
 158 do_test func2-1.29.1 {
 159   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -35, 1)}
 160 } {{}}
 161 do_test func2-1.29.2 {
 162   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -35, 2)}
 163 } {S}
 164 do_test func2-1.30.0 {
 165   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -36, 0)}
 166 } {{}}
 167 do_test func2-1.30.1 {
 168   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -36, 1)}
 169 } {{}}
 170 do_test func2-1.30.2 {
 171   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -36, 2)}
 172 } {{}}
 173 do_test func2-1.30.3 {
 174   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -36, 3)}
 175 } {S}
 176
 177 # p1 is 1-indexed, p2 length to return, p2<0 return p2 chars before p1
 178 do_test func2-1.31.0 {
 179   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 0, 0)}
 180 } {{}}
 181 do_test func2-1.31.1 {
 182   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 0, -1)}
 183 } {{}}
 184 do_test func2-1.31.2 {
 185   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 0, -2)}
 186 } {{}}
 187 do_test func2-1.32.0 {
 188   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 1, 0)}
 189 } {{}}
 190 do_test func2-1.32.1 {
 191   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 1, -1)}
 192 } {{}}
 193 do_test func2-1.33.0 {
 194   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 2, 0)}
 195 } {{}}
 196 do_test func2-1.33.1 {
 197   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 2, -1)}
 198 } {S}
 199 do_test func2-1.33.2 {
 200   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 2, -2)}
 201 } {S}
 202 do_test func2-1.34.0 {
 203   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 3, 0)}
 204 } {{}}
 205 do_test func2-1.34.1 {
 206   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 3, -1)}
 207 } {u}
 208 do_test func2-1.34.2 {
 209   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 3, -2)}
 210 } {Su}
 211 do_test func2-1.35.1 {
 212   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 30, -1)}
 213 } {o}
 214 do_test func2-1.35.2 {
 215   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 30, -2)}
 216 } {do}
 217 do_test func2-1.36 {
 218   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 34, -1)}
 219 } {u}
 220 do_test func2-1.37 {
 221   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 35, -1)}
 222 } {s}
 223 do_test func2-1.38.0 {
 224   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 36, 0)}
 225 } {{}}
 226 do_test func2-1.38.1 {
 227   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 36, -1)}
 228 } {{}}
 229 do_test func2-1.38.2 {
 230   execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 36, -2)}
 231 } {s}
 232
 233
 234 #----------------------------------------------------------------------------
 235 # Test cases func2-2.*: substr implementation (utf8)
 236 #
 237
 238 # Only do the following tests if TCL has UTF-8 capabilities
 239 #
 240 if {"\u1234"!="u1234"} {
 241
 242 do_test func2-2.1.1 {
 243   execsql "SELECT 'hi\u1234ho'"
 244 } "hi\u1234ho"
 245
 246 # substr(x,y), substr(x,y,z)
 247 do_test func2-2.1.2 {
 248   catchsql "SELECT SUBSTR()"
 249 } {1 {wrong number of arguments to function SUBSTR()}}
 250 do_test func2-2.1.3 {
 251   catchsql "SELECT SUBSTR('hi\u1234ho')"
 252 } {1 {wrong number of arguments to function SUBSTR()}}
 253 do_test func2-2.1.4 {
 254   catchsql "SELECT SUBSTR('hi\u1234ho', 1,1,1)"
 255 } {1 {wrong number of arguments to function SUBSTR()}}
 256
 257 do_test func2-2.2.0 {
 258   execsql "SELECT SUBSTR('hi\u1234ho', 0, 0)"
 259 } {{}}
 260 do_test func2-2.2.1 {
 261   execsql "SELECT SUBSTR('hi\u1234ho', 0, 1)"
 262 } {{}}
 263 do_test func2-2.2.2 {
 264   execsql "SELECT SUBSTR('hi\u1234ho', 0, 2)"
 265 } "h"
 266 do_test func2-2.2.3 {
 267   execsql "SELECT SUBSTR('hi\u1234ho', 0, 3)"
 268 } "hi"
 269 do_test func2-2.2.4 {
 270   execsql "SELECT SUBSTR('hi\u1234ho', 0, 4)"
 271 } "hi\u1234"
 272 do_test func2-2.2.5 {
 273   execsql "SELECT SUBSTR('hi\u1234ho', 0, 5)"
 274 } "hi\u1234h"
 275 do_test func2-2.2.6 {
 276   execsql "SELECT SUBSTR('hi\u1234ho', 0, 6)"
 277 } "hi\u1234ho"
 278
 279 do_test func2-2.3.0 {
 280   execsql "SELECT SUBSTR('hi\u1234ho', 1, 0)"
 281 } {{}}
 282 do_test func2-2.3.1 {
 283   execsql "SELECT SUBSTR('hi\u1234ho', 1, 1)"
 284 } "h"
 285 do_test func2-2.3.2 {
 286   execsql "SELECT SUBSTR('hi\u1234ho', 1, 2)"
 287 } "hi"
 288 do_test func2-2.3.3 {
 289   execsql "SELECT SUBSTR('hi\u1234ho', 1, 3)"
 290 } "hi\u1234"
 291 do_test func2-2.3.4 {
 292   execsql "SELECT SUBSTR('hi\u1234ho', 1, 4)"
 293 } "hi\u1234h"
 294 do_test func2-2.3.5 {
 295   execsql "SELECT SUBSTR('hi\u1234ho', 1, 5)"
 296 } "hi\u1234ho"
 297 do_test func2-2.3.6 {
 298   execsql "SELECT SUBSTR('hi\u1234ho', 1, 6)"
 299 } "hi\u1234ho"
 300
 301 do_test func2-2.4.0 {
 302   execsql "SELECT SUBSTR('hi\u1234ho', 3, 0)"
 303 } {{}}
 304 do_test func2-2.4.1 {
 305   execsql "SELECT SUBSTR('hi\u1234ho', 3, 1)"
 306 } "\u1234"
 307 do_test func2-2.4.2 {
 308   execsql "SELECT SUBSTR('hi\u1234ho', 3, 2)"
 309 } "\u1234h"
 310
 311 do_test func2-2.5.0 {
 312   execsql "SELECT SUBSTR('\u1234', 0, 0)"
 313 } {{}}
 314 do_test func2-2.5.1 {
 315   execsql "SELECT SUBSTR('\u1234', 0, 1)"
 316 } {{}}
 317 do_test func2-2.5.2 {
 318   execsql "SELECT SUBSTR('\u1234', 0, 2)"
 319 } "\u1234"
 320 do_test func2-2.5.3 {
 321   execsql "SELECT SUBSTR('\u1234', 0, 3)"
 322 } "\u1234"
 323
 324 do_test func2-2.6.0 {
 325   execsql "SELECT SUBSTR('\u1234', 1, 0)"
 326 } {{}}
 327 do_test func2-2.6.1 {
 328   execsql "SELECT SUBSTR('\u1234', 1, 1)"
 329 } "\u1234"
 330 do_test func2-2.6.2 {
 331   execsql "SELECT SUBSTR('\u1234', 1, 2)"
 332 } "\u1234"
 333 do_test func2-2.6.3 {
 334   execsql "SELECT SUBSTR('\u1234', 1, 3)"
 335 } "\u1234"
 336
 337 do_test func2-2.7.0 {
 338   execsql "SELECT SUBSTR('\u1234', 2, 0)"
 339 } {{}}
 340 do_test func2-2.7.1 {
 341   execsql "SELECT SUBSTR('\u1234', 2, 1)"
 342 } {{}}
 343 do_test func2-2.7.2 {
 344   execsql "SELECT SUBSTR('\u1234', 2, 2)"
 345 } {{}}
 346
 347 do_test func2-2.8.0 {
 348   execsql "SELECT SUBSTR('\u1234', -1, 0)"
 349 } {{}}
 350 do_test func2-2.8.1 {
 351   execsql "SELECT SUBSTR('\u1234', -1, 1)"
 352 } "\u1234"
 353 do_test func2-2.8.2 {
 354   execsql "SELECT SUBSTR('\u1234', -1, 2)"
 355 } "\u1234"
 356 do_test func2-2.8.3 {
 357   execsql "SELECT SUBSTR('\u1234', -1, 3)"
 358 } "\u1234"
 359
 360 } ;# End \u1234!=u1234
 361
 362 #----------------------------------------------------------------------------
 363 # Test cases func2-3.*: substr implementation (blob)
 364 #
 365
 366 ifcapable {!bloblit} {
 367   finish_test
 368   return
 369 }
 370
 371 do_test func2-3.1.1 {
 372   set blob [execsql "SELECT x'1234'"]
 373   bin_to_hex [lindex $blob 0]
 374 } "1234"
 375
 376 # substr(x,y), substr(x,y,z)
 377 do_test func2-3.1.2 {
 378   catchsql {SELECT SUBSTR()}
 379 } {1 {wrong number of arguments to function SUBSTR()}}
 380 do_test func2-3.1.3 {
 381   catchsql {SELECT SUBSTR(x'1234')}
 382 } {1 {wrong number of arguments to function SUBSTR()}}
 383 do_test func2-3.1.4 {
 384   catchsql {SELECT SUBSTR(x'1234', 1,1,1)}
 385 } {1 {wrong number of arguments to function SUBSTR()}}
 386
 387 do_test func2-3.2.0 {
 388   set blob [execsql "SELECT SUBSTR(x'1234', 0, 0)"]
 389   bin_to_hex [lindex $blob 0]
 390 } {}
 391 do_test func2-3.2.1 {
 392   set blob [execsql "SELECT SUBSTR(x'1234', 0, 1)"]
 393   bin_to_hex [lindex $blob 0]
 394 } {}
 395 do_test func2-3.2.2 {
 396   set blob [execsql "SELECT SUBSTR(x'1234', 0, 2)"]
 397   bin_to_hex [lindex $blob 0]
 398 } "12"
 399 do_test func2-3.2.3 {
 400   set blob [execsql "SELECT SUBSTR(x'1234', 0, 3)"]
 401   bin_to_hex [lindex $blob 0]
 402 } "1234"
 403
 404 do_test func2-3.3.0 {
 405   set blob [execsql "SELECT SUBSTR(x'1234', 1, 0)"]
 406   bin_to_hex [lindex $blob 0]
 407 } {}
 408 do_test func2-3.3.1 {
 409   set blob [execsql "SELECT SUBSTR(x'1234', 1, 1)"]
 410   bin_to_hex [lindex $blob 0]
 411 } "12"
 412 do_test func2-3.3.2 {
 413   set blob [execsql "SELECT SUBSTR(x'1234', 1, 2)"]
 414   bin_to_hex [lindex $blob 0]
 415 } "1234"
 416 do_test func2-3.3.3 {
 417   set blob [execsql "SELECT SUBSTR(x'1234', 1, 3)"]
 418   bin_to_hex [lindex $blob 0]
 419 } "1234"
 420
 421 do_test func2-3.4.0 {
 422   set blob [execsql "SELECT SUBSTR(x'1234', -1, 0)"]
 423   bin_to_hex [lindex $blob 0]
 424 } {}
 425 do_test func2-3.4.1 {
 426   set blob [execsql "SELECT SUBSTR(x'1234', -1, 1)"]
 427   bin_to_hex [lindex $blob 0]
 428 } "34"
 429 do_test func2-3.4.2 {
 430   set blob [execsql "SELECT SUBSTR(x'1234', -1, 2)"]
 431   bin_to_hex [lindex $blob 0]
 432 } "34"
 433 do_test func2-3.4.3 {
 434   set blob [execsql "SELECT SUBSTR(x'1234', -1, 3)"]
 435   bin_to_hex [lindex $blob 0]
 436 } "34"
 437
 438 do_test func2-3.5.0 {
 439   set blob [execsql "SELECT SUBSTR(x'1234', -2, 0)"]
 440   bin_to_hex [lindex $blob 0]
 441 } {}
 442 do_test func2-3.5.1 {
 443   set blob [execsql "SELECT SUBSTR(x'1234', -2, 1)"]
 444   bin_to_hex [lindex $blob 0]
 445 } "12"
 446 do_test func2-3.5.2 {
 447   set blob [execsql "SELECT SUBSTR(x'1234', -2, 2)"]
 448   bin_to_hex [lindex $blob 0]
 449 } "1234"
 450 do_test func2-3.5.3 {
 451   set blob [execsql "SELECT SUBSTR(x'1234', -2, 3)"]
 452   bin_to_hex [lindex $blob 0]
 453 } "1234"
 454
 455 do_test func2-3.6.0 {
 456   set blob [execsql "SELECT SUBSTR(x'1234', -1, 0)"]
 457   bin_to_hex [lindex $blob 0]
 458 } {}
 459 do_test func2-3.6.1 {
 460   set blob [execsql "SELECT SUBSTR(x'1234', -1, -1)"]
 461   bin_to_hex [lindex $blob 0]
 462 } "12"
 463 do_test func2-3.6.2 {
 464   set blob [execsql "SELECT SUBSTR(x'1234', -1, -2)"]
 465   bin_to_hex [lindex $blob 0]
 466 } "12"
 467 do_test func2-3.6.3 {
 468   set blob [execsql "SELECT SUBSTR(x'1234', -1, -3)"]
 469   bin_to_hex [lindex $blob 0]
 470 } "12"
 471
 472 do_test func2-3.7.0 {
 473   set blob [execsql "SELECT SUBSTR(x'1234', -2, 0)"]
 474   bin_to_hex [lindex $blob 0]
 475 } {}
 476 do_test func2-3.7.1 {
 477   set blob [execsql "SELECT SUBSTR(x'1234', -2, -1)"]
 478   bin_to_hex [lindex $blob 0]
 479 } {}
 480 do_test func2-3.7.2 {
 481   set blob [execsql "SELECT SUBSTR(x'1234', -2, -2)"]
 482   bin_to_hex [lindex $blob 0]
 483 } {}
 484
 485 do_test func2-3.8.0 {
 486   set blob [execsql "SELECT SUBSTR(x'1234', 1, 0)"]
 487   bin_to_hex [lindex $blob 0]
 488 } {}
 489 do_test func2-3.8.1 {
 490   set blob [execsql "SELECT SUBSTR(x'1234', 1, -1)"]
 491   bin_to_hex [lindex $blob 0]
 492 } {}
 493 do_test func2-3.8.2 {
 494   set blob [execsql "SELECT SUBSTR(x'1234', 1, -2)"]
 495   bin_to_hex [lindex $blob 0]
 496 } {}
 497
 498 do_test func2-3.9.0 {
 499   set blob [execsql "SELECT SUBSTR(x'1234', 2, 0)"]
 500   bin_to_hex [lindex $blob 0]
 501 } {}
 502 do_test func2-3.9.1 {
 503   set blob [execsql "SELECT SUBSTR(x'1234', 2, -1)"]
 504   bin_to_hex [lindex $blob 0]
 505 } "12"
 506 do_test func2-3.9.2 {
 507   set blob [execsql "SELECT SUBSTR(x'1234', 2, -2)"]
 508   bin_to_hex [lindex $blob 0]
 509 } "12"
 510
 511 finish_test