From 6d348a616fe89141e6ea66155bc0a1cb94003b40 Mon Sep 17 00:00:00 2001 From: Mischa POSLAWSKY Date: Sat, 21 Apr 2012 04:35:15 +0200 Subject: [PATCH] t: test result of "remove regex" --- t/10-fileset.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/t/10-fileset.t b/t/10-fileset.t index 654242a..ff43498 100644 --- a/t/10-fileset.t +++ b/t/10-fileset.t @@ -50,7 +50,7 @@ my $BASICBODY = "replace$/noremove$/remove$/.$/"; 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); +testfileset('remove regex', $BASICBODY, [qr/^re/ => undef], 2, "noremove$/.$/"); testfileset('remove all', $BASICBODY, [qr/./ => undef], 4, ''); testfileset('add unconditionally', "$/0$/", [undef() => '0'], 1, "$/0$/0$/"); @@ -65,7 +65,7 @@ testfileset('replace by array', "$/foo$/.$/", ['' => ['foo','']], 3, "foo$/.$/fo testfileset('partial add', "foo$/$/", ['foo' => ['foo','.']], 1, "foo$/$/.$/"); my $SAMPLE2 = "$/foo$/and$/bar$/.$/"; -testfileset('keep pair', $SAMPLE2, [['foo','bar']], 0, "$/foo$/and$/bar$/.$/"); +testfileset('keep pair', $SAMPLE2, [['foo','bar']], 0, $SAMPLE2); testfileset('keep order', $SAMPLE2, [['bar','foo']], 2, "$/and$/bar$/.$/foo$/"); testfileset('replace pair', $SAMPLE2, [['bar','foo'] => ['fooo','barr']], 4, "$/and$/.$/fooo$/barr$/"); testfileset('mixed arrays', $SAMPLE2, [['ignore',qr/a/] => ['bar','foo','.']], 3, "$/foo$/bar$/.$/foo$/.$/"); -- 2.30.0