wchristian / acme-mithaldu-xsgrabbag Goto Github PK

$ make test
PERL_DL_NONLAZY=1 "/home/daxim/local/share/perlbrew/perls/perl-5.20.2/bin/perl" "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/00-compile.t .. ok
t/basic.t ....... 1/?
#   Failed test at t/basic.t line 33.
#          got: '0.0174532923847436905'
#     expected: '0.0174532923847437'

#   Failed test at t/basic.t line 34.
#          got: '3.14159274101257324'
#     expected: '3.14159274101257'

#   Failed test at t/basic.t line 35.
#          got: '6.28318548202514648'
#     expected: '6.28318548202515'
# Looks like you failed 3 tests of 22.
t/basic.t ....... Dubious, test returned 3 (wstat 768, 0x300)
Failed 3/22 subtests

Test Summary Report
-------------------
t/basic.t     (Wstat: 768 Tests: 22 Failed: 3)
Failed tests:  15-17
Non-zero exit status: 3
Files=2, Tests=24,  0 wallclock secs ( 0.05 usr  0.00 sys +  0.25 cusr  0.03 csys =  0.33 CPU)
Result: FAIL
Failed 1/2 test programs. 3/24 subtests failed.
Makefile:864: recipe for target 'test_dynamic' failed
make: *** [test_dynamic] Error 3

diff --git a/t/basic.t b/t/basic.t
index 141741d..335ea9c 100644
--- a/t/basic.t
+++ b/t/basic.t
@@ -2,6 +2,7 @@ package basic_test;
 use strictures;
 use Test::InDistDir;
 use Test::More;
+use Test::Number::Delta;

 use Acme::MITHALDU::XSGrabBag qw'
   mix
@@ -30,9 +31,9 @@ sub run {
     is mix( 3, 2, 4 ), -766896240;

     is deg2rad( 0 ),   0;
-    is deg2rad( 1 ),   0.0174532923847437;
-    is deg2rad( 180 ), 3.14159274101257;
-    is deg2rad( 360 ), 6.28318548202515;
+    delta_ok deg2rad( 1 ),   0.0174532923847436905;
+    delta_ok deg2rad( 180 ), 3.14159274101257324;
+    delta_ok deg2rad( 360 ), 6.28318548202514648;

     is rad2deg( 0 ),                  0;
     is rad2deg( 0.0174532923847437 ), 1;