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