Commit e37f59f9 authored by Taddeüs Kroes's avatar Taddeüs Kroes

funclang series2: Added some more test for date2str.

parent b47a5c84
......@@ -40,6 +40,8 @@ let test_date2str d m y expect =
;;
test_date2str 1 1 2010 "January 1st, 2010";;
test_date2str 9 2 2010 "February 9th, 2010";;
test_date2str 3 3 2011 "March 3rd, 2011";;
test_date2str 22 12 2012 "December 22nd, 2012";;
(* Sum all digits of a natural number *)
let rec sum_digits n =
......
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