copy_field/move_field/add_field testing (metafacture/metafacture-fix#116

)
hbz · Feb 3, 2022 · 4d2f0e3 · 4d2f0e3
1 parent bcd9bc1
commit 4d2f0e3
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 0 deletions.
diff --git a/t/Catmandu-Fix-add_field.t b/t/Catmandu-Fix-add_field.t
@@ -15,6 +15,9 @@ BEGIN {
 is_deeply $pkg->new('job', 'fixer')->fix({}), {job => "fixer"},
     "add field at root";
 
+is_deeply $pkg->new('job', 'fixer')->fix({job => 42}), {job => "fixer"},
+    "add field to existing";
+
 is_deeply $pkg->new('deeply.nested.$append.job', 'fixer')->fix({}),
     {deeply => {nested => [{job => "fixer"}]}},
     "add field creates intermediate path";

diff --git a/t/Catmandu-Fix-copy_field.t b/t/Catmandu-Fix-copy_field.t
@@ -15,6 +15,9 @@ BEGIN {
 is_deeply $pkg->new('old', 'new')->fix({old => 'old'}),
     {old => 'old', new => 'old'}, "copy field at root";
 
+is_deeply $pkg->new('old', 'new')->fix({old => 'old', new => 42}),
+    {old => 'old', new => 'old'}, "copy field to existing";
+
 is_deeply $pkg->new('old', 'deeply.nested.$append.new')->fix({old => 'old'}),
     {old => 'old', deeply => {nested => [{new => 'old'}]}},
     "copy field creates intermediate path";

diff --git a/t/Catmandu-Fix-move_field.t b/t/Catmandu-Fix-move_field.t
@@ -15,6 +15,9 @@ BEGIN {
 is_deeply $pkg->new('old', 'new')->fix({old => 'old'}), {new => 'old'},
     "move field at root";
 
+is_deeply $pkg->new('old', 'new')->fix({old => 'old', new => 42}), {new => 'old'},
+    "move field to existing";
+
 is_deeply $pkg->new('old', 'deeply.nested.$append.new')->fix({old => 'old'}),
     {deeply => {nested => [{new => 'old'}]}},
     "move field creates intermediate path";