anchor.diff:                ""
                 "value has no title"))
           (nyxt::history-add (quri:uri "http://example.org") :title "foo")
  -        (is (htree:size (nyxt:get-data path))
  +        (is (length (htree:all-data (nyxt:get-data path)))
               1
               "history has still 1 entry after adding same URI")
           (let ((entry (first (htree:all-data (nyxt:get-data path)))))
  
positive.code:               "foo"
                "value now has title"))
          (nyxt::history-add (quri:uri "http://example.org/sub"))
          (is (htree:size (nyxt:get-data path))
              2
              "history now has 2 entries")
          (uiop:delete-file-if-exists (expand-path (history-path buffer)))))))
  
negative.code:                                        :basename "history"
                                         :dirname "/tmp/nyxt-history-test"))))
          (nyxt::history-add (quri:uri "http://example.org"))
          (is (length (htree:all-data (nyxt:get-data path)))
              1
              "history has 1 entry")
          (let ((entry (first (htree:all-data (nyxt:get-data path)))))
  