Added test for an expected warning.

[dbsrgits/SQL-Abstract.git] / t / 01generate.t

diff --git a/t/01generate.t b/t/01generate.t
index 5859c38..0e955aa 100644 (file)
--- a/t/01generate.t
+++ b/t/01generate.t
@@ -3,9 +3,9 @@
 use strict;
 use warnings;
 use Test::More;
+use Test::Warn;
 
 use SQL::Abstract::Test import => ['is_same_sql_bind'];
-plan tests => 64;
 
 use SQL::Abstract;
 
@@ -308,30 +308,112 @@ my @tests = (
               stmt   => q{SELECT * FROM test WHERE ( a = to_date(?, 'MM/DD/YY') )},
               stmt_q => q{SELECT * FROM `test` WHERE ( `a` = to_date(?, 'MM/DD/YY') )},
               bind   => ['02/02/02'],
-      }
+      },
+      #33
+      {
+              func   => 'insert',
+              new    => {array_datatypes => 1},
+              args   => ['test', {a => 1, b => [1, 1, 2, 3, 5, 8]}],
+              stmt   => 'INSERT INTO test (a, b) VALUES (?, ?)',
+              stmt_q => 'INSERT INTO `test` (`a`, `b`) VALUES (?, ?)',
+              bind   => [1, [1, 1, 2, 3, 5, 8]],
+      },
+      #34
+      {
+              func   => 'insert',
+              new    => {bindtype => 'columns', array_datatypes => 1},
+              args   => ['test', {a => 1, b => [1, 1, 2, 3, 5, 8]}],
+              stmt   => 'INSERT INTO test (a, b) VALUES (?, ?)',
+              stmt_q => 'INSERT INTO `test` (`a`, `b`) VALUES (?, ?)',
+              bind   => [[a => 1], [b => [1, 1, 2, 3, 5, 8]]],
+      },
+      #35
+      {
+              func   => 'update',
+              new    => {array_datatypes => 1},
+              args   => ['test', {a => 1, b => [1, 1, 2, 3, 5, 8]}],
+              stmt   => 'UPDATE test SET a = ?, b = ?',
+              stmt_q => 'UPDATE `test` SET `a` = ?, `b` = ?',
+              bind   => [1, [1, 1, 2, 3, 5, 8]],
+      },
+      #36
+      {
+              func   => 'update',
+              new    => {bindtype => 'columns', array_datatypes => 1},
+              args   => ['test', {a => 1, b => [1, 1, 2, 3, 5, 8]}],
+              stmt   => 'UPDATE test SET a = ?, b = ?',
+              stmt_q => 'UPDATE `test` SET `a` = ?, `b` = ?',
+              bind   => [[a => 1], [b => [1, 1, 2, 3, 5, 8]]],
+      },
+      #37
+      {
+              func   => 'select',
+              args   => ['test', '*', { a => {'>', \'1 + 1'}, b => 8 }],
+              stmt   => 'SELECT * FROM test WHERE ( a > 1 + 1 AND b = ? )',
+              stmt_q => 'SELECT * FROM `test` WHERE ( `a` > 1 + 1 AND `b` = ? )',
+              bind   => [8],
+      },             
+      #38
+      {
+              func   => 'select',
+              args   => ['test', '*', { a => {'<' => \["to_date(?, 'MM/DD/YY')", '02/02/02']}, b => 8 }],
+              stmt   => 'SELECT * FROM test WHERE ( a < to_date(?, \'MM/DD/YY\') AND b = ? )',
+              stmt_q => 'SELECT * FROM `test` WHERE ( `a` < to_date(?, \'MM/DD/YY\') AND `b` = ? )',
+              bind   => ['02/02/02', 8],
+      },             
+      #39            
+      { #TODO in SQLA >= 2.0 it will die instead (we kept this just because old SQLA passed it through)
+              func   => 'insert',
+              args   => ['test', {a => 1, b => 2, c => 3, d => 4, e => { answer => 42 }}],
+              stmt   => 'INSERT INTO test (a, b, c, d, e) VALUES (?, ?, ?, ?, ?)',
+              stmt_q => 'INSERT INTO `test` (`a`, `b`, `c`, `d`, `e`) VALUES (?, ?, ?, ?, ?)',
+              bind   => [qw/1 2 3 4/, { answer => 42}],
+              warning_like => qr/HASH ref as bind value in insert is not supported/i,
+      },             
 );
 
-use Data::Dumper;
+
+plan tests => scalar(grep { !$_->{warning_like} } @tests) * 2
+            + scalar(grep { $_->{warning_like} } @tests) * 4;
 
 for (@tests) {
   local $"=', ';
 
   my $new = $_->{new} || {};
   $new->{debug} = $ENV{DEBUG} || 0;
-  my $sql = SQL::Abstract->new(%$new);
 
-  #print "testing with args (@{$_->{args}}): ";
-  my $func = $_->{func};
-  my($stmt, @bind) = $sql->$func(@{$_->{args}});
-  is_same_sql_bind($stmt, \@bind, $_->{stmt}, $_->{bind});
+  # test without quoting labels
+  {
+    my $sql = SQL::Abstract->new(%$new);
+
+    my $func = $_->{func};
+    my($stmt, @bind);
+    my $test = sub {
+      ($stmt, @bind) = $sql->$func(@{$_->{args}})
+    };
+    if ($_->{warning_like}) {
+      warning_like { &$test } $_->{warning_like}, "throws the expected warning ($_->{warning_like})";
+    } else {
+      &$test;
+    }
+    is_same_sql_bind($stmt, \@bind, $_->{stmt}, $_->{bind});
+  }
 
   # test with quoted labels
-  my $sql_q = SQL::Abstract->new(%$new, quote_char => '`', name_sep => '.');
+  {
+    my $sql_q = SQL::Abstract->new(%$new, quote_char => '`', name_sep => '.');
 
-  my $func_q = $_->{func};
-  my($stmt_q, @bind_q) = $sql_q->$func_q(@{$_->{args}});
+    my $func_q = $_->{func};
+    my($stmt_q, @bind_q);
+    my $test = sub {
+      ($stmt_q, @bind_q) = $sql_q->$func_q(@{$_->{args}})
+    };
+    if ($_->{warning_like}) {
+      warning_like { &$test } $_->{warning_like}, "throws the expected warning ($_->{warning_like})";
+    } else {
+      &$test;
+    }
 
-  is_same_sql_bind($stmt_q, \@bind_q, $_->{stmt_q}, $_->{bind});
+    is_same_sql_bind($stmt_q, \@bind_q, $_->{stmt_q}, $_->{bind});
+  }
 }
-
-