use warnings;
use strict;
require POSIX;
use Test::More tests => 8;
use lib "../lib";
use_ok("Date::Format");
use_ok("Date::Language::Hungarian");
my $lang = Date::Language->new('Hungarian');
isa_ok($lang, 'Date::Language::Hungarian', 'lang');
ok($lang->time2str("%a %b %e %T %Y", time), 'parent pod');
# Calendar time for December 25, 1995, at 10:30 am.
my $time_t = POSIX::mktime( 0, 30, 10, 25, 11, 95 );
like( POSIX::ctime($time_t), qr 'Mon Dec 25 10:30:00 1995', 'POSIX');
like( $lang->time2str("%a %b %e %T %Y", $time_t), qr'Hét Dec 25 10:30:00 1995','magyar pod');
is( $lang->time2str("%o", $time_t), '25.', 'magyar date suffix');
is( $lang->time2str("%D", $time_t), '95.12.25', 'magyar date form yy/mm/dd');
__END__
%% PERCENT
%a day of the week abbr
%A day of the week
%b month abbr
%B month
%c MM/DD/YY HH:MM:SS
%C ctime format: Sat Nov 19 21:05:57 1994
%d numeric day of the month, with leading zeros (eg 01..31)
%e numeric day of the month, without leading zeros (eg 1..31)
%D MM/DD/YY
%G GPS week number (weeks since January 6, 1980)
%h month abbr
%H hour, 24 hour clock, leading 0's)
%I hour, 12 hour clock, leading 0's)
%j day of the year
%k hour
%l hour, 12 hour clock
%L month number, starting with 1
%m month number, starting with 01
%M minute, leading 0's
%n NEWLINE
%o ornate day of month -- "1st", "2nd", "25th", etc.
%p AM or PM
%P am or pm (Yes %p and %P are backwards :)
%q Quarter number, starting with 1
%r time format: 09:05:57 PM
%R time format: 21:05
%s seconds since the Epoch, UCT
%S seconds, leading 0's
%t TAB
%T time format: 21:05:57
%U week number, Sunday as first day of week
%w day of the week, numerically, Sunday == 0
%W week number, Monday as first day of week
%x date format: 11/19/94
%X time format: 21:05:57
%y year (2 digits)
%Y year (4 digits)
%Z timezone in ascii. eg: PST
%z timezone in format -/+0000