Test "like" in search_where()

diff --git a/t/cdbi-abstract/search_where.t b/t/cdbi-abstract/search_where.t
index 3161299..3a89e3c 100644 (file)
--- a/t/cdbi-abstract/search_where.t
+++ b/t/cdbi-abstract/search_where.t
@@ -12,7 +12,7 @@ BEGIN {
     next;
   }
   eval "use DBD::SQLite";
-  plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 9);
+  plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 10);
 }
 
 INIT {
@@ -28,6 +28,13 @@ my $superman = Film->search_where( Title => "Superman" );
 is $superman->next->Title, "Superman", "search_where() as iterator";
 is $superman->next, undef;
 
+{
+    my @supers = Film->search_where({ title => { 'like' => 'Super%' } });
+    is_deeply [sort map $_->Title, @supers],
+              [sort ("Super Fuzz", "Superman")], 'like';
+}
+    
+
 my @all = Film->search_where({}, { order_by => "Title ASC" });
 is_deeply ["Batman", "Super Fuzz", "Superman"],
           [map $_->Title, @all],