Changeset 9545 for lang/perl/Filter-SQL/trunk/t

Timestamp:

04/16/08 08:56:33 (5 years ago)

Author:

kazuho

Message:

rewrite var holder parser

Files:

• lang/perl/Filter-SQL/trunk/t/01-simple.t (modified) (3 diffs)

lang/perl/Filter-SQL/trunk/t/01-simple.t

@@ -11 +11 @@
         plan skip_all => 'Set FILTER_SQL_DBI to run these tests';
     } else {
-        plan tests => 18;
+        plan tests => 24;
     }
 };
@@ -30 +30 @@
 $a = "foo'a";
 is(SELECT ROW $a;, $a);
+is(SELECT ROW ${a};, $a);
 is(SELECT ROW "hoge$a";, "hoge$a");
 is(SELECT ROW 'hoge$a';, 'hoge$a');
+$a = [ 5 ];
+is(SELECT ROW $a->[0+0]+1;, 6);
+$a = { foo => 3 };
+is(SELECT ROW $a->{foo}-1;, 2);
+
+is(SELECT ROW {1 + 2};, 3);
 
 ok(SQL DROP TABLE IF EXISTS filter_sql_t;);
@@ -40 +47 @@
 }
 
+my $sth = EXEC SELECT v FROM filter_sql_t;;
+ok($sth);
+is_deeply(
+    $sth->fetchall_arrayref,
+    [ [ 0 ], [ 1 ], [ 2 ], ],
+);
+
 is_deeply(
     [ SELECT * FROM filter_sql_t; ],