use strict;

use Test::Builder::Tester tests => 12;
use Test::Number::Delta relative => 1e-2;

#--------------------------------------------------------------------------#
# delta_ok
#--------------------------------------------------------------------------#

test_out("not ok 1 - foo");
test_fail(+2);
test_diag("0.001000 and 0.000980 are not equal to within 0.00001");
delta_ok(1e-3, 9.8e-4, "foo");
test_test("delta_ok fail works");

test_out("not ok 1 - foo");
test_fail(+2);
test_diag("-50.00 and -49.40 are not equal to within 0.5");
delta_ok(-50, -49.4, "foo");
test_test("delta_ok fail works");

test_out("ok 1 - foo");
delta_ok(10e-5, 9.91e-5, "foo");
test_test("delta_ok works");

test_out("ok 1 - foo");
delta_ok(-9.91e-5, -10e-5, "foo");
test_test("delta_ok works");

test_out("ok 1 - foo");
delta_ok(1.01, 1.0099, "foo");
test_test("delta_ok works");

test_out("ok 1 - foo");
delta_ok(-100, -99.1, "foo");
test_test("delta_ok works");

#--------------------------------------------------------------------------#
# delta_not_ok
#--------------------------------------------------------------------------#

test_out("not ok 1 - foo");
test_fail(+2);
test_diag("Arguments are equal to within 0.00001");
delta_not_ok(1e-3, 9.91e-4, "foo");
test_test("delta_not_ok fail works");

test_out("not ok 1 - foo");
test_fail(+2);
test_diag("Arguments are equal to within 0.5");
delta_not_ok(-50, -49.6, "foo");
test_test("delta_no_ok fail works");

test_out("ok 1 - foo");
delta_not_ok(10e-5, 9.89e-5, "foo");
test_test("delta_not_ok works");

test_out("ok 1 - foo");
delta_not_ok(-9.89e-5, -10e-5, "foo");
test_test("delta_not_ok works");

test_out("ok 1 - foo");
delta_not_ok(1.01, 0.99, "foo");
test_test("delta_not_ok works");

test_out("ok 1 - foo");
delta_not_ok(-100, -98.1, "foo");
test_test("delta_not_ok works");