1#!perl
2
3BEGIN {
4  unless ($ENV{AUTHOR_TESTING}) {
5    require Test::More;
6    Test::More::plan(skip_all => 'these tests are for testing by the author');
7  }
8}
9
10
11use strict;
12use warnings;
13
14use FindBin;
15use lib "$FindBin::Bin/lib";
16
17use Test::More tests => 1;
18use Catalyst::Test 'TestApp';
19
20SKIP:
21{
22    if ( $ENV{CATALYST_SERVER} ) {
23        skip "Using remote server", 1;
24    }
25    # Allow overriding automatic root.
26    is( TestApp->config->{root}, '/some/dir' );
27}
28