Sha256: 5753ce08a8161bd8958d9616bbcf999abe2720fafe9c249f9c32951ec63308d4
Contents?: true
Size: 873 Bytes
Versions: 54
Compression:
Stored size: 873 Bytes
Contents
open Core.Std
open OUnit2
open Difference_of_squares
let ae exp got _test_ctxt = assert_equal exp got
let (* SUITE square_the_sum_of_the_numbers_up_to_the_given_number *)square_of_sum_tests = [
(* TEST
"$description" >::
ae $expected (square_of_sum $number);
END TEST *)
]
(* END SUITE *)
let (* SUITE sum_the_squares_of_the_numbers_up_to_the_given_number *)sum_of_squares_tests = [
(* TEST
"$description" >::
ae $expected (sum_of_squares $number);
END TEST *)
]
(* END SUITE *)
let (* SUITE subtract_sum_of_squares_from_square_of_sums *)difference_of_squares_tests = [
(* TEST
"$description" >::
ae $expected (difference_of_squares $number);
END TEST *)
]
(* END SUITE *)
let () =
run_test_tt_main (
"difference of squares tests" >:::
List.concat [square_of_sum_tests; sum_of_squares_tests; difference_of_squares_tests]
)
Version data entries
54 entries across 54 versions & 1 rubygems