Please provide a value each for $subpath and $target where 0 == index $subpath, "$target/" is true and where $subpath does not start with $target.

use strict;
use warnings;

use Test::More;

my @tests = (
    { subpath => 'foo/bar', target => 'bar' },
    { subpath => 'foo/bar', target => 'ba' },
    { subpath => 'foo/bar', target => 'oo' },
);

plan tests => scalar @tests;

for my $t (@tests) {
    isnt index ($t->{subpath}, "$t->{target}/"), 0, "False, as expecte
+d"
}
[download]