lib/ExtUtils/t/MM_BeOS.t

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