Select Code to Download

#   Failed test 'comparePaths(/a/b, /a)'
#   in Monks/Snippet.pm at line 132.
...
#          got: '-2'
#     expected: '-1'
# Looks like you failed 4 tests of 36.

#   Failed test 'comparePaths(/, /a)'
#   in Monks/Snippet.pm at line 108.
...
#          got: '-2'
#     expected: '-1'
# Looks like you failed 4 tests of 36.

    #replace
    my @aDirs = File::Spec->splitdir($sDirPart);
...
    my @aDirs = $sDirPart eq File::Spec->rootdir()
      ? ('') : File::Spec->splitdir($sDirPart);

use strict;
use warnings;
...
is(comparePaths('/a/b/', '/a/x'), -2, "comparePaths(/a/b/, /a/x)");
is(comparePaths('/a/b/', '/a/x/'), -2, "comparePaths(/a/b/, /a/x/)");