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