anchor.diff:  
   (prove:subtest "Visit all nodes until distant node"
     (let* ((history (make-history1))
  -         (creator (htree:current-owner-id history))
  +         (creator *owner*)
            (distant-node-value "http://example.root/A1")
            (distant-node (first (htree:find-nodes history distant-node-value))))
       (htree:add-owner history "b" :creator-id creator)
  -    (htree:set-current-owner history "b")
  -    (htree:add-child "b-data" history)
  -
  -    (htree:visit-all history distant-node)
  -
  -    (prove:is (htree:data (htree:current-owner-node history))
  +    (htree:add-child "b-data" history "b")
  +
  +    (htree:visit-all history "b" distant-node)
  +
  +    (prove:is (htree:data (htree:owner-node history "b"))
                 distant-node-value)
       (prove:is (sort (mapcar #'htree:data (htree:nodes (htree:owner history "b")))
                       #'string<)
  
positive.code: 
  (prove:subtest "Visiting other branches should not reorder the nodes."
    (prove:is (htree::map-data (htree:all-contiguous-owned-nodes
                                (htree:go-to-child
                                 "http://example.root/A2"
                                 (htree:go-to-child
                                  "http://example.root/A"
                                  (htree:backward (make-history1) 2)))))
              '("http://example.root"
                "http://example.root/B"
                "http://example.root/B2" "http://example.root/B1"
  
negative.code:               1)))
  
  (prove:subtest "Reset owner"
    (let ((history (make :owner "a"))
          (url1 "http://example.org")
          (url2 "http://other.example.org")
          (url3 "http://alt.example.org")
          (url4 "http://more.example.org")
          (url5 "http://final.example.org"))
      (htree:add-child url1 history "a")
      (htree:add-child url2 history "a")
      (htree:reset-owner history "a")
      (prove:is (mapcar #'htree:data (htree:all-contiguous-owned-nodes history "a"))
                (list url2))
      (prove:is (htree:parent (htree:owner-node history "a"))
                nil)
  
      (htree:add-owner history "b")
      (htree:add-child url3 history "b")
      (htree:add-child url4 history "b")
      (htree:add-child url5 history "b")
      (htree:backward history "b")
      (htree:reset-owner history "b")
  
      (prove:is (mapcar #'htree:data (htree:all-contiguous-owned-nodes history "b"))
                (list url4))
      (prove:is (htree:parent (htree:owner-node history "b"))
                nil)))
  
  (prove:finalize)
  