#!/usr/bin/perl -w
use strict;

use lib './t';
use Test::More;
use TestData;
use Calendar::Functions qw(:all :test);

eval "use Time::Piece";
if($@) {
	plan skip_all => "Time::Piece not installed.";
}

plan qw|no_plan|;

# date formatting
foreach my $test (@format03) {
	my $str = format_date(@{$test->{array}});
	is($str,$test->{result});
}