Annotation of embedaddon/sqlite3/test/vtabE.test, revision 1.1
1.1 ! misho 1: # 2009 November 23
! 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 this file making sure the register cache logic works
! 14: # correctly with virtual tables. Ticket [16fbf14cb2].
! 15: #
! 16:
! 17: set testdir [file dirname $argv0]
! 18: source $testdir/tester.tcl
! 19:
! 20: ifcapable !vtab {
! 21: finish_test
! 22: return
! 23: }
! 24:
! 25: register_tclvar_module [sqlite3_connection_pointer db]
! 26:
! 27: unset -nocomplain vtabE
! 28: set vtabE(vtabE1) 11
! 29: set vtabE(vtabE2) 22
! 30: unset -nocomplain vtabE1
! 31: set vtabE1(w) x
! 32: set vtabE1(y) z
! 33: unset -nocomplain vtabE2
! 34: set vtabE2(a) b
! 35: set vtabE2(c) d
! 36:
! 37: do_test vtabE-1 {
! 38: db eval {
! 39: CREATE VIRTUAL TABLE t1 USING tclvar;
! 40: CREATE VIRTUAL TABLE t2 USING tclvar;
! 41: CREATE TABLE t3(a INTEGER PRIMARY KEY, b);
! 42: SELECT t1.*, t2.*, abs(t3.b + abs(t2.value + abs(t1.value)))
! 43: FROM t1 LEFT JOIN t2 ON t2.name = t1.arrayname
! 44: LEFT JOIN t3 ON t3.a=t2.value
! 45: WHERE t1.name = 'vtabE'
! 46: ORDER BY t1.value, t2.value;
! 47: }
! 48: } {vtabE vtabE1 11 vtabE1 w x {} vtabE vtabE1 11 vtabE1 y z {} vtabE vtabE2 22 vtabE2 a b {} vtabE vtabE2 22 vtabE2 c d {}}
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>