code.delx.au - gnu-emacs-elpa/blob - packages/realgud/test/test-utils.el

   1 (require 'test-simple)
   2 (load-file "../realgud/common/utils.el")
   3
   4 (declare-function realgud:flatten            'realgud-utils)
   5 (declare-function realgud:strip              'realgud-regexp)
   6 (declare-function __FILE__                   'load-relative)
   7
   8 (test-simple-start)
   9
  10 (eval-when-compile
  11   (defvar test-realgud:features)
  12 )
  13
  14 (note "realgud:strip")
  15 (assert-equal "abc" (realgud:strip "abc"))
  16 (assert-equal "def" (realgud:strip "\n  def\t  "))
  17
  18 (note "realgud:flatten")
  19 (assert-equal '(abc) (realgud:flatten '(abc)))
  20 (assert-equal '(abc def h i j) (realgud:flatten '(abc (def (h) i) j)))
  21
  22 (end-tests)