ext/ExtUtils-MakeMaker/t/arch_check.t

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use lib 't/lib';
   5
   6 use TieOut;
   7 use Test::More 'no_plan';
   8
   9 use Config;
  10 use ExtUtils::MakeMaker;
  11
  12 ok( my $stdout = tie *STDOUT, 'TieOut' );
  13
  14 # Create a normalized MM object to test with
  15 my $mm = bless {}, "MM";
  16 $mm->{PERL_SRC} = 0;
  17 $mm->{UNINSTALLED_PERL} = 0;
  18
  19 my $rel2abs = sub { $mm->rel2abs($mm->catfile(@_)) };
  20
  21 ok $mm->arch_check(
  22     $rel2abs->(qw(. t testdata reallylongdirectoryname arch1 Config.pm)),
  23     $rel2abs->(qw(. t testdata reallylongdirectoryname arch1 Config.pm)),
  24 );
  25
  26
  27 # Different architecures.
  28 {
  29     ok !$mm->arch_check(
  30         $rel2abs->(qw(. t testdata reallylongdirectoryname arch1 Config.pm)),
  31         $rel2abs->(qw(. t testdata reallylongdirectoryname arch2 Config.pm)),
  32     );
  33
  34     like $stdout->read, qr{\Q
  35 Your perl and your Config.pm seem to have different ideas about the
  36 architecture they are running on.
  37 Perl thinks: [arch1]
  38 Config says: [$Config{archname}]
  39 This may or may not cause problems. Please check your installation of perl
  40 if you have problems building this extension.
  41 };
  42
  43 }
  44
  45
  46 # Different file path separators [rt.cpan.org 46416]
  47 SKIP: {
  48     require File::Spec;
  49     skip "Win32 test", 1 unless File::Spec->isa("File::Spec::Win32");
  50
  51     ok $mm->arch_check(
  52         "/_64/perl1004/lib/Config.pm",
  53         '\\_64\\perl1004\\lib\\Config.pm',
  54     );
  55 }
  56
  57
  58 # PERL_SRC is set, no check is done
  59 {
  60     # Clear our log
  61     $stdout->read;
  62
  63     local $mm->{PERL_SRC} = 1;
  64     ok $mm->arch_check(
  65       $rel2abs->(qw(. t testdata reallylongdirectoryname arch1 Config.pm)),
  66       $rel2abs->(qw(. t testdata reallylongdirectoryname arch2 Config.pm)),
  67     );
  68
  69     is $stdout->read, '';
  70 }
  71
  72
  73 # UNINSTALLED_PERL is set, no message is sent
  74 {
  75     local $mm->{UNINSTALLED_PERL} = 1;
  76     ok !$mm->arch_check(
  77       $rel2abs->(qw(. t testdata reallylongdirectoryname arch1 Config.pm)),
  78       $rel2abs->(qw(. t testdata reallylongdirectoryname arch2 Config.pm)),
  79     );
  80
  81     like $stdout->read, qr{^Have .*\nWant .*$};
  82 }