The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::Base;

plan tests => 3;

use FindBin;
use lib File::Spec->catfile( $FindBin::Bin, 'lib' );

$ENV{FIREBUG_DEBUG} = 1;
$ENV{FIREBUG_EXPAND} = 1;

use Catalyst::Test 'TestAppAction';
TestAppAction->setup;

ok( my $html = get('/'), 'Request ok' );
like( $html, qr!<html.*debug="true".*>!, 'Insert [debug="true"] ok' );
like( $html, qr!firebug\.js!, 'Insert firebug script ok' );

1;