X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F06_path_tiny.t;fp=t%2F06_path_tiny.t;h=0000000000000000000000000000000000000000;hb=236b170ea09ee565b8c2679b5ce182b3e8fd2612;hp=e44472dd41e2de961c42d6f9a89affa714909bb5;hpb=7b24ed16bbfca5ed2dc3f3dd706352766cb661f0;p=gitmo%2FMooseX-ConfigFromFile.git diff --git a/t/06_path_tiny.t b/t/06_path_tiny.t deleted file mode 100644 index e44472d..0000000 --- a/t/06_path_tiny.t +++ /dev/null @@ -1,28 +0,0 @@ -use strict; -use warnings FATAL => 'all'; - -use Test::Requires 'MooseX::SimpleConfig'; # skip all if not reuqired -use Test::More tests => 5; -use Test::NoWarnings 1.04 ':early'; -use Path::Tiny 'path'; -use Path::Class 'file'; - -{ - package Generic; - use Moose; - with 'MooseX::SimpleConfig'; - sub get_config_from_file { } -} - -{ - my $obj = Generic->new(configfile => path('i/do/not_exist')); - is($obj->configfile, 'i/do/not_exist', 'stringification returns path'); - isa_ok($obj->configfile, 'Path::Tiny'); -} - -{ - my $obj = Generic->new(configfile => file('i/do/not_exist')); - is($obj->configfile, 'i/do/not_exist', 'stringification returns path'); - isa_ok($obj->configfile, 'Path::Tiny'); -} -