Show
Ignore:
Timestamp:
04/16/08 07:12:55 (6 years ago)
Author:
kazuho
Message:

add quote test

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/Filter-SQL/trunk/t/01-simple.t

    r9542 r9544  
    1111        plan skip_all => 'Set FILTER_SQL_DBI to run these tests'; 
    1212    } else { 
    13         plan tests => 16; 
     13        plan tests => 18; 
    1414    } 
    1515}; 
     
    3030$a = "foo'a"; 
    3131is(SELECT ROW $a;, $a); 
     32is(SELECT ROW "hoge$a";, "hoge$a"); 
     33is(SELECT ROW 'hoge$a';, 'hoge$a'); 
    3234 
    3335ok(SQL DROP TABLE IF EXISTS filter_sql_t;);