# perl -T
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl POOF-DataType.t'

#########################
use Test::More;
BEGIN
{
    plan tests => 5;
};
use_ok(qw(POOF::Exception));

#########################

my $e1 = POOF::Exception->new(
    code => 500,
    description => 'some bad error',
    value => 'badvalue'
);

isa_ok(
    $e1,
    'POOF::Exception',
    'Making sure we have a valid object'
);

ok(($e1->{'code'} == 500
    ? 1
    : 0 ), 'Checking the code');

ok(($e1->{'description'} eq 'some bad error'
    ? 1
    : 0 ), 'Checking the description');

ok(($e1->{'value'} eq 'badvalue'
    ? 1
    : 0 ), 'Checking the value');