(**************************************************************************
 * You can add new test cases by adding new elements to the following lists
 * Format is:
 * TEST<X>ARG(<weight>, <function_name>, <arg1>, <arg2>, ..., <argX>)
 *
 * <X> is the number of argument that the function being tested takes.
 **************************************************************************)

(* This list is for regular problems *)
let rubric =
[
     TEST0ARG(1, greetings) ;
     TEST0ARG(1, pi) ;
     TEST1ARG(1, square, 7) ;
     TEST1ARG(1, square, ~-1) ;
     TEST1ARG(1, plus_pi_times_3, 23.17) ; 
     TEST1ARG(1, plus_pi_times_3, ~-.1.0);
     TEST1ARG(1, salute, "Malisa") ;
     TEST1ARG(1, salute, "Elsa") ;
     TEST1ARG(1, salute, "") ;
	 TEST2ARG(1, has_smallest_square, 4, 6) ;
	 TEST2ARG(1, has_smallest_square, ~-1, 1) ;
	 TEST2ARG(1, has_smallest_square, 1, ~-1) ;
	 TEST2ARG(1, has_smallest_square, ~-1, ~-2) ;
     TEST1ARG(1, pivot, (3, "hi")) ;
     TEST1ARG(1, pivot, ('a', ~-1)) ;	 
     TEST1ARG(1, pivot, ((1,2), 22)) ;	 
     TEST2ARG(1, app_pair, (7,9), Solution.square);
     TEST2ARG(1, app_pair, (0,~-2), (fun x -> x + 1));
     TEST2ARG(1, app_pair, (100,2), float_of_int);
     TEST2ARG(1, app_pair, ("a","b"), (fun x -> x ^ "z"));
     TEST2ARG(1, app_pair, ((1,2),(3,4)), (fun (a,b) -> a + 2))
]
(* Note: the last entry should not be followed by a semicolon. *)

let extra_rubric = [ ]