#!/usr/bin/env perl

use strict;
use warnings;
use Test::More tests => 6;
use FindBin qw($Bin);
use lib "$Bin/lib";
use Catalyst::Test qw(TestApp);

is(get('/action_name'), "<p>This is the action_name template.</p>", 
     'action name works');
is(get('/test_stash'), "<p>Hello, World</p>", 
     'getting data from stash works');
is(get('/test_sub'), "<p>This is a subtemplate.</p>",
     'templates in other files work');
is(get('/test_includeother'), 
   "<p>This comes before the other template.</p>".
   "\n<p>This is a subtemplate.</p>",
   'a subtemplate that includes another subtemplate');
is(get('/myapp_methods'), '<p>Hello, world.</p>', 'can call $c->... ok');
is(get('/test_magic_stash'), "<p>Hello, Terra</p>", 
     'getting data from $_ stash works');