lib/ExtUtils/t/MM_VMS.t

   1 #!/usr/bin/perl -w
   2
   3 BEGIN {
   4     if( $ENV{PERL_CORE} ) {
   5         chdir 't' if -d 't';
   6         @INC = '../lib';
   7     }
   8 }
   9 chdir 't';
  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 {
  20         plan( skip_all => "This is not VMS" );
  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