#!perl

use strict;
use warnings FATAL => 'all';

use Test::More tests => 8;
use lib 't/lib';

# Tests for various ways in which setup() can complain or die

# no need for a die() here because Cat will do that for us
BEGIN { use_ok('Catalyst::Test', ('BasicTestApp')); }

{
    is( undef BasicTestApp->config->{hashedcookies}, undef,
        'Obliterate BasicTestApp\'s hash key and param defaults' );
    ok( BasicTestApp->config->{hashedcookies}->{key} = 'abcdef0123456789ASDF',
        'Re-set key to keep HashedCookies quiet' );

    ok( BasicTestApp->config->{hashedcookies}->{algorithm} = 'OLIVER',
        'Set bogus (unkown) algorithm' );

    is( eval{ BasicTestApp->setup() }, undef,
        'Setup dies on unkown algorithm' );
        # FIXME perhaps the above is() check should be doing something smarter.
        # I've already been bitten by setup() in tests, as it changed return value.

    is( BasicTestApp->config->{hashedcookies}->{algorithm} = '', '',
        'Set algorithm to empty string' ); 

    isnt( BasicTestApp->setup(), undef,
        'Setup copes with empty string algorithm' );
        # FIXME perhaps the above isnt() check should be doing something smarter.
        # I've already been bitten by setup() in tests, as it changed return value.

    is( BasicTestApp->config->{hashedcookies}->{algorithm}, 'SHA1',
        'Default algorithm is set' );
}