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                    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 {
  66     use Test::More;
  67     if ($^O eq 'VMS') {
  68         plan( tests => @Methods + 1 );
  69     }
  70     else {
  71         plan( skip_all => "This is not VMS" );
  72     }
  73 }
  74
  75 use_ok( 'ExtUtils::MM_VMS' );
  76
  77 foreach my $meth (@Methods) {
  78     can_ok( 'ExtUtils::MM_VMS', $meth);
  79 }