[perl5.git] / t / re / fold_grind_aa.t

#!./perl

# Call fold_grind with /aa

use strict;
use warnings;
no warnings 'once';

BEGIN {
    chdir 't' if -d 't';
    require './test.pl';
    set_up_inc('../lib');
    require './loc_tools.pl';
}

$::TEST_CHUNK = 'aa';

do './re/fold_grind.pl';
print STDERR "$@\n" if $@;
print STDERR "$!\n" if $!;
Commit	Line	Data
55e8b15f KW	1	#!./perl
	2
	3	# Call fold_grind with /aa
	4
	5	use strict;
	6	use warnings;
	7	no warnings 'once';
	8
	9	BEGIN {
	10	chdir 't' if -d 't';
	11	require './test.pl';
55e8b15f	12	set_up_inc('../lib');
8c892c9b	13	require './loc_tools.pl';
55e8b15f KW	14	}
	15
	16	$::TEST_CHUNK = 'aa';
	17
	18	do './re/fold_grind.pl';
	19	print STDERR "$@\n" if $@;
	20	print STDERR "$!\n" if $!;