use warnings;
use strict;

use Test::More tests => 4;

BEGIN { use_ok "Time::UTC::Now", qw(utc_day_to_cjdn); }

sub check($$) {
	my($day, $cjdn) = @_;
	is utc_day_to_cjdn($day), $cjdn;
}

check(-1, 2436204);
check(0, 2436205);
check(365*41 + 10, 2451180);

1;