Move ExtUtils::MakeMaker from ext/ to cpan/
[perl.git] / cpan / ExtUtils-MakeMaker / t / maketext_filter.t
1 #!/usr/bin/perl -w
2
3 BEGIN {
4     unshift @INC, 't/lib';
5 }
6 chdir 't';
7
8 use Test::More tests => 6;
9
10 use ExtUtils::MakeMaker;
11 use ExtUtils::MM_VMS;
12
13 sub test_filter {
14     my($text, $vms_text) = @_;
15     
16     local $Test::Builder::Level = $Test::Builder::Level + 1;
17     is( ExtUtils::MM_Any->maketext_filter($text), $text,     'default filter' );
18     is( ExtUtils::MM_VMS->maketext_filter($text), $vms_text, 'VMS filter' );
19 }
20
21
22 # VMS filter puts a space after the target
23 test_filter(<<'END', <<'VMS');
24 foo: bar
25     thing: splat
26 END
27 foo : bar
28     thing: splat
29 VMS
30
31
32 # And it does it for all targets
33 test_filter(<<'END', <<'VMS');
34 foo: bar
35     thing: splat
36
37 up: down
38     yes
39 END
40 foo : bar
41     thing: splat
42
43 up : down
44     yes
45 VMS
46
47
48 # And it doesn't mess with macros
49 test_filter(<<'END', <<'VMS');
50 CLASS=Foo: Bar
51
52 target: stuff
53     $(PROGRAM) And::Stuff
54 END
55 CLASS=Foo: Bar
56
57 target : stuff
58     $(PROGRAM) And::Stuff
59 VMS