Commit | Line | Data |
---|---|---|
4b3d0bfc | 1 | use strict; |
2 | use warnings; | |
3 | use Test::More; | |
4 | ||
5 | plan skip_all => "Preconditions failed; your filesystem is strange" | |
6 | unless -d "/etc" && -e "/etc/passwd"; | |
7 | ||
8 | use MooseX::Types::Path::Class qw(ExistingFile ExistingDir); | |
9 | ||
10 | ok is_ExistingFile(to_ExistingFile("/etc/passwd")), '/etc/passwd is an existing file'; | |
11 | ||
12 | ok is_ExistingDir(to_ExistingDir("/etc/")), '/etc/ is an existing directory'; | |
13 | ||
14 | done_testing; |