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