fileset: replace concatenated regex by smart match

[perl/file-rewrite.git] / t / 10-fileset.t

diff --git a/t/10-fileset.t b/t/10-fileset.t
index ff43498731a4f4868cdf640fdab8b7d7832b7c7f..9e78b11ab620642af1f78c4cf4ee287cb077f75f 100644 (file)
--- 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$/.$/");