PageRenderTime 50ms CodeModel.GetById 26ms RepoModel.GetById 0ms app.codeStats 0ms

/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
Possible License(s): GPL-2.0, LGPL-2.1, AGPL-3.0, Apache-2.0, GPL-3.0, LGPL-2.0 
    

  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. 

    35.