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