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 = ...@@ -9,7 +9,6 @@ let test_isLeapYear y expect =
Printf.printf "%d -> %s, (should be %b, yields %b)\n" Printf.printf "%d -> %s, (should be %b, yields %b)\n"
y (if yields = expect then "success" else "failure") expect yields y (if yields = expect then "success" else "failure") expect yields
;; ;;
test_isLeapYear 1500 false;; test_isLeapYear 1500 false;;
test_isLeapYear 1900 false;; test_isLeapYear 1900 false;;
test_isLeapYear 1904 true;; test_isLeapYear 1904 true;;
...@@ -39,7 +38,6 @@ let test_date2str d m y expect = ...@@ -39,7 +38,6 @@ let test_date2str d m y expect =
Printf.printf "%d %d %d -> %s, (should be %s, yields %s)\n" Printf.printf "%d %d %d -> %s, (should be %s, yields %s)\n"
d m y (if str = expect then "success" else "failure") expect str d m y (if str = expect then "success" else "failure") expect str
;; ;;
test_date2str 1 1 2010 "January 1st, 2010";; test_date2str 1 1 2010 "January 1st, 2010";;
test_date2str 9 2 2010 "February 9th, 2010";; test_date2str 9 2 2010 "February 9th, 2010";;
...@@ -66,7 +64,6 @@ let test_digitRoot n expect = ...@@ -66,7 +64,6 @@ let test_digitRoot n expect =
Printf.printf "%d -> %s, (should be %d, yields %d)\n" Printf.printf "%d -> %s, (should be %d, yields %d)\n"
n (if root = expect then "success" else "failure") expect root n (if root = expect then "success" else "failure") expect root
;; ;;
test_digitRoot 123 6;; test_digitRoot 123 6;;
test_digitRoot 65536 7;; test_digitRoot 65536 7;;
...@@ -83,7 +80,6 @@ let test_isPalindrome str expect = ...@@ -83,7 +80,6 @@ let test_isPalindrome str expect =
Printf.printf "%s -> %s, (should be %b, yields %b)\n" Printf.printf "%s -> %s, (should be %b, yields %b)\n"
str (if result = expect then "success" else "failure") expect result str (if result = expect then "success" else "failure") expect result
;; ;;
test_isPalindrome "foo" false;; (* non-palindrome of odd length *) test_isPalindrome "foo" false;; (* non-palindrome of odd length *)
test_isPalindrome "foobar" false;; (* non-palindrome of even length *) test_isPalindrome "foobar" false;; (* non-palindrome of even length *)
test_isPalindrome "lepel" true;; (* palindrome of odd 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