limbo/testing/values.test

#!/usr/bin/env tclsh

set testdir [file dirname $argv0]
source $testdir/tester.tcl

do_execsql_test values-1 {
    values(1, 2);
} {1|2};

do_execsql_test values-2 {
    values(1, 2), (3, 4);
} {1|2
3|4};

do_execsql_test values-3 {
    values(1+1, 2*3);
} {2|6};

do_execsql_test values-in-from {
  select * from (values(3, 4, 5), (5, 6, 7), (8, 9, 10));
} {3|4|5
  5|6|7
  8|9|10};

do_execsql_test values-in-join {
  select * from (values(1, 2)) join (values(3, 4), (5, 6));
} {1|2|3|4
  1|2|5|6};