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