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

   1 (require 'test-simple)
   2
   3 (test-simple-start)
   4
   5 (assert-t (load-file "./gcd.el")
   6           "Can't load gcd.el - are you in the right directory?" )
   7
   8 (note "degenereate cases")
   9
  10 (assert-nil (gcd 5 -1) "using positive numbers")
  11 (assert-nil (gcd -4 1) "using positive numbers, switched order")
  12
  13 (note "GCD computations")
  14 (assert-equal 1 (gcd 3 5) "gcd(3,5)")
  15 (assert-equal 8 (gcd 8 32) "gcd(8,32)")
  16
  17 (assert-raises error (gcd "a" 32)
  18                "Passing a string value should raise an error")
  19
  20 (end-tests)