c:\@Work\Perl\monks\thechartist>perl TrigCalc.t
ok 1 - use TrigCalc;
# testing under perl version 5.008009
ok 2 - REALLY empty argument list
# --- degenerate cases ---
ok 3 - () -> (0, 0, 0): empty argument list
ok 4 - undef -> (0, 0, 0): undefined argument(s)
ok 5 - (undef, undef) -> (0, 0, 0): undefined argument(s)
ok 6 - (undef, undef, undef) -> (0, 0, 0): undefined argument(s)
# --- irreducible cases ---
ok 7 - (123, 180, 59, 59) -> (180, 59, 59): left ignored
ok 8 - (180, 59, 59) -> (180, 59, 59)
ok 9 - (180, 59, 58) -> (180, 59, 58)
ok 10 - (1, 1, 1) -> (1, 1, 1)
ok 11 - (0, 0, 0) -> (0, 0, 0)
ok 12 - (-1, -1, -1) -> (-1, -1, -1)
ok 13 - (-180, -59, -58) -> (-180, -59, -58)
ok 14 - (-123, -180, -59, -59) -> (-180, -59, -59): left ignored
# --- reducible cases ---
ok 15 - (179, 0, 60) -> (179, 1, 0)
ok 16 - (179, 61, 61) -> (180, 2, 1)
ok 17 - (179, 59, 60) -> (180, 0, 0)
ok 18 - (-179, 60, 0) -> (-178, 0, 0): reduction of negatives
ok 19 - (0, 0, -60) -> (0, -1, 0): negative borrow
ok 20 - (90, 360, 360) -> (96, 6, 0): multiple reduction
ok 21 - (90, -360, -360) -> (83, 54, 0): multiple reduction
# --- only rightmost arguments are reduced, others ignored ---
ok 22 - (200, 179, 0, 60) -> (179, 1, 0)
ok 23 - (200, 200, 179, 0, 60) -> (179, 1, 0)
ok 24 - (200, 200, 200, 179, 0, 60) -> (179, 1, 0)
ok 25 - (200, 90, -360, -360) -> (83, 54, 0)
ok 26 - (200, 200, 90, -360, -360) -> (83, 54, 0)
ok 27 - (200, 200, 200, 90, -360, -360) -> (83, 54, 0)
#
# === testing TrigCalc::dms_2_secs() ===
#
ok 28 - () == 0 seconds
ok 29 - (1) == 1 seconds
ok 30 - (2 1) == 62 seconds
ok 31 - (3 2 1) == 3723 seconds
ok 32 - (4 3 2 4) == 7384 seconds
ok 33 - (5 4 3 5 6) == 11045 seconds
ok 34 - (6 5 4 7 8 9) == 14706 seconds
1..34
ok 35 - no warnings
1..35