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 | } |
7743ad25 |
8 | } |
39234879 |
9 | chdir 't'; |
7743ad25 |
10 | |
11 | BEGIN { |
12 | use Test::More; |
13 | if ($^O eq 'VMS') { |
14 | plan( tests => 13 ); # 49 or more some day... |
15 | } |
16 | # MM_VMS does a C<use VMS::Filespec;> but that module |
17 | # is unlikely to be installed on non VMS machines |
18 | # (although not impossible: no xs, no sys$parse(), pure perl). |
19 | else { |
8881896e |
20 | plan( skip_all => "This is not VMS" ); |
7743ad25 |
21 | } |
22 | } |
23 | |
24 | BEGIN { |
25 | use_ok( 'ExtUtils::MM_VMS' ); |
26 | } |
27 | |
28 | # Those methods that can be ascertained to be defined(), albeit with |
29 | # no passed arguments, are so "tested". Unfortunately, we omit |
30 | # testing of methods that need non-trivial arguments. |
31 | # Thus leaving test coverage at far less than 100% (patches welcome). |
32 | # The lines '#' commented out below are tests that failed with |
33 | # the empty arguments. |
34 | |
35 | ok(defined(ExtUtils::MM_VMS::wraplist()),'wraplist defined'); |
36 | ok(defined(ExtUtils::MM_VMS::rootdir()),'rootdir defined'); |
37 | ok(!defined(ExtUtils::MM_VMS::ext()),'ext() not defined'); |
38 | ok(defined(ExtUtils::MM_VMS::guess_name()),'guess_name defined'); |
39 | #ok(!defined(ExtUtils::MM_VMS::find_perl()),' defined'); |
40 | ok(defined(ExtUtils::MM_VMS::path()),'path defined'); |
41 | #ok(defined(ExtUtils::MM_VMS::maybe_command()),' defined'); |
42 | #ok(defined(ExtUtils::MM_VMS::maybe_command_in_dirs()),' defined'); |
43 | #ok(defined(ExtUtils::MM_VMS::perl_script()),'perl_script defined'); |
44 | #ok(defined(ExtUtils::MM_VMS::file_name_is_absolute()),'file_name_is_absolute defined'); |
45 | #ok(defined(ExtUtils::MM_VMS::replace_manpage_separator()),'replace_manpage_separator defined'); |
46 | #ok(defined(ExtUtils::MM_VMS::init_others()),'init_others defined'); |
47 | #ok(defined(ExtUtils::MM_VMS::constants()),'constants defined'); |
48 | #ok(defined(ExtUtils::MM_VMS::cflags()),'cflags defined'); |
49 | #ok(defined(ExtUtils::MM_VMS::const_cccmd()),'const_cccmd defined'); |
50 | #ok(defined(ExtUtils::MM_VMS::pm_to_blib()),'pm_to_blib defined'); |
51 | ok(defined(ExtUtils::MM_VMS::tool_autosplit()),'tool_autosplit defined'); |
52 | #ok(defined(ExtUtils::MM_VMS::tool_xsubpp()),'tool_xsubpp defined'); |
53 | #ok(defined(ExtUtils::MM_VMS::xsubpp_version()),'xsubpp_version defined'); |
54 | #ok(defined(ExtUtils::MM_VMS::tools_other()),'tools_other defined'); |
55 | #ok(defined(ExtUtils::MM_VMS::dist()),'dist defined'); |
56 | #ok(defined(ExtUtils::MM_VMS::c_o()),'c_o defined'); |
57 | #ok(defined(ExtUtils::MM_VMS::xs_c()),'xs_c defined'); |
58 | #ok(defined(ExtUtils::MM_VMS::xs_o()),'xs_o defined'); |
59 | #ok(defined(ExtUtils::MM_VMS::top_targets()),'top_targets defined'); |
60 | #ok(defined(ExtUtils::MM_VMS::dlsyms()),'dlsyms defined'); |
61 | #ok(defined(ExtUtils::MM_VMS::dynamic_lib()),'dynamic_lib defined'); |
62 | #ok(defined(ExtUtils::MM_VMS::dynamic_bs()),'dynamic_bs defined'); |
63 | #ok(defined(ExtUtils::MM_VMS::static_lib()),'static_lib defined'); |
64 | #ok(defined(ExtUtils::MM_VMS::manifypods({})),'manifypods defined'); |
65 | #ok(defined(ExtUtils::MM_VMS::processPL()),'processPL defined'); |
66 | ok(defined(ExtUtils::MM_VMS::installbin()),'installbin defined'); |
67 | #ok(defined(ExtUtils::MM_VMS::subdir_x()),'subdir_x defined'); |
68 | #ok(defined(ExtUtils::MM_VMS::clean()),'clean defined'); |
69 | #ok(defined(ExtUtils::MM_VMS::realclean()),'realclean defined'); |
70 | ok(defined(ExtUtils::MM_VMS::dist_basics()),'dist_basics defined'); |
71 | ok(defined(ExtUtils::MM_VMS::dist_core()),'dist_core defined'); |
72 | ok(defined(ExtUtils::MM_VMS::dist_dir()),'dist_dir defined'); |
73 | ok(defined(ExtUtils::MM_VMS::dist_test()),'dist_test defined'); |
74 | #ok(defined(ExtUtils::MM_VMS::install()),'install defined'); |
75 | #ok(defined(ExtUtils::MM_VMS::perldepend()),'perldepend defined'); |
76 | ok(defined(ExtUtils::MM_VMS::makefile()),'makefile defined'); |
77 | #ok(defined(ExtUtils::MM_VMS::test()),'test defined'); |
78 | #ok(defined(ExtUtils::MM_VMS::test_via_harness()),'test_via_harness defined'); |
79 | #ok(defined(ExtUtils::MM_VMS::test_via_script()),'test_via_script defined'); |
80 | #ok(defined(ExtUtils::MM_VMS::makeaperl()),'makeaperl defined'); |
81 | #ok(!defined(ExtUtils::MM_VMS::nicetext()),'nicetext() not defined'); |
82 | |
83 | |