X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F12-brackets.t;h=264ff40ea43acee73d693278c4f5761a8a9b2d0a;hb=5468cc9fedae639e785117ab38807d857c84bdec;hp=ff8cf934480967dffda3195b84eef934965ed4b2;hpb=46111541589202352d6a6a665eb03fe24e3861a6;p=perl%2Fmodules%2FRegexp-Wildcards.git

diff --git a/t/12-brackets.t b/t/12-brackets.t
index ff8cf93..264ff40 100644
--- a/t/12-brackets.t
+++ b/t/12-brackets.t
@@ -1,11 +1,16 @@
 #!perl -T
 
-use Test::More tests => 26;
+use strict;
+use warnings;
 
-use Regexp::Wildcards qw/wc2re_jokers wc2re_unix wc2re_win32/;
+use Test::More tests => 27;
+
+use Regexp::Wildcards qw/wc2re_jokers wc2re_sql wc2re_unix wc2re_win32/;
 
 ok(wc2re_jokers('a{b\\\\,c\\\\}d') eq 'a\\{b\\\\\\,c\\\\\\}d', 'wc2re_jokers');
 
+ok(wc2re_sql('a{b\\\\,c\\\\}d') eq 'a\\{b\\\\\\,c\\\\\\}d', 'wc2re_sql');
+
 ok(wc2re_win32('a{b\\\\,c\\\\}d') eq '(?:a\\{b\\\\|c\\\\\\}d)', 'wc2re_win32');
 
 ok(wc2re_unix('{}') eq '(?:)', 'empty brackets');