MojoX-Dispatcher-FilterChain/t/03chain.t

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 4;
   7
   8 use_ok('MojoX::Dispatcher::FilterChain');
   9 use_ok('MojoX::Dispatcher::FilterChain::Context');
  10
  11 my $c = MojoX::Dispatcher::FilterChain::Context->new();
  12
  13 my $chain = MojoX::Dispatcher::FilterChain->new();
  14
  15 $chain->add(FilterFirst->new());
  16 $chain->add(FilterIntercept->new());
  17 $chain->add(FilterLast->new());
  18
  19 $chain->process($c);
  20
  21 is($c->stash->{foo}, 'bar');
  22 ok(not defined $c->stash->{last});
  23
  24 1;
  25
  26 package FilterFirst;
  27 use base 'MojoX::FilterChain::Base';
  28 use MojoX::FilterChain::Constants;
  29
  30 sub run {
  31     my ($self, $c) = @_;
  32     $c->stash->{foo} = 'bar';
  33     return NEXT;
  34 }
  35 1;
  36
  37 package FilterIntercept;
  38 use base 'MojoX::FilterChain::Base';
  39 use MojoX::FilterChain::Constants;
  40
  41 sub run {
  42     return LAST;
  43 }
  44 1;
  45
  46 package FilterLast;
  47 use base 'MojoX::FilterChain::Base';
  48 use MojoX::FilterChain::Constants;
  49
  50 sub run {
  51     my ($self, $c) = @_;
  52     $c->stash->{last} = 1;
  53     return LAST;
  54 }
  55 1;