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