### ----------------------------------------------------
### -- path-utils
### -- Licenses: Artistic-2.0
### -- Authors: Elizabeth Mattijsen
### -- File: xt/01-dev.rakutest
### ----------------------------------------------------
use Test;
use path-utils;

plan 10;

my str $file = $?FILE;
my str $t    = $?FILE.IO.parent.absolute;
my str $dir  = $?FILE.IO.parent.parent.absolute;

nok path-is-git-repo($t),    "is $t NOT a Git repo";
nok path-is-github-repo($t), "is $t NOT a GitHub repo";

ok path-is-git-repo($dir),    "is $dir a Git repo";
ok path-is-github-repo($dir), "is $dir a GitHub repo";

ok path-is-owned-by-user($file),  "is $file owned by user";
ok path-is-owned-by-user($dir),   "is $file owned by user";
ok path-is-owned-by-group($file), "is $file owned by group";
ok path-is-owned-by-group($dir),  "is $file owned by group";

is-deeply path-git-repo($t),     $dir, "is $dir the Git repo of $t";
is-deeply path-git-repo($?FILE), $dir, "is $dir the Git repo of $file";

# vim: expandtab shiftwidth=4


