This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade to ExtUtils::MakeMaker 6.12.
[perl5.git] / lib / ExtUtils / t / MM_VMS.t
CommitLineData
39234879 1#!/usr/bin/perl -w
7743ad25
JH
2
3BEGIN {
39234879
MS
4 if( $ENV{PERL_CORE} ) {
5 chdir 't' if -d 't';
6 @INC = '../lib';
7 }
f6d6199c
MS
8 else {
9 unshift @INC, 't/lib';
10 }
7743ad25 11}
39234879 12chdir 't';
7743ad25
JH
13
14BEGIN {
f6d6199c
MS
15 @Methods = (qw(wraplist
16 rootdir
17 ext
18 guess_name
19 find_perl
20 path
21 maybe_command
f6d6199c
MS
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
MS
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
MS
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
63BEGIN {
7743ad25
JH
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
JH
70 }
71}
72
f6d6199c 73use_ok( 'ExtUtils::MM_VMS' );
7743ad25 74
f6d6199c
MS
75foreach my $meth (@Methods) {
76 can_ok( 'ExtUtils::MM_VMS', $meth);
77}