Commit ce96be5e authored by Taddeus Kroes's avatar Taddeus Kroes

funclang series2: Removed some useless newlines.

parent ec692865
......@@ -9,7 +9,6 @@ let test_isLeapYear y expect =
Printf.printf "%d -> %s, (should be %b, yields %b)\n"
y (if yields = expect then "success" else "failure") expect yields
;;
test_isLeapYear 1500 false;;
test_isLeapYear 1900 false;;
test_isLeapYear 1904 true;;
......@@ -39,7 +38,6 @@ let test_date2str d m y expect =
Printf.printf "%d %d %d -> %s, (should be %s, yields %s)\n"
d m y (if str = expect then "success" else "failure") expect str
;;
test_date2str 1 1 2010 "January 1st, 2010";;
test_date2str 9 2 2010 "February 9th, 2010";;
......@@ -66,7 +64,6 @@ let test_digitRoot n expect =
Printf.printf "%d -> %s, (should be %d, yields %d)\n"
n (if root = expect then "success" else "failure") expect root
;;
test_digitRoot 123 6;;
test_digitRoot 65536 7;;
......@@ -83,7 +80,6 @@ let test_isPalindrome str expect =
Printf.printf "%s -> %s, (should be %b, yields %b)\n"
str (if result = expect then "success" else "failure") expect result
;;
test_isPalindrome "foo" false;; (* non-palindrome of odd length *)
test_isPalindrome "foobar" false;; (* non-palindrome of even length *)
test_isPalindrome "lepel" true;; (* palindrome of odd length *)
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment