use strict;     
use Test::More tests => 16;
use Test::Exception;

use lib "t";
use TestAppSetup;
use_ok('Catalyst::Test', 'BookShelf');


my $html;
my @column_names;
my $res;


diag("Redirect/forward from / to /book/list");
$res = request("/");
ok($res->is_redirect, "Redirect ok");
is($res->header("Location"), "/book", "Redirect to /book");



diag("Check column existance and naming (/book/list)");
ok($html = get("/book/list"), "GET /book/list ok");
@column_names = qw/
                   Borrower Author Genre Format Borrowed Title ISBN
                   Publisher Year Pages
                   /;
for my $name (@column_names) {
    like($html, qr/Borrower/, "Colname ($name) ok");
}



diag("Check column existance and naming (/genre/list)");
ok($html = get("/genre/list"), "GET /genre/list ok");
@column_names = qw/ Name /;
for my $name (@column_names) {
    like($html, qr/Borrower/, "Colname ($name) ok");
}




__END__