Changeset 9544 for lang/perl/Filter-SQL/trunk/t/01-simple.t

Timestamp:

04/16/08 07:12:55 (5 years ago)

Author:

kazuho

Message:

add quote test

Files:

• lang/perl/Filter-SQL/trunk/t/01-simple.t (modified) (2 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 => 16;
+        plan tests => 18;
     }
 };
@@ -30 +30 @@
 $a = "foo'a";
 is(SELECT ROW $a;, $a);
+is(SELECT ROW "hoge$a";, "hoge$a");
+is(SELECT ROW 'hoge$a';, 'hoge$a');
 
 ok(SQL DROP TABLE IF EXISTS filter_sql_t;);