diff --git a/local/lib/dag/test/dag-test.el b/local/lib/dag/test/dag-test.el
index 33434b6..816e392 100644
--- a/local/lib/dag/test/dag-test.el
+++ b/local/lib/dag/test/dag-test.el
@@ -256,7 +256,7 @@
      (e :children nil :parents (b c)))
     nil
     nil
-    (a c b e d)))
+    (a c b d e)))
 
 (ert-deftest dag-test-insert-overwrite ()
   (dag-test-alist-insert-is-valid-p ((a)
@@ -358,7 +358,7 @@
      (e :children nil :parents (b c)))
     nil
     nil
-    (a c b e d)))
+    (a c b d e)))
 
 (ert-deftest dag-test-edit-null ()
   (dag-test-alist-edit-is-valid-p ((a)
@@ -377,6 +377,24 @@
     nil
     (a c b e d)))
 
+(ert-deftest dag-test-edit-cancel ()
+  (dag-test-alist-edit-is-valid-p ((a)
+                                   (b a)
+                                   (c a)
+                                   (d b c)
+                                   (e b c))
+      (b d)
+      ((b a)
+       (d b c))
+    ((a :children (b c) :parents nil)
+     (b :children (e d) :parents (a))
+     (c :children (e d) :parents (a))
+     (d :children nil :parents (b c))
+     (e :children nil :parents (b c)))
+    nil
+    nil
+    (a b c d e)))
+
 ;; TODO add test for transitive reduction
 
 (provide 'dag-test)