1use DateTime::Calendar::Hebrew;
2use DateTime::Event::Sunrise;
3print "1..1\n";
4
5my $sunset = DateTime::Event::Sunrise->sunset (
6    # Latitude/Longitude for NYC
7	longitude =>'-73.59',
8	latitude =>'40.38',
9);
10
11# the date the Ancient Israelites left Egypt
12my $DT = new DateTime::Calendar::Hebrew(
13	year => 2449,
14	month => 1,
15	day => 15,
16	hour => 23,
17	minute => 59,
18	second => 0,
19	nanosecond => 987654321,
20	time_zone => 'America/New_York',
21	sunset => $sunset,
22);
23
24my $clone = $DT->clone;
25print Dumper $clone;
26if($DT->utc_rd_as_seconds == $clone->utc_rd_as_seconds) { print "ok\n"; }
27else { print "not ok\n"; }
28
29exit;
30