#!perl

use 5.032;
use warnings;

use FindBin;
use lib "$FindBin::Bin/lib";

use Test::More tests => 6;

use RequireHookTest;

my $rht = RequireHookTest::->new();
is(defined $rht, 1, 'Test RequireHookTest::->new()');
isa_ok($rht, 'RequireHookTest', 'Test RequireHookTest::->new() ISA');

$rht->dynamic_require('Test1');
my $rht_test1 = RequireHookTest::Test1->new();
is(defined $rht_test1, 1, 'Test RequireHookTest::Test1->new()');
isa_ok($rht_test1, 'RequireHookTest::Test1', 'Test RequireHookTest::Test1->new() ISA');

$rht->dynamic_require('Test2');
my $rht_test2 = RequireHookTest::Test2->new();
is(defined $rht_test2, 1, 'Test RequireHookTest::Test2->new()');
isa_ok($rht_test2, 'RequireHookTest::Test2', 'Test RequireHookTest::Test2->new() ISA');