ext/ExtUtils-MakeMaker/t/MM_VMS.t

   1 #!/usr/bin/perl -w
   2
   3 BEGIN {
   4     unshift @INC, 't/lib';
   5 }
   6 chdir 't';
   7
   8 BEGIN {
   9     @Methods = (qw(wraplist
  10                    rootdir
  11                    ext
  12                    guess_name
  13                    find_perl
  14                    path
  15                    maybe_command
  16                    perl_script
  17                    file_name_is_absolute
  18                    replace_manpage_separator
  19                    init_others
  20                    constants
  21                    cflags
  22                    const_cccmd
  23                    pm_to_blib
  24                    tool_autosplit
  25                    tool_xsubpp
  26                    tools_other
  27                    dist
  28                    c_o
  29                    xs_c
  30                    xs_o
  31                    top_targets
  32                    dlsyms
  33                    dynamic_lib
  34                    dynamic_bs
  35                    static_lib
  36                    manifypods
  37                    processPL
  38                    installbin
  39                    subdir_x
  40                    clean
  41                    realclean
  42                    dist_basics
  43                    dist_core
  44                    distdir
  45                    dist_test
  46                    install
  47                    perldepend
  48                    makefile
  49                    test
  50                    test_via_harness
  51                    test_via_script
  52                    makeaperl
  53                   ));
  54 }
  55
  56 BEGIN {
  57     use Test::More;
  58     if ($^O eq 'VMS') {
  59         plan( tests => @Methods + 1 );
  60     }
  61     else {
  62         plan( skip_all => "This is not VMS" );
  63     }
  64 }
  65
  66 use_ok( 'ExtUtils::MM_VMS' );
  67
  68 foreach my $meth (@Methods) {
  69     can_ok( 'ExtUtils::MM_VMS', $meth);
  70 }