5 use Test::More tests => 1;
8 use lib "$FindBin::Bin/lib";
11 package IntrospectionTest;
12 use IntrospectTypeExports __PACKAGE__, qw( TwentyThree NonEmptyStr MyNonEmptyStr );
13 use TestLibrary qw( TwentyThree );
14 use IntrospectTypeExports __PACKAGE__, qw( TwentyThree NonEmptyStr MyNonEmptyStr );
15 use TestLibrary NonEmptyStr => { -as => 'MyNonEmptyStr' };
16 use IntrospectTypeExports __PACKAGE__, qw( TwentyThree NonEmptyStr MyNonEmptyStr );
19 delete ${'IntrospectionTest::'}{TwentyThree};
23 use IntrospectTypeExports IntrospectionTest => qw( TwentyThree NonEmptyStr MyNonEmptyStr );
25 my $P = 'IntrospectionTest';
27 is_deeply(IntrospectTypeExports->get_memory, [
29 [$P, TwentyThree => undef],
30 [$P, NonEmptyStr => undef],
31 [$P, MyNonEmptyStr => undef],
33 [$P, TwentyThree => 'TestLibrary::TwentyThree'],
34 [$P, NonEmptyStr => undef],
35 [$P, MyNonEmptyStr => undef],
37 [$P, TwentyThree => 'TestLibrary::TwentyThree'],
38 [$P, NonEmptyStr => undef],
39 [$P, MyNonEmptyStr => 'TestLibrary::NonEmptyStr'],
41 [$P, TwentyThree => undef],
42 [$P, NonEmptyStr => undef],
43 [$P, MyNonEmptyStr => 'TestLibrary::NonEmptyStr'],
45 ], 'all calls to has_available_type_export returned correct results');