The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Test::More;
use B::Deparse;
use FindBin;
use lib "$FindBin::Bin/lib/TestApp/lib";

use Catalyst::Test 'TestApp';

{
	my $c = new TestApp();
	my $features = $c->features;
	ok( ref $features, 'there are features' );

    ok(
        grep( m{/TestApp/root/static/main.js$},
            $c->path_to( 'root', 'static', 'main.js' ) ),
        'normal path_to works'
    );

    ok(
        grep( m{/TestApp/features/FEATURE/root/ff.js$},
            $c->path_to( 'root', 'ff.js' ) ),
        'feature path_to works'
    );

	my @list = $c->features->list;
	is( scalar @list, 5, 'five features' );
}

# not ready yet
#{
#    my $resp = request('/test/init');
#    is($resp->content, 'value: 99', 'feature main module init');
#}

done_testing;