[catagits/Catalyst-Plugin-ConfigLoader.git] / t / 24-mock-shortappname.t

use strict;
use warnings;
use Test::More;

{
    package QX;
    use strict;
    use warnings;
    use Path::Class ();

    use base 'Catalyst::Plugin::ConfigLoader';

    sub config { {} }
    sub path_to { shift; Path::Class::dir('/home/foo/QX-0.9.5/' . shift); }
}

my $app = bless {}, 'QX';
my ($path, $extension) = $app->get_config_path;
is $path, Path::Class::dir( '/home/foo/QX-0.9.5/qx' )->stringify;
is $extension, undef;

done_testing;
Commit	Line	Data
5bdb6290	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;
b8535960	19	is $path, Path::Class::dir( '/home/foo/QX-0.9.5/qx' )->stringify;
5bdb6290	20	is $extension, undef;
	21
	22	done_testing;
	23