[p5sagit/p5-mst-13.2.git] / t / comp / cpp.t

#!./perl

# $RCSfile: cpp.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:18 $

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
    $ENV{PERL5LIB} = '../lib';
}

use Config;
if ( ($Config{'cppstdin'} =~ /\bcppstdin\b/) &&
     ! -x $Config{'binexp'} . "/cppstdin" ) {
    print "1..0 # Skip: \$Config{cppstdin} unavailable\n";
    exit; 		# Cannot test till after install, alas.
}

system qq{$^X -"P" "comp/cpp.aux"};
Commit	Line	Data
16d20bd9	1	#!./perl
8d063cd8	2
79072805	3	# $RCSfile: cpp.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:18 $
68decaef	4
16d20bd9	5	BEGIN {
16d20bd9	6	chdir 't' if -d 't';
20822f61	7	@INC = '../lib';
59910836	8	$ENV{PERL5LIB} = '../lib';
68decaef	9	}
8d063cd8	10
16d20bd9	11	use Config;
68727c7f	12	if ( ($Config{'cppstdin'} =~ /\bcppstdin\b/) &&
68727c7f	13	! -x $Config{'binexp'} . "/cppstdin" ) {
45c0de28	14	print "1..0 # Skip: \$Config{cppstdin} unavailable\n";
16d20bd9	15	exit; # Cannot test till after install, alas.
16d20bd9	16	}
8d063cd8	17
1b24ed4b	18	system qq{$^X -"P" "comp/cpp.aux"};