fix test for MariaDB

sixapart · Oct 22, 2024 · 5bec099 · 5bec099
1 parent b389411
commit 5bec099
Showing 1 changed file with 15 additions and 3 deletions.
diff --git a/t/61-escape.t b/t/61-escape.t
@@ -16,7 +16,7 @@ BEGIN {
     }
 }
 
-plan tests => 5;
+plan tests => 6;
 
 use Foo;
 
@@ -32,6 +32,11 @@ $foo2->name('bar');
 $foo2->text('100_');
 $foo2->save;
 
+my $foo3 = Foo->new;
+$foo3->name('bar');
+$foo3->text('100!');
+$foo3->save;
+
 subtest 'escape_char 1' => sub {
     my @got = Foo->search({ text => { op => 'LIKE', value => '100!%', escape => '!' } });
     is scalar(@got),  1,     'right number';
@@ -45,19 +50,26 @@ subtest 'escape_char 2' => sub {
 };
 
 subtest 'self escape' => sub {
-    my @got = Foo->search({ text => { op => 'LIKE', value => '100__', escape => '_' } });
+    my @got = Foo->search({ text => { op => 'LIKE', value => '100!!', escape => '!' } });
     is scalar(@got),  1,     'right number';
     is $got[0]->name, 'bar', 'right name';
 };
 
+subtest 'use wildcard charactor as escapr_char' => sub {
+    plan skip_all => 'MariaDB does not support it' if Foo->driver->dbh->{Driver}->{Name} eq 'MariaDB';
+    my @got = Foo->search({ text => { op => 'LIKE', value => '100_%', escape => '_' } });
+    is scalar(@got),  1,     'right number';
+    is $got[0]->name, 'foo', 'right name';
+};
+
 subtest 'use of special characters' => sub {
     subtest 'escape_char single quote' => sub {
         my @got = Foo->search({ text => { op => 'LIKE', value => "100'_", escape => "''" } });
         is scalar(@got),  1,     'right number';
         is $got[0]->name, 'bar', 'right name';
     };
 
-    if (Foo->driver->dbh->{Driver}->{Name} eq 'mysql') {
+    if (Foo->driver->dbh->{Driver}->{Name} =~ /mysql|mariadb/i) {
         subtest 'escape_char single quote' => sub {
             my @got = Foo->search({ text => { op => 'LIKE', value => "100'_", escape => "\\'" } });
             is scalar(@got),  1,     'right number';