fix tests

lisp-diary-tests.el

@@ -56,15 +56,16 @@
     (should (= 24 (length r))))
   )
 
-(ert-deftest test-topic-search ()
+(ert-deftest test-topic-search-helper ()
   (should
-   (eq 5
-       (with-temp-buffer
+   (< 0
+      (with-temp-buffer
          (mapc (lambda (n) (insert (format "[topic%sa topic%sb] abc %s %s\n"
                                            n (1+ n) n (1+ n))))
                (number-sequence 1 100))
-         (topic-search t "topic6b topic5a")
-         (line-number-at-pos)
+         (topic-search-helper 0 "topic6b topic5a")
+         (switch-to-buffer "*Occur*")
+         (search-forward "abc 5 6")
          ))))
 
 (provide 'lisp-diary-tests)

lisp-diary.el

@@ -122,12 +122,8 @@ If new file, add initial content."
                 len))
       res)))
 
-(defun topic-search (nlines keywords)
-  "Search forward for KEYWORDS in brackets.
-With numberic prefix NLINES, display surrounding lines.
-See `occur for a description of the values taken by NLINES."
-  (interactive "P\nsKeywords: ")
-  (todays-notes lisp-diary-path)
+(defun topic-search-helper (nlines keywords)
+  "See `topic-search for a description of NLINES and KEYWORDS params."
   (let* ((opening-bracket "\\[")
          (closing-bracket "\\]")
          (pipe "\\|")
@@ -142,6 +138,14 @@ See `occur for a description of the values taken by NLINES."
                 pipe)))
     (occur regex nlines)))
 
+(defun topic-search (nlines keywords)
+  "Search forward for KEYWORDS in brackets.
+With numberic prefix NLINES, display surrounding lines.
+See `occur for a description of the values taken by NLINES."
+  (interactive "P\nsKeywords: ")
+  (when lisp-diary-path (todays-notes lisp-diary-path))
+  (topic-search-helper nlines keywords))
+
 (provide 'lisp-diary)
 
 ;;; End: