t/110_under_sequence.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4
   5 use FindBin;
   6 use lib "$FindBin::Bin/lib";
   7
   8 use Test::More;
   9 use Catalyst::Test 'TestApp';
  10
  11 is get('/under_seq/foo'), 'foo', 'basic action';
  12 is get('/under_seq/bar/test_bar'), 'bar', 'first action in under scope';
  13 is get('/under_seq/baz/test_baz'), 'baz', 'following base and under scope';
  14
  15 done_testing;
  16
  17