ossp-pkg/string-divert/test.pl 1.2 -> 1.3
--- test.pl 2003/05/23 11:09:57 1.2
+++ test.pl 2003/09/22 12:58:25 1.3
@@ -23,7 +23,7 @@
##
use 5.006;
-use Test::More tests => 36;
+use Test::More tests => 37;
# test: module loading
BEGIN { use_ok('String::Divert') };
@@ -132,3 +132,8 @@
$x << 0;
ok("$x" eq "foobarbazquux", "diversion");
+# configuring folder patters
+$x->assign("x");
+$x->folder('{#%s#}', '\{#([a-zA-Z_][a-zA-Z0-9_.-]*)#\}');
+ok("$x" eq "x", "folder pattern 1");
+
|
|
