File: maketext_filter.t

package info (click to toggle)
perl 5.32.1-4%2Bdeb11u3
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 113,408 kB
  • sloc: ansic: 641,443; perl: 491,650; sh: 70,967; pascal: 8,354; cpp: 4,103; xml: 2,428; makefile: 2,237; yacc: 1,173; lisp: 1
file content (59 lines) | stat: -rw-r--r-- 905 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
#!/usr/bin/perl -w

BEGIN {
    unshift @INC, 't/lib';
}
chdir 't';

use Test::More tests => 6;

use ExtUtils::MakeMaker;
use ExtUtils::MM_VMS;

sub test_filter {
    my($text, $vms_text) = @_;

    local $Test::Builder::Level = $Test::Builder::Level + 1;
    is( ExtUtils::MM_Any->maketext_filter($text), $text,     'default filter' );
    is( ExtUtils::MM_VMS->maketext_filter($text), $vms_text, 'VMS filter' );
}


# VMS filter puts a space after the target
test_filter(<<'END', <<'VMS');
foo: bar
    thing: splat
END
foo : bar
    thing: splat
VMS


# And it does it for all targets
test_filter(<<'END', <<'VMS');
foo: bar
    thing: splat

up: down
    yes
END
foo : bar
    thing: splat

up : down
    yes
VMS


# And it doesn't mess with macros
test_filter(<<'END', <<'VMS');
CLASS=Foo: Bar

target: stuff
    $(PROGRAM) And::Stuff
END
CLASS=Foo: Bar

target : stuff
    $(PROGRAM) And::Stuff
VMS