[p5sagit/p5-mst-13.2.git] / lib / ExtUtils / t / MM_VMS.t

#!/usr/bin/perl -w

BEGIN {
    if( $ENV{PERL_CORE} ) {
        chdir 't' if -d 't';
        @INC = '../lib';
    }
    else {
        unshift @INC, 't/lib';
    }
}
chdir 't';

BEGIN {
    @Methods = (qw(wraplist
                   rootdir
                   ext
                   guess_name
                   find_perl
                   path
                   maybe_command
                   maybe_command_in_dirs
                   perl_script
                   file_name_is_absolute
                   replace_manpage_separator
                   init_others
                   constants
                   cflags
                   const_cccmd
                   pm_to_blib
                   tool_autosplit
                   tool_xsubpp
                   xsubpp_version
                   tools_other
                   dist
                   c_o
                   xs_c
                   xs_o
                   top_targets
                   dlsyms
                   dynamic_lib
                   dynamic_bs
                   static_lib
                   manifypods
                   processPL
                   installbin
                   subdir_x
                   clean
                   realclean
                   dist_basics
                   dist_core
                   dist_dir
                   dist_test
                   install
                   perldepend
                   makefile
                   test
                   test_via_harness
                   test_via_script
                   makeaperl
                   nicetext
                  ));
}

BEGIN {
    use Test::More;
    if ($^O eq 'VMS') {
        plan( tests => @Methods + 1 );
    }
    else {
        plan( skip_all => "This is not VMS" );
    }
}

use_ok( 'ExtUtils::MM_VMS' );

foreach my $meth (@Methods) {
    can_ok( 'ExtUtils::MM_VMS', $meth);
}
Commit	Line	Data
39234879	1	#!/usr/bin/perl -w
7743ad25	2
7743ad25	3	BEGIN {
39234879	4	if( $ENV{PERL_CORE} ) {
	5	chdir 't' if -d 't';
	6	@INC = '../lib';
	7	}
f6d6199c	8	else {
	9	unshift @INC, 't/lib';
	10	}
7743ad25	11	}
39234879	12	chdir 't';
7743ad25	13
7743ad25	14	BEGIN {
f6d6199c	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 {
7743ad25	66	use Test::More;
7743ad25	67	if ($^O eq 'VMS') {
f6d6199c	68	plan( tests => @Methods + 1 );
7743ad25	69	}
7743ad25	70	else {
8881896e	71	plan( skip_all => "This is not VMS" );
7743ad25	72	}
	73	}
	74
f6d6199c	75	use_ok( 'ExtUtils::MM_VMS' );
7743ad25	76
f6d6199c	77	foreach my $meth (@Methods) {
	78	can_ok( 'ExtUtils::MM_VMS', $meth);
	79	}