lib/ExtUtils/t/MM_BeOS.t

   1 #!/usr/bin/perl
   2
   3 BEGIN {
   4     if( $ENV{PERL_CORE} ) {
   5         chdir 't' if -d 't';
   6         @INC = '../lib';
   7     }
   8 }
   9 chdir 't';
  10
  11 use Test::More;
  12
  13 BEGIN {
  14         if ($^O =~ /beos/i) {
  15                 plan tests => 2;
  16         } else {
  17                 plan skip_all => 'This is not BeOS';
  18         }
  19 }
  20
  21 use Config;
  22 use File::Spec;
  23 use File::Basename;
  24
  25 # tels - Taken from MM_Win32.t - I must not understand why this works, right?
  26 # Does this mimic ExtUtils::MakeMaker ok?
  27 {
  28     @MM::ISA = qw(
  29         ExtUtils::MM_Unix
  30         ExtUtils::Liblist::Kid
  31         ExtUtils::MakeMaker
  32     );
  33     # MM package faked up by messy MI entanglement
  34     package MM;
  35     sub DESTROY {}
  36 }
  37
  38 require_ok( 'ExtUtils::MM_BeOS' );
  39
  40 # perl_archive()
  41 {
  42     my $libperl = $Config{libperl} || 'libperl.a';
  43     is( MM->perl_archive(), File::Spec->catfile('$(PERL_INC)', $libperl ),
  44             'perl_archive() should respect libperl setting' );
  45 }