1# $Id: 2new-param.t 1039 2003-05-30 14:04:49Z cfaerber $
2use Test::More tests => 2;
3use DateTime::Format::Pg 0.02;
4
5my $p_eu = DateTime::Format::Pg->new( 'european' => 1);
6my $p_us = DateTime::Format::Pg->new( 'european' => 0);
7
8$dt = $p_eu->parse_date('26-04-2003');
9is($dt->ymd(), '2003-04-26');
10
11$dt = $p_us->parse_date('04-26-2003');
12is($dt->ymd(), '2003-04-26');
13