use DateTime::Calendar::Hebrew;
print "1..15\n";

#today
my $DT = new DateTime::Calendar::Hebrew(
	year => 5763,
	month => 5,
	day => 23,
);

my %hash = (
	a => 'Thu',
	A => 'Thursday',
	B => 'Av',
	d => '23',
	D => '05/23/5763',
	e => '23',
	F => '5763-05-23',
	j => '141',
	m => '05',
	u => '4',
	U => '21',
	w => '4',
	W => '21',
	y => '63',
	Y => '5763',
);

my @formats = qw/a A B d D e F j m u U w W y Y/;
foreach $f (@formats) {
	if($hash{$f} eq $DT->strftime("%$f")) { print "ok\n"; }
	else { print "not ok\n"; }
}
exit;