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     else {
   9         unshift @INC, 't/lib';
  10     }
  11 }
  12 chdir 't';
  13
  14 BEGIN {
  15     @Methods = (qw(wraplist
  16                    rootdir
  17                    ext
  18                    guess_name
  19                    find_perl
  20                    path
  21                    maybe_command
  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
  51                    distdir
  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 {
  65     use Test::More;
  66     if ($^O eq 'VMS') {
  67         plan( tests => @Methods + 1 );
  68     }
  69     else {
  70         plan( skip_all => "This is not VMS" );
  71     }
  72 }
  73
  74 use_ok( 'ExtUtils::MM_VMS' );
  75
  76 foreach my $meth (@Methods) {
  77     can_ok( 'ExtUtils::MM_VMS', $meth);
  78 }