usr/src/lib/libsqlite/test/join3_28.test

   1
   2 #pragma ident   "%Z%%M% %I%     %E% SMI"
   3
   4 # 2002 May 24
   5 #
   6 # The author disclaims copyright to this source code.  In place of
   7 # a legal notice, here is a blessing:
   8 #
   9 #    May you do good and not evil.
  10 #    May you find forgiveness for yourself and forgive others.
  11 #    May you share freely, never taking more than you give.
  12 #
  13 #***********************************************************************
  14 # This file implements regression tests for SQLite library.
  15 #
  16 # This file implements tests for joins, including outer joins, where
  17 # there are a large number of tables involved in the join.
  18 #
  19 # $Id: join3_28.test,v 1.1.2.1 2004/07/22 16:08:39 drh Exp $
  20
  21 set testdir [file dirname $argv0]
  22 source $testdir/tester.tcl
  23
  24 catch {unset result}
  25 set result {}
  26 for {set N 1} {$N<=40} {incr N} {
  27   lappend result $N
  28   do_test join3-1.$N {
  29     execsql "CREATE TABLE t${N}(x);"
  30     execsql "INSERT INTO t$N VALUES($N)"
  31     set sql "SELECT * FROM t1"
  32     for {set i 2} {$i<=$N} {incr i} {append sql ", t$i"}
  33     execsql $sql
  34   } $result
  35 }
  36
  37 finish_test