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