CatalystX-Dispatcher-LangDetect/t/live.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5
   6 BEGIN {
   7     plan 'no_plan';
   8 }
   9
  10 use lib 't/lib';
  11 use Catalyst::Test qw/TestApp/;
  12
  13 is( get( '/' ), 'en', 'get ok' );
  14
  15 is( get( '/hallo' ), 'en', 'get ok' );
  16
  17 is( get( '/ru/hallo' ), 'ru', 'get ok' );
  18
  19 $ENV{'HTTP_ACCEPT_LANGUAGE'} = 'ru';
  20
  21 is( get( '/hallo' ), 'ru', 'get ok' );