1# 2022 May 17 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 14set testdir [file dirname $argv0] 15source $testdir/tester.tcl 16set testprefix joinH 17 18do_execsql_test 1.0 { 19 CREATE TABLE t1(a INT); 20 CREATE TABLE t2(b INT); 21 INSERT INTO t2(b) VALUES(NULL); 22} 23 24db nullvalue NULL 25 26do_execsql_test 1.1 { 27 SELECT DISTINCT a FROM t1 FULL JOIN t2 ON true WHERE (b ISNULL); 28} {NULL} 29do_execsql_test 1.2 { 30 SELECT a FROM t1 FULL JOIN t2 ON true; 31} {NULL} 32do_execsql_test 1.3 { 33 SELECT a FROM t1 FULL JOIN t2 ON true WHERE (b ISNULL); 34} {NULL} 35do_execsql_test 1.4 { 36 SELECT DISTINCT a FROM t1 FULL JOIN t2 ON true; 37} {NULL} 38 39#----------------------------------------------------------- 40 41reset_db 42do_execsql_test 2.0 { 43 CREATE TABLE r3(x); 44 CREATE TABLE r4(y INTEGER PRIMARY KEY); 45 INSERT INTO r4 VALUES(55); 46} 47 48do_execsql_test 2.1 { 49 SELECT 'value!' FROM r3 FULL JOIN r4 ON (y=x); 50} {value!} 51 52do_execsql_test 2.2 { 53 SELECT 'value!' FROM r3 FULL JOIN r4 ON (y=x) WHERE +y=55; 54} {value!} 55 56 57finish_test 58