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