Commit | Line | Data |
0b75e547 |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Test::More tests => 5; |
5 | use Test::NoWarnings 1.04 ':early'; |
6 | use Path::Tiny 'path'; |
7 | use Path::Class 'file'; |
8 | |
9 | { |
10 | package Generic; |
11 | use Moose; |
12 | with 'MooseX::SimpleConfig'; |
13 | sub get_config_from_file { } |
14 | } |
15 | |
16 | { |
17 | my $obj = Generic->new(configfile => path('i/do/not_exist')); |
18 | is($obj->configfile, 'i/do/not_exist', 'stringification returns path'); |
19 | isa_ok($obj->configfile, 'Path::Tiny'); |
20 | } |
21 | |
22 | { |
23 | my $obj = Generic->new(configfile => file('i/do/not_exist')); |
24 | is($obj->configfile, 'i/do/not_exist', 'stringification returns path'); |
25 | isa_ok($obj->configfile, 'Path::Tiny'); |
26 | } |
27 | |