[perl5.git] / lib / perl5db.t

#!/usr/bin/perl

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

use strict;
use warnings;

BEGIN {
    if (!-c "/dev/null") {
	print "1..0 # Skip: no /dev/null\n";
	exit 0;
    }
}

plan(1);

sub rc {
    open RC, ">", ".perldb" or die $!;
    print RC @_;
    close(RC);
}

rc(
    qq|
    &parse_options("NonStop=0 TTY=/dev/null LineInfo=db.out");
    \n|,

    qq|
    sub afterinit {
	push(\@DB::typeahead,
	    "DB::print_lineinfo(\@{'main::_<perl5db/eval-line-bug'})",
	    'b 23',
	    'c',
	    'q',
	);
    }\n|,
);

runperl(switches => [ '-d' ], progfile => '../lib/perl5db/eval-line-bug');

my $contents;
{
    local $/;
    open I, "<", 'db.out' or die $!;
    $contents = <I>;
    close(I);
}

like($contents, qr/factorial/,
    'The ${main::_<filename} variable in the debugger was not destroyed'
);

# clean up.

END {
    unlink '.perldb', 'db.out';
}
Commit	Line	Data
635f2c9e RGS	1	#!/usr/bin/perl
	2
	3	BEGIN {
	4	chdir 't' if -d 't';
	5	@INC = '../lib';
	6	require './test.pl';
	7	}
	8
	9	use strict;
	10	use warnings;
	11
	12	BEGIN {
	13	if (!-c "/dev/null") {
	14	print "1..0 # Skip: no /dev/null\n";
	15	exit 0;
	16	}
	17	}
	18
	19	plan(1);
	20
	21	sub rc {
	22	open RC, ">", ".perldb" or die $!;
	23	print RC @_;
	24	close(RC);
	25	}
	26
	27	rc(
	28	qq\|
	29	&parse_options("NonStop=0 TTY=/dev/null LineInfo=db.out");
	30	\n\|,
	31
	32	qq\|
	33	sub afterinit {
	34	push(\@DB::typeahead,
	35	"DB::print_lineinfo(\@{'main::_<perl5db/eval-line-bug'})",
	36	'b 23',
	37	'c',
	38	'q',
	39	);
	40	}\n\|,
	41	);
	42
	43	runperl(switches => [ '-d' ], progfile => '../lib/perl5db/eval-line-bug');
	44
	45	my $contents;
	46	{
	47	local $/;
	48	open I, "<", 'db.out' or die $!;
	49	$contents = <I>;
	50	close(I);
	51	}
	52
	53	like($contents, qr/factorial/,
	54	'The ${main::_<filename} variable in the debugger was not destroyed'
	55	);
	56
	57	# clean up.
	58
	59	END {
	60	unlink '.perldb', 'db.out';
	61	}