Commit | Line | Data |
277189c8 |
1 | #!/usr/bin/perl -w |
2 | |
3 | BEGIN { |
4 | if( $ENV{PERL_CORE} ) { |
5 | chdir 't'; |
6 | @INC = ('../lib', 'lib/'); |
7 | } |
8 | else { |
9 | unshift @INC, 't/lib/'; |
10 | } |
11 | } |
12 | chdir 't'; |
13 | |
14 | use File::Spec; |
15 | |
16 | use Test::More tests => 6; |
17 | |
18 | use TieOut; |
19 | use MakeMaker::Test::Utils; |
20 | use MakeMaker::Test::Setup::BFD; |
21 | |
22 | use ExtUtils::MakeMaker; |
23 | |
24 | chdir 't'; |
25 | |
26 | perl_lib(); |
27 | |
28 | ok( setup_recurs(), 'setup' ); |
29 | END { |
30 | ok( chdir File::Spec->updir ); |
31 | ok( teardown_recurs(), 'teardown' ); |
32 | } |
33 | |
34 | ok( chdir 'Big-Dummy', "chdir'd to Big-Dummy" ) || |
35 | diag("chdir failed: $!"); |
36 | |
37 | # [rt.cpan.org 26234] |
38 | { |
39 | local $/ = "foo"; |
40 | local $\ = "bar"; |
41 | MY->fixin("bin/program"); |
42 | is $/, "foo", '$/ not clobbered'; |
43 | is $\, "bar", '$\ not clobbered'; |
44 | } |
45 | |