[perl5.git] / t / op / yadayada.t

#!./perl

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
    require './test.pl';
}

use strict;

plan 1;

my $err = "Unimplemented at $0 line " . ( __LINE__ + 2 ) . ".\n";

eval { ... };

is $@, $err;
Commit	Line	Data
be25f609	1	#!./perl
be25f609	2
341b7876 NC	3	BEGIN {
	4	chdir 't' if -d 't';
	5	@INC = '../lib';
	6	require './test.pl';
	7	}
be25f609	8
341b7876 NC	9	use strict;
341b7876 NC	10
678ae90b	11	plan 1;
341b7876 NC	12
341b7876 NC	13	my $err = "Unimplemented at $0 line " . ( __LINE__ + 2 ) . ".\n";
be25f609	14
	15	eval { ... };
	16
341b7876	17	is $@, $err;