code.delx.au - gnu-emacs-elpa/blob - packages/test-simple/test/test-basic.el

   1 (require 'cl)
   2 (load-file "../test-simple.el")
   3 (test-simple-start "test-simple.el")
   4
   5 (note "basic-tests")
   6 (assert-t (memq 'test-simple features) "'test-simple provided")
   7
   8 (assert-nil nil "assert-nil failure test")
   9 (assert-nil nil "Knights if ni")
  10 (assert-equal 5 (+ 1 4) "assert-equal")
  11 (assert-raises error (error "you should not see this") "assert-raises")
  12
  13 (end-tests)