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

#!/usr/bin/perl -w

BEGIN {
    unshift @INC, 't/lib';
}
chdir 't';

BEGIN {
    @Methods = (qw(wraplist
                   rootdir
                   ext
                   guess_name
                   find_perl
                   path
                   maybe_command
                   perl_script
                   file_name_is_absolute
                   replace_manpage_separator
                   init_others
                   constants
                   cflags
                   const_cccmd
                   pm_to_blib
                   tool_autosplit
                   tool_xsubpp
                   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
                   distdir
                   dist_test
                   install
                   perldepend
                   makefile
                   test
                   test_via_harness
                   test_via_script
                   makeaperl
                  ));
}

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 {
b78fd716	4	unshift @INC, 't/lib';
7743ad25	5	}
39234879	6	chdir 't';
7743ad25	7
7743ad25	8	BEGIN {
f6d6199c	9	@Methods = (qw(wraplist
	10	rootdir
	11	ext
	12	guess_name
	13	find_perl
	14	path
	15	maybe_command
f6d6199c	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
f6d6199c	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
479d2113	44	distdir
f6d6199c	45	dist_test
	46	install
	47	perldepend
	48	makefile
	49	test
	50	test_via_harness
	51	test_via_script
	52	makeaperl
f6d6199c	53	));
	54	}
	55
	56	BEGIN {
7743ad25	57	use Test::More;
7743ad25	58	if ($^O eq 'VMS') {
f6d6199c	59	plan( tests => @Methods + 1 );
7743ad25	60	}
7743ad25	61	else {
8881896e	62	plan( skip_all => "This is not VMS" );
7743ad25	63	}
	64	}
	65
f6d6199c	66	use_ok( 'ExtUtils::MM_VMS' );
7743ad25	67
f6d6199c	68	foreach my $meth (@Methods) {
	69	can_ok( 'ExtUtils::MM_VMS', $meth);
	70	}