#!perl

use 5.032;
use warnings;

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

use Test::More tests => 6;

use MooselessRequireHookTest;

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

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

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