From: Mischa POSLAWSKY Date: Thu, 12 Jan 2012 14:19:00 +0000 (+0100) Subject: t: test partial match X-Git-Tag: v1.01~7 X-Git-Url: http://git.shiar.net/perl/file-rewrite.git/commitdiff_plain/53f4bb3127050fea3c0d9760211c03fbb4e11e8f t: test partial match --- diff --git a/t/10-fileset.t b/t/10-fileset.t index bf859de..654242a 100644 --- a/t/10-fileset.t +++ b/t/10-fileset.t @@ -47,7 +47,7 @@ sub testfileset { my $BASICBODY = "replace$/noremove$/remove$/.$/"; -testfileset('no match', $BASICBODY, ['nomatch' => undef], 0, $BASICBODY); +testfileset('no match', $BASICBODY, ['no' => undef], 0, $BASICBODY); testfileset('remove string', $BASICBODY, ['remove' => undef], 1, "replace$/noremove$/.$/"); testfileset('remove empty', "$/.$/ $/$/", ['' => undef], 2, ".$/ $/"); testfileset('remove regex', $BASICBODY, [qr/^re/ => undef], 2);