/elisp/omake/omake-error-test.el

https://bitbucket.org/yminsky/js-elisp · Emacs Lisp · 33 lines · 27 code · 3 blank · 3 comment · 0 complexity · bd017a3d65f68e875e6546546b50dcec MD5 · raw file 

    

  1. ;; -*- lexical-binding: nil -*-
    2. 

  2. 

  3. (require 'ert)
    4. 

  4. (require 'omake-error)
    5. 

    6. 

  6. (ert-deftest Omake.Error ()
    7. 

  7.   (let* (;; Need \\\ so string lengths are the same.
    8. 

  8.          (e1-text "File \\\"test.ml\\\", line 9, characters 6-7:\nWarning 27: \
    9. 

  9. unused variable z.")
    10. 

  10.          (e1 (Omake.Error.test-error e1-text))
    11. 

  11.          (table (make-hash-table :test 'Omake.Error.hash-test))
    12. 

  12.          (e1-val 1)
    13. 

  13.          (sbs (Omake.Error.to-status-buffer-string e1))
    14. 

  14.          (_ (puthash e1 e1-val table)))
    15. 

  15.     (should (Omake.Error.is e1))
    16. 

  16.     (should (Omake.Error.same-error e1 e1))
    17. 

  17.     (should (Omake.Error.hash e1))
    18. 

  18.     (should (equal (gethash e1 table) e1-val))
    19. 

  19.     (should (equal sbs e1-text))
    20. 

  20.     ;; mem
    21. 

  21.     (should (Omake.Error.mem e1 (list e1 e1 e1)))
    22. 

  22.     ;; toggle/contract/expand
    23. 

  23.     (should-not (Omake.Error.full-text-visible-p e1))
    24. 

  24.     (Omake.Error.toggle-full-text e1)
    25. 

  25.     (should (Omake.Error.full-text-visible-p e1))
    26. 

  26.     (Omake.Error.contract e1)
    27. 

  27.     (should-not (Omake.Error.full-text-visible-p e1))
    28. 

  28.     (Omake.Error.expand e1)
    29. 

  29.     (should (Omake.Error.full-text-visible-p e1))
    30. 

  30.     (should-not (Omake.Error.string e1))
    31. 

  31.     (should-not (Omake.Error.full-string e1))))
    32. 

  32. 

  33. (provide 'omake-error-test)
    34.