add, expand, and use in from, VALUES

[scpubgit/Q-Branch.git] / xt / clauses.t

diff --git a/xt/clauses.t b/xt/clauses.t
index 4fabc98..5546d86 100644 (file)
--- a/xt/clauses.t
+++ b/xt/clauses.t
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 use Test::More;
-use SQL::Abstract::Test import => [ qw(is_same_sql_bind) ];
+use SQL::Abstract::Test import => [ qw(is_same_sql_bind is_same_sql) ];
 use SQL::Abstract::ExtraClauses;
 
 my $sqlac = SQL::Abstract::ExtraClauses->new;
@@ -31,4 +31,11 @@ is_same_sql_bind(
   [ [ 'Rock' ], 3 ]
 );
 
+($sql) = $sqlac->select({
+  select => [ 'a' ],
+  from => [ { -values => [ [ 1, 2 ], [ 3, 4 ] ] }, -as => [ qw(t a b) ] ],
+});
+
+is_same_sql($sql, q{SELECT a FROM (VALUES (1, 2), (3, 4)) AS t(a,b)});
+
 done_testing;