1use DateTime::Calendar::Hebrew;
2use DateTime::Duration;
3print "1..1\n";
4
5# the date of the destruction of the first temple in Jerusalem
6my $HT = new DateTime::Calendar::Hebrew(
7	year => 3339,
8	month => 5,
9	day => 9,
10	hour => 12,
11	minute => 45,
12);
13
14my $duration = DateTime::Duration->new( days => 75, hours => 48, minutes => 400, seconds => 30);
15
16$HT2 = $HT->clone()->add_duration($duration)->subtract_duration($duration);
17$HT3 = $HT->clone()->subtract_duration($duration)->add_duration($duration);
18
19if($HT == $HT2 and $HT2 == $HT3) { print "ok\n"; }
20else { print "not ok\n"; }
21
22exit;
23