1#!/usr/bin/perl -w
2
3BEGIN {
4    if( $ENV{PERL_CORE} ) {
5        chdir 't' if -d 't';
6        @INC = '../lib';
7    }
8    else {
9        unshift @INC, 't/lib';
10    }
11}
12chdir 't';
13
14BEGIN {
15    @Methods = (qw(wraplist
16                   rootdir
17                   ext
18                   guess_name
19                   find_perl
20                   path
21                   maybe_command
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
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
50                   distdir
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 {
64    use Test::More;
65    if ($^O eq 'VMS') {
66        plan( tests => @Methods + 1 );
67    }
68    else {
69        plan( skip_all => "This is not VMS" );
70    }
71}
72
73use_ok( 'ExtUtils::MM_VMS' );
74
75foreach my $meth (@Methods) {
76    can_ok( 'ExtUtils::MM_VMS', $meth);
77}
78