use strict;
use warnings;
use Test::More;
my @data = (
{
have => '/fd/gfree/tere/frf4545/geerg/fds/0.1/fsdf/dsakdsa/',
want => '/fd/gfree/tere/frf4545/geerg/fds/0.1',
},
{
have => '/fd/gfree/tere/frf4545/geerg/dfds/5.9/fdsf/fdsfd/',
want => '/fd/gfree/tere/frf4545/geerg/dfds/5.9',
},
{
have => '/fd/gfree/tere/frf4545/geerg/dsad/02.44/fdsf/fdsf/',
want => '/fd/gfree/tere/frf4545/geerg/dsad/02.44',
},
);
plan tests => scalar @data;
for my $t (@data) {
$t->{have} =~ s/(\.\d+).*?$/$1/;
is $t->{have}, $t->{want};
}
|