anchor.diff:                      nil)))
   
       (htree:delete-owner history "parent-owner")
  -    (prove:is (htree:current-owner-id history)
  -              htree:+default-owner+)
       (prove:is (htree:owner history "parent-owner")
                 nil)
       (prove:is (hash-table-count (htree:entries history))
  
positive.code:                                             :title "Example page"))
          (web-page2 (make-instance 'web-page :url "http://example.org"
                                              :title "Same page, another title")))
      (let ((history (htree:make :key 'url)))
        (htree:add-child web-page1 history)
        (htree:add-child web-page2 history)
        (prove:is (hash-table-count (htree:entries history))
                  1)
        (prove:is (title (htree:data (htree::first-hash-table-key (htree:entries history))))
                  "Example page"))
      (let ((history (htree:make :key 'url)))
        (htree:add-child web-page1 history)
        (htree:add-owner history "b")
        (htree:set-current-owner history "b")
        (htree:add-child web-page2 history)
        (prove:is (hash-table-count (htree:entries history))
                  1)
        (prove:is (title (htree:data (htree::first-hash-table-key (htree:entries history))))
                  "Example page"))
      (let ((history (htree:make)))
        (htree:add-child web-page1 history)
        (htree:add-child web-page2 history)
        (prove:is (hash-table-count (htree:entries history))
                  2)
        (prove:is (sort (loop for key being the hash-keys in (htree:entries history)
  
negative.code:                     #'string<))))
  
  (prove:subtest "Last access test"
    (let ((history (make :owner "a"))
          (url1 "http://example.org"))
      (htree:add-child url1 history "a")
      (sleep 0.1)
      (htree:add-owner history "b")
      (htree::visit history "b" (first (htree:find-nodes history url1)))
  
      (let ((a-access (htree:last-access (htree:current-binding
                                          (htree:owner history "a"))))
            (b-access (htree:last-access (htree:current-binding
                                          (htree:owner history "b")))))
        (prove:ok (local-time:timestamp/= a-access b-access))
        (prove:ok (local-time:timestamp= b-access
                                         (htree:last-access (htree:owner-node history "b"))))
        (prove:ok (local-time:timestamp= b-access
                                         (htree:last-access (htree:owner-node history "a"))))
        (prove:ok (local-time:timestamp= b-access
                                         (htree:data-last-access history url1))))))
  
  (prove:subtest "Entry deletion"
    (let ((history (make :owner "a"))
          (url1 "http://example.org")
          (url2 "http://other.example.org"))
      (htree:add-child url1 history "a")
      (htree:add-owner history "b")
      (htree:add-child url2 history "b")
      (htree:delete-owner history "a")
      (prove:is (hash-table-count (htree:entries history))
                2)
  