1#!/usr/bin/perl 2 3use warnings; 4use strict; 5use Test::Inter; 6$::ti = new Test::Inter $0; 7require "tests.pl"; 8 9our $obj = new Date::Manip::Date; 10$obj->config("forcedate","2000-01-21-12:30:45,America/New_York"); 11 12sub test { 13 my($format,$string,@g) = @_; 14 my($err,%m) = $obj->parse_format($format,$string); 15 if ($err) { 16 return $err; 17 } 18 my $v = $obj->value(); 19 my(@ret) = ($v); 20 foreach my $g (@g) { 21 push(@ret,$m{$g}); 22 } 23 return @ret; 24} 25 26my $tests=q{ 27 28'(?<PRE>.*?)%Y-%m-%d(?<POST>.*)' 29'before 2014-01-25 after' 30PRE 31POST 32 => 33 2014012500:00:00 34 'before ' 35 ' after' 36 37}; 38 39$::ti->tests(func => \&test, 40 tests => $tests); 41$::ti->done_testing(); 42 431; 44 45#Local Variables: 46#mode: cperl 47#indent-tabs-mode: nil 48#cperl-indent-level: 3 49#cperl-continued-statement-offset: 2 50#cperl-continued-brace-offset: 0 51#cperl-brace-offset: 0 52#cperl-brace-imaginary-offset: 0 53#cperl-label-offset: 0 54#End: 55