This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
stop lib/perl5db.t failure if Term::ReadLine::Perl is installed
[perl5.git] / lib / perl5db.t
CommitLineData
635f2c9e
RGS
1#!/usr/bin/perl
2
3BEGIN {
4 chdir 't' if -d 't';
5 @INC = '../lib';
6 require './test.pl';
7}
8
9use strict;
10use warnings;
11
12BEGIN {
13 if (!-c "/dev/null") {
14 print "1..0 # Skip: no /dev/null\n";
15 exit 0;
16 }
9366364f
AT
17 if (!-c "/dev/tty") {
18 print "1..0 # Skip: no /dev/tty\n";
19 exit 0;
20 }
635f2c9e
RGS
21}
22
23plan(1);
24
25sub rc {
26 open RC, ">", ".perldb" or die $!;
27 print RC @_;
28 close(RC);
3e5e55bd
DM
29 # overly permissive perms gives "Must not source insecure rcfile"
30 # and hangs at the DB(1> prompt
31 chmod 0644, ".perldb";
635f2c9e
RGS
32}
33
cd4eab35
RGS
34my $target = '../lib/perl5db/t/eval-line-bug';
35
635f2c9e
RGS
36rc(
37 qq|
cd4eab35 38 &parse_options("NonStop=0 TTY=db.out LineInfo=db.out");
635f2c9e
RGS
39 \n|,
40
41 qq|
42 sub afterinit {
43 push(\@DB::typeahead,
635f2c9e 44 'b 23',
cd4eab35
RGS
45 'n',
46 'n',
47 'n',
48 'c', # line 23
49 'n',
50 "p \\\@{'main::_<$target'}",
635f2c9e
RGS
51 'q',
52 );
53 }\n|,
54);
55
c18cf8ce
SR
56{
57 local $ENV{PERLDB_OPTS} = "ReadLine=0";
58 runperl(switches => [ '-d' ], progfile => $target);
59}
635f2c9e
RGS
60
61my $contents;
62{
63 local $/;
64 open I, "<", 'db.out' or die $!;
65 $contents = <I>;
66 close(I);
67}
68
cd4eab35 69like($contents, qr/sub factorial/,
635f2c9e
RGS
70 'The ${main::_<filename} variable in the debugger was not destroyed'
71);
72
73# clean up.
74
75END {
cd4eab35 76 unlink qw(.perldb db.out);
635f2c9e 77}