Annotation of embedaddon/sqlite3/test/func2.test, revision 1.1
1.1 ! misho 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
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to func2.test CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test