projects
/
catagits/Catalyst-Plugin-ConfigLoader.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
87fa57ae604aec9524822782d6947299b4cda946
[catagits/Catalyst-Plugin-ConfigLoader.git]
/
t
/
24-mock-shortappname.t
1
use strict;
2
use warnings;
3
use Test::More;
4
5
{
6
package QX;
7
use strict;
8
use warnings;
9
use Path::Class ();
10
11
use base 'Catalyst::Plugin::ConfigLoader';
12
13
sub config { {} }
14
sub path_to { shift; Path::Class::dir('/home/foo/QX-0.9.5/' . shift); }
15
}
16
17
my $app = bless {}, 'QX';
18
my ($path, $extension) = $app->get_config_path;
19
is $path, '/home/foo/QX-0.9.5/qx';
20
is $extension, undef;
21
22
done_testing;
23