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 | |
32 | xsubpp_version | |
33 | tools_other | |
34 | dist | |
35 | c_o | |
36 | xs_c | |
37 | xs_o | |
38 | top_targets | |
39 | dlsyms | |
40 | dynamic_lib | |
41 | dynamic_bs | |
42 | static_lib | |
43 | manifypods | |
44 | processPL | |
45 | installbin | |
46 | subdir_x | |
47 | clean | |
48 | realclean | |
49 | dist_basics | |
50 | dist_core | |
479d2113 | 51 | distdir |
f6d6199c | 52 | dist_test |
53 | install | |
54 | perldepend | |
55 | makefile | |
56 | test | |
57 | test_via_harness | |
58 | test_via_script | |
59 | makeaperl | |
60 | nicetext | |
61 | )); | |
62 | } | |
63 | ||
64 | BEGIN { | |
7743ad25 | 65 | use Test::More; |
66 | if ($^O eq 'VMS') { | |
f6d6199c | 67 | plan( tests => @Methods + 1 ); |
7743ad25 | 68 | } |
7743ad25 | 69 | else { |
8881896e | 70 | plan( skip_all => "This is not VMS" ); |
7743ad25 | 71 | } |
72 | } | |
73 | ||
f6d6199c | 74 | use_ok( 'ExtUtils::MM_VMS' ); |
7743ad25 | 75 | |
f6d6199c | 76 | foreach my $meth (@Methods) { |
77 | can_ok( 'ExtUtils::MM_VMS', $meth); | |
78 | } |