view release on metacpan or  search on metacpan

t/cjdn.t  view on Meta::CPAN

use warnings;
use strict;

use Test::More tests => 9;

BEGIN { use_ok "Time::UTC_SLS", qw(utc_day_to_cjdn utc_cjdn_to_day); }

use Math::BigRat 0.04;

sub br(@) { Math::BigRat->new(@_) }

sub match($$) {
	my($a, $b) = @_;
	ok ref($a) eq ref($b) && $a == $b;
}

eval { utc_day_to_cjdn(br("0.5")); };
like $@, qr/\Anon-integer day [^\t\n\f\r ]+ is invalid /;

eval { utc_cjdn_to_day(br("0.5")); };

t/mjdn.t  view on Meta::CPAN

use warnings;
use strict;

use Test::More tests => 9;

BEGIN { use_ok "Time::UTC_SLS", qw(utc_day_to_mjdn utc_mjdn_to_day); }

use Math::BigRat 0.04;

sub br(@) { Math::BigRat->new(@_) }

sub match($$) {
	my($a, $b) = @_;
	ok ref($a) eq ref($b) && $a == $b;
}

eval { utc_day_to_mjdn(br("0.5")); };
like $@, qr/\Anon-integer day [^\t\n\f\r ]+ is invalid /;

eval { utc_mjdn_to_day(br("0.5")); };