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