1use DateTime::Calendar::Hebrew;
2print "1..15\n";
3
4#today
5my $DT = new DateTime::Calendar::Hebrew(
6	year => 5763,
7	month => 5,
8	day => 23,
9);
10
11my %hash = (
12	a => 'Thu',
13	A => 'Thursday',
14	B => 'Av',
15	d => '23',
16	D => '05/23/5763',
17	e => '23',
18	F => '5763-05-23',
19	j => '141',
20	m => '05',
21	u => '4',
22	U => '21',
23	w => '4',
24	W => '21',
25	y => '63',
26	Y => '5763',
27);
28
29my @formats = qw/a A B d D e F j m u U w W y Y/;
30foreach $f (@formats) {
31	if($hash{$f} eq $DT->strftime("%$f")) { print "ok\n"; }
32	else { print "not ok\n"; }
33}
34exit;
35
36