[p5sagit/p5-mst-13.2.git] / t / op / lex.t

#!perl -w
use strict;

require './test.pl';

plan(tests => 2);

{
    no warnings 'deprecated';
    print <<;   # Yow!
ok 1

    # previous line intentionally left blank.

    my $yow = "ok 2";
    print <<;   # Yow!
$yow

    # previous line intentionally left blank.
}

curr_test(3);
Commit	Line	Data
f3365a56	1	#!perl -w
	2	use strict;
	3
	4	require './test.pl';
	5
	6	plan(tests => 2);
	7
	8	{
	9	no warnings 'deprecated';
	10	print <<; # Yow!
	11	ok 1
	12
	13	# previous line intentionally left blank.
	14
	15	my $yow = "ok 2";
	16	print <<; # Yow!
	17	$yow
	18
	19	# previous line intentionally left blank.
	20	}
	21
	22	curr_test(3);