#!perl -T

use 5.016;
use warnings;

use Test::More tests => 3;

use Abstract::Work::Class;

my $obj;
my $no_instantiation = 0;
my $eval_message = '';

eval {
    $obj = Abstract::Work::Class::->new();
    1;
} or do {
    $eval_message = $@;
    $no_instantiation = 1;
};

ok(! defined($obj), 'Test potential object remains undefined');
ok($no_instantiation, 'Test no instantiation of abstract class');
ok(index($eval_message, 'FATAL! Attempt to instantiate an abstract class.') == 0,
    'Test error message from attempting instantiation of abstract class');