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