[Catalyst-commits] r14497 - in CatalystX-CRUD/CatalystX-CRUD-ModelAdapter-DBIC/trunk: lib/CatalystX/CRUD/ModelAdapter t

karpet at dev.catalyst.perl.org karpet at dev.catalyst.perl.org
Fri Feb 28 15:05:29 GMT 2014


Author: karpet
Date: 2014-02-28 15:05:29 +0000 (Fri, 28 Feb 2014)
New Revision: 14497

Modified:
   CatalystX-CRUD/CatalystX-CRUD-ModelAdapter-DBIC/trunk/lib/CatalystX/CRUD/ModelAdapter/DBIC.pm
   CatalystX-CRUD/CatalystX-CRUD-ModelAdapter-DBIC/trunk/t/01-dbic.t
Log:
bump version, add test for S::QP::SQL 0.010

Modified: CatalystX-CRUD/CatalystX-CRUD-ModelAdapter-DBIC/trunk/lib/CatalystX/CRUD/ModelAdapter/DBIC.pm
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD-ModelAdapter-DBIC/trunk/lib/CatalystX/CRUD/ModelAdapter/DBIC.pm	2014-02-28 15:05:11 UTC (rev 14496)
+++ CatalystX-CRUD/CatalystX-CRUD-ModelAdapter-DBIC/trunk/lib/CatalystX/CRUD/ModelAdapter/DBIC.pm	2014-02-28 15:05:29 UTC (rev 14497)
@@ -14,7 +14,7 @@
 
 __PACKAGE__->mk_ro_accessors(qw( treat_like_int ));
 
-our $VERSION = '0.12';
+our $VERSION = '0.13';
 
 =head1 NAME
 

Modified: CatalystX-CRUD/CatalystX-CRUD-ModelAdapter-DBIC/trunk/t/01-dbic.t
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD-ModelAdapter-DBIC/trunk/t/01-dbic.t	2014-02-28 15:05:11 UTC (rev 14496)
+++ CatalystX-CRUD/CatalystX-CRUD-ModelAdapter-DBIC/trunk/t/01-dbic.t	2014-02-28 15:05:29 UTC (rev 14497)
@@ -1,5 +1,8 @@
-use Test::More tests => 21;
+#!/usr/bin/env perl
+use strict;
 
+use Test::More tests => 23;
+
 BEGIN {
     use lib qw( ../../CatalystX-CRUD/trunk/lib t );
     use lib qw( t/lib );
@@ -92,6 +95,27 @@
         'multi-column sort'
     );
 
+    # fuzzy search
+    ok( $res = request(
+            POST(
+                '/crud/search',
+                [   'me.title' => qq/"way i"/,
+                    'cxc-fuzzy2' => 1,
+                    'cxc-order' => 'me.trackid ASC me.title DESC',
+                ]   
+            )   
+        ),  
+        'fuzzy search'
+    );  
+
+    #warn $res->content;
+
+    is_deeply(
+        eval $res->content,
+        { title => "The Way I Am", trackid => 7 },
+        'fuzzy search'
+    );
+
     # test *_related features
 
     ok( $res = request(




More information about the Catalyst-commits mailing list