t/18_combined_libs.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use FindBin;
   5 use lib "$FindBin::Bin/lib";
   6
   7 use Test::More tests => 4;
   8
   9 BEGIN { use_ok 'Combined', qw/Foo2Alias MTFNPY NonEmptyStr/ }
  10
  11 # test that a type from TestLibrary was exported
  12 ok Foo2Alias;
  13
  14 # test that a type from TestLibrary2 was exported
  15 ok MTFNPY;
  16
  17 is NonEmptyStr->name, 'TestLibrary2::NonEmptyStr',
  18     'precedence for conflicting types is correct';