### file: t/trig_calc.t #!perl use strict; use warnings; use TrigCalc; is_deeply(TrigCalc::trig_calc(90, 35, 29, '+', 90, 24, 29), [180, 59, 58]); is_deeply(TrigCalc::trig_calc(90, 35, 29, '+', 90, 24, 31), [181, 0, 0]); done_testing();