1use DateTime::Calendar::Hebrew;
2print "1..1\n";
3
4my $DT = new DateTime::Calendar::Hebrew(
5	year => 1,
6	month => 1,
7	day => 1,
8);
9
10if(($DT->utc_rd_values)[0] == -1373249) { print "ok\n"; }
11else { print "not ok\n"; }
12
13