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

#!./perl

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 = 'a';

do './re/fold_grind.pl';
print STDERR "$@\n" if $@;
print STDERR "$!\n" if $!;

1;

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