Commit | Line | Data |
---|---|---|
39234879 | 1 | #!/usr/bin/perl -w |
7743ad25 | 2 | |
3 | BEGIN { | |
39234879 | 4 | if( $ENV{PERL_CORE} ) { |
5 | chdir 't' if -d 't'; | |
6 | @INC = '../lib'; | |
7 | } | |
f6d6199c | 8 | else { |
9 | unshift @INC, 't/lib'; | |
10 | } | |
7743ad25 | 11 | } |
39234879 | 12 | chdir 't'; |
7743ad25 | 13 | |
14 | BEGIN { | |
f6d6199c | 15 | @Methods = (qw(wraplist |
16 | rootdir | |
17 | ext | |
18 | guess_name | |
19 | find_perl | |
20 | path | |
21 | maybe_command | |
f6d6199c | 22 | perl_script |
23 | file_name_is_absolute | |
24 | replace_manpage_separator | |
25 | init_others | |
26 | constants | |
27 | cflags | |
28 | const_cccmd | |
29 | pm_to_blib | |
30 | tool_autosplit | |
31 | tool_xsubpp | |
f6d6199c | 32 | tools_other |
33 | dist | |
34 | c_o | |
35 | xs_c | |
36 | xs_o | |
37 | top_targets | |
38 | dlsyms | |
39 | dynamic_lib | |
40 | dynamic_bs | |
41 | static_lib | |
42 | manifypods | |
43 | processPL | |
44 | installbin | |
45 | subdir_x | |
46 | clean | |
47 | realclean | |
48 | dist_basics | |
49 | dist_core | |
479d2113 | 50 | distdir |
f6d6199c | 51 | dist_test |
52 | install | |
53 | perldepend | |
54 | makefile | |
55 | test | |
56 | test_via_harness | |
57 | test_via_script | |
58 | makeaperl | |
59 | nicetext | |
60 | )); | |
61 | } | |
62 | ||
63 | BEGIN { | |
7743ad25 | 64 | use Test::More; |
65 | if ($^O eq 'VMS') { | |
f6d6199c | 66 | plan( tests => @Methods + 1 ); |
7743ad25 | 67 | } |
7743ad25 | 68 | else { |
8881896e | 69 | plan( skip_all => "This is not VMS" ); |
7743ad25 | 70 | } |
71 | } | |
72 | ||
f6d6199c | 73 | use_ok( 'ExtUtils::MM_VMS' ); |
7743ad25 | 74 | |
f6d6199c | 75 | foreach my $meth (@Methods) { |
76 | can_ok( 'ExtUtils::MM_VMS', $meth); | |
77 | } |