Merge pull request #52 from Overbryd/fix-zipper-up-modified

Mark parent info as modified when moving up in zipper

Author: elbrujohalcon

src/zipper.erl

@@ -90,7 +90,8 @@ up(#{spec := #{make_node := MakeNode},
        Zipper) ->
     Children = lists:reverse(Lefts) ++ [Node | Rights],
     NewParentNode = MakeNode(ParentNode, Children),
-    Zipper#{node => NewParentNode, info => ParentInfo};
+    NewParentInfo = maps:put(is_modified, true, ParentInfo),
+    Zipper#{node => NewParentNode, info => NewParentInfo};
 up(#{info := #{parent_node := Parent, parent_info := ParentInfo}} = Zipper) ->
     Zipper#{node => Parent, info => ParentInfo}.
 

test/zipper_SUITE.erl

@@ -4,7 +4,7 @@
 %% Info
 -export([zipper_node/1, zipper_children/1]).
 %% Traverse
--export([zipper_root/1, zipper_next/1, zipper_prev/1, zipper_up/1, zipper_down/1,
+-export([zipper_root/1, zipper_next/1, zipper_prev/1, zipper_up/1, zipper_up_modified/1, zipper_down/1,
          zipper_left/1, zipper_right/1, zipper_leftmost/1, zipper_rightmost/1]).
 %% Editing
 -export([zipper_insert_left/1, zipper_insert_right/1, zipper_replace/1, zipper_edit/1,
@@ -124,6 +124,21 @@ zipper_up(_Config) ->
     Earth = root(),
     {comment, ""}.
 
+-spec zipper_up_modified(config()) -> {comment, string()}.
+zipper_up_modified(_Config) ->
+  Zipper = zipper_default:map_tree(root(), children),
+  undefined = zipper:up(Zipper),
+  Zipper1 = zipper:traverse([next, next, next], Zipper),
+  Brasil = zipper:node(Zipper1),
+  Brasil2 = maps:put(attrs, #{name => "Peru"}, Brasil),
+  ModifiedZipper1 = zipper:replace(Brasil2, Zipper1),
+  Zipper2 = zipper:up(ModifiedZipper1),
+  Zipper3 = zipper:up(Zipper2),
+  Zipper4 = zipper:traverse([next, next, next], Zipper3),
+  Attrs = maps:get(attrs, zipper:node(Zipper4)),
+  #{name => "Peru"} = Attrs,
+  {comment, ""}.
+
 -spec zipper_right(config()) -> {comment, string()}.
 zipper_right(_Config) ->
     Zipper = zipper_default:map_tree(root(), children),