Add 'packages/test-simple/' from commit '75eea25bae04d8e5e3e835a2770f02f0ff4602c4'

[gnu-emacs-elpa] / packages / test-simple / example / test-gcd.el

diff --git a/packages/test-simple/example/test-gcd.el b/packages/test-simple/example/test-gcd.el
new file mode 100644 (file)
index 0000000..ce4ccae
--- /dev/null
+++ b/packages/test-simple/example/test-gcd.el
@@ -0,0 +1,20 @@
+(require 'test-simple)
+
+(test-simple-start)
+
+(assert-t (load-file "./gcd.el") 
+         "Can't load gcd.el - are you in the right directory?" )
+
+(note "degenereate cases")
+
+(assert-nil (gcd 5 -1) "using positive numbers")
+(assert-nil (gcd -4 1) "using positive numbers, switched order")
+
+(note "GCD computations")
+(assert-equal 1 (gcd 3 5) "gcd(3,5)")
+(assert-equal 8 (gcd 8 32) "gcd(8,32)")
+
+(assert-raises error (gcd "a" 32) 
+              "Passing a string value should raise an error")
+
+(end-tests)