#!/usr/bin/env/perl use strict; use warnings; use Test::More 'no_plan'; my $test_path = "C:/Users/Greyhat/PDL_Old/trig/src"; require "$test_path/trig_calc.pl"; # Degree Addition Tests ok( main() eq 'Operation is undef.', '2. Tests invocation with empty arg list'); ok( main( '90 35 29 + 90 24 29' ) eq '180, 59, 58', '3. no carry needed' ); ok( main( '179 0 59 + 0 0 1' ) eq '179 1 0', '4. test if single carry works correctly' ); ok( main( '179 0 59 + 0 59 1' ) eq '180 0 0', '5. tests if multiple carry works correctly' ); ok( main( '-179 0 59 + 0 59 1' ) eq '-178 0 0 ', '6. test mainition with negatives' ); ok( main( '0 0 1 + 0 0 59' ) eq '0 1 0', '7. test if single reduce works correctly' ); ok( main( '90 180 270 + 0 180 90' ) eq '96 6 0', '8. tests if multiple reduce calls work correctly' );