#!/usr/bin/perl -w
use strict;
use lib './t';
use Test::More qw(no_plan);
#use Test::More test => 69;
use TestData;
use Calendar::Functions qw(:form);
# Note this test is for the base functions that don't rely on other modules
# The basic functions
foreach my $test (keys %exts) { is(ext($test),$exts{$test}) }
foreach my $test (keys %monthtest) { is(moty($test),$monthtest{$test}) }
foreach my $test (keys %daytest) { is(dotw($test),$daytest{$test}) }
# date formatting
foreach my $test (@format01) {
my $str = format_date(@{$test->{array}});
is($str,$test->{result});
}
foreach my $test (@format02) {
my $str = reformat_date(@{$test->{array}});
# is($str,$test->{result});
}