X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FRegexp-Wildcards.git;a=blobdiff_plain;f=t%2F12-brackets.t;h=a5e023f32ca8d7cf6fe5b712c9a9cb409ccbaeb4;hp=ff8cf934480967dffda3195b84eef934965ed4b2;hb=3426f55fba3da9c8801930f82107eeac9f1f8339;hpb=03007c83b1d852b1f2120c7aa500c36607d30e72

diff --git a/t/12-brackets.t b/t/12-brackets.t
index ff8cf93..a5e023f 100644
--- a/t/12-brackets.t
+++ b/t/12-brackets.t
@@ -1,11 +1,13 @@
 #!perl -T
 
-use Test::More tests => 26;
+use Test::More tests => 27;
 
-use Regexp::Wildcards qw/wc2re_jokers wc2re_unix wc2re_win32/;
+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');