root/veekun/trunk/t/dex-compat.t

#!/usr/bin/perl

use strict;
use warnings;
use lib 'lib';

use Test::More tests => 10;

BEGIN { $ENV{CATALYST_DEBUG} = 0; }
BEGIN { use_ok 'Catalyst::Test', 'Vee' }
BEGIN { use_ok 'Vee::Controller::Dex::Compat' }

my $req;

# Test correct redirection of old numbered URLs

$req = request('/dex/pokemon/133');
ok $req->is_redirect,  "Numeric Pokemon URL results in a redirect";
like $req->header('location'), qr# /dex/pokemon/eevee $ #x,
    "...and redirects correctly";

$req = request('/dex/move/314');
ok $req->is_redirect,  "Numeric move URL results in a redirect";
like $req->header('location'), qr# /dex/moves/air%20cutter $ #x,
    "...and redirects correctly";

$req = request('/dex/type/5');
ok $req->is_redirect,  "Numeric type URL results in a redirect";
like $req->header('location'), qr# /dex/types/ground $ #x,
    "...and redirects correctly";

# Make sure invalid ones bomb cleanly

$req = request('/dex/type/12');
ok $req->is_success,  "Invalid numeric type URL succeeds";
like $req->content, qr/<div id="error">/,
    "...and provides an error message";