Add 'packages/loc-changes/' from commit '8447baff7cb4839ef8d1d747a14e5da85d0cee5b'

[gnu-emacs-elpa] / packages / loc-changes / test / test-basic.el

diff --git a/packages/loc-changes/test/test-basic.el b/packages/loc-changes/test/test-basic.el
new file mode 100644 (file)
index 0000000..0169b70
--- /dev/null
+++ b/packages/loc-changes/test/test-basic.el
@@ -0,0 +1,90 @@
+(require 'cl)
+(require 'test-simple)
+(load-file "../loc-changes.el")
+
+(test-simple-start)
+
+(setq sample-buffer (find-file-noselect "./sample.txt"))
+
+(note "loc-changes-goto-line error conditions")
+(assert-raises error (loc-changes-goto-line "foo"))
+(message "buffer %s" (current-buffer))
+(assert-raises error (loc-changes-goto-line "0"))
+(assert-raises error (loc-changes-goto-line 0))
+(assert-raises error (loc-changes-goto-line 10000))
+
+(note "loc-changes-goto-line")
+(save-excursion
+  (set-buffer sample-buffer)
+  (loc-changes-goto-line 5)
+  (assert-equal 5 (line-number-at-pos (point))))
+
+(note "loc-changes-goto-line-with-column")
+(with-current-buffer sample-buffer
+  (set-buffer sample-buffer)
+  (loc-changes-goto-line 1 3)
+  (assert-equal 1 (line-number-at-pos (point)))
+  ;; FIXME:
+  ;; (assert-equal 2 (current-column))
+  )
+
+(note "loc-changes-goto-line-invalid-column")
+(save-excursion
+  (set-buffer sample-buffer)
+  (loc-changes-goto-line 1 300)
+  (assert-equal 1 (line-number-at-pos (point)))
+  ;; FIXME
+  ;; (assert-equal 0 (current-column))
+  (assert-t (or
+            (not (current-message))
+            (string-match "^Column ignored." (current-message))))
+  ;; FIXME:
+  ;; (loc-changes-goto-line 2 -5)
+  ;; (assert-equal 2 (line-number-at-pos (point)))
+  ;; (assert-equal 0 (current-column))
+  ;; (assert-t (or
+  ;;        (not (current-message))
+  ;;        (string-match "^Column ignored." (current-message))))
+  )
+
+(note "loc-changes-clear-buffer null")
+(loc-changes-clear-buffer)
+(assert-equal '() loc-changes-alist)
+
+(note "loc-changes-add-and-goto - update")
+(save-excursion
+  (set-buffer sample-buffer)
+  (loc-changes-add-and-goto 10)
+  (assert-equal 10 (line-number-at-pos)
+               "point should be at line 10")
+  ;; FIXME:
+  ;; (assert-t (assq 10 loc-changes-alist)
+  ;;       "Should find 10 in loc-changes-alist")
+  ;; (assert-t (markerp (cdr (assq 10 loc-changes-alist)))
+  ;;       "10 in loc-changes-alist should be a marker")
+  )
+
+(note "loc-changes-goto - update")
+(save-excursion
+  (set-buffer sample-buffer)
+  (loc-changes-goto 11)
+  (assert-equal 11 (line-number-at-pos)
+               "point should be at line 11")
+  ;; FIXME:
+  ;; (assert-t (assq 11 loc-changes-alist)
+  ;;       "Should find 11 in loc-changes-alist")
+  ;; (assert-t (markerp (cdr (assq 11 loc-changes-alist)))
+  ;;       "11 in loc-changes-alist should be a marker")
+  )
+
+(note "loc-changes-goto - no update")
+(save-excursion
+  (set-buffer sample-buffer)
+  (loc-changes-goto 12 nil 't)
+  (assert-equal 12 (line-number-at-pos)
+               "point should be at line 12")
+  (assert-nil (assq 12 loc-changes-alist)
+             "Should not find 12 in loc-changes-alist")
+  )
+
+(end-tests)