MojoX-Dispatcher-FilterChain/t/detect-lang.t

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 11;
   7
   8 use_ok('MojoX::FilterChain::DetectLang');
   9
  10 use Mojo::Transaction;
  11 use MojoX::Dispatcher::FilterChain;
  12 use MojoX::Dispatcher::FilterChain::Context;
  13
  14 my $c = MojoX::Dispatcher::FilterChain::Context->new();
  15
  16 my $chain = MojoX::Dispatcher::FilterChain->new();
  17
  18 $chain->add(MojoX::FilterChain::DetectLang->new(languages => [qw/ en de /]));
  19
  20 # no language specified
  21 $c->tx(Mojo::Transaction->new_get('http://example.com'));
  22 $chain->process($c);
  23 ok(not defined $c->stash->{language});
  24 is($c->tx->req->url, 'http://example.com');
  25
  26 # no language
  27 $c->tx(Mojo::Transaction->new_get('http://example.com/stuff'));
  28 $chain->process($c);
  29 ok(not defined $c->stash->{language});
  30 is($c->tx->req->url, 'http://example.com/stuff');
  31
  32 # language
  33 $c->tx(Mojo::Transaction->new_get('http://example.com/de'));
  34 $chain->process($c);
  35 is($c->stash->{language}, 'de');
  36 is($c->tx->req->url, 'http://example.com/');
  37
  38 # language with slash
  39 $c->tx(Mojo::Transaction->new_get('http://example.com/de/'));
  40 $chain->process($c);
  41 is($c->stash->{language}, 'de');
  42 is($c->tx->req->url, 'http://example.com/');
  43
  44 # language followed by path
  45 $c->tx(Mojo::Transaction->new_get('http://example.com/de/stuff'));
  46 $chain->process($c);
  47 is($c->stash->{language}, 'de');
  48 is($c->tx->req->url, 'http://example.com/stuff');