X-Git-Url: http://git.shiar.net/perl/file-rewrite.git/blobdiff_plain/6d348a616fe89141e6ea66155bc0a1cb94003b40..dde1da40ee010b77f9fad43bb9a1cf23c6325f0d:/t/10-fileset.t diff --git a/t/10-fileset.t b/t/10-fileset.t index ff43498..9e78b11 100644 --- a/t/10-fileset.t +++ b/t/10-fileset.t @@ -57,7 +57,7 @@ testfileset('add unconditionally', "$/0$/", [undef() => '0'], 1, "$/0$/0$/"); testfileset('add string', "foo$/", ['bar'], 1, "foo$/bar$/"); testfileset('keep string', "foo$/bar$/", ['foo'], 0, "foo$/bar$/"); testfileset('keep first', "foo$/FOO$/foo$/", ['foo'], 1, "foo$/FOO$/"); -testfileset('replace string', "$/0$/1$/2$/", [0 => 3], 2, "$/1$/2$/3$/"); +testfileset('replace string', "$/0$/1$/2$/", ['0' => 3], 2, "$/1$/2$/3$/"); testfileset('keep regex', "foo$/hi$/$/", [qr/./ => 'hi'], 1, "hi$/$/"); testfileset('add new array', ".$/", ['' => ['foo','.']], 2, ".$/foo$/.$/");