Show quoted textcpan> install Enbugger::ebug
Running install for module 'Enbugger::ebug'
JJORE/Enbugger-2.016.tar.gz
Has already been unwrapped into directory /home/feelsafe/.local/share/.cpan/build/Enbugger-2.016-qaWEhu
JJORE/Enbugger-2.016.tar.gz
Has already been prepared
JJORE/Enbugger-2.016.tar.gz
Has already been made
Running make test
PERL_DL_NONLAZY=1 "/usr/bin/perl" "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/10load.t .............. ok
t/11load.t .............. ok
t/20error.t .............
Loading DB routines from perl5db.pl version 1.44
Editor support available.
Enter h or 'h h' for help, or 'man perldebug' for more help.
Received signal An exception.
at t/20error.t line 42.
Enbugger::OnError::(/home/feelsafe/.local/share/.cpan/build/Enbugger-2.016-qaWEhu/blib/lib/Enbugger/OnError.pm:107):
107: DB::DB();
auto(-2) DB<1> main::is( "$@", "An exception.\n")
t/20error.t ............. 1/1
auto(-1) DB<2> q
t/20error.t ............. ok
t/21error.t ............. ok
t/22signal.t ............
Loading DB routines from perl5db.pl version 1.44
Editor support available.
Enter h or 'h h' for help, or 'man perldebug' for more help.
Received signal USR1 at t/22signal.t line 50.
eval {...} called at t/22signal.t line 50
Enbugger::OnError::(/home/feelsafe/.local/share/.cpan/build/Enbugger-2.016-qaWEhu/blib/lib/Enbugger/OnError.pm:107):
107: DB::DB();
auto(-2) DB<1> main::is( "$@", 'USR1')
t/22signal.t ............ 1/1
auto(-1) DB<2> q
t/22signal.t ............ ok
t/30break.t ............. #!perl
# COPYRIGHT AND LICENCE
#
# Copyright (C) 2014 Joshua ben Jore.
#
# This program is distributed WITHOUT ANY WARRANTY, including but not
# limited to the implied warranties of merchantability or fitness for
# a particular purpose.
#
# The program is free software. You may distribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation (either version 2 or any later version)
# and the Perl Artistic License as published by O’Reilly Media, Inc.
# Please open the files named gpl-2.0.txt and Artistic for a copy of
# these licenses.
use strict;
use warnings;
use Getopt::Long qw( GetOptions );
use vars qw( $Caught $Value );
use lib qw( ./t );
BEGIN {
require 'reset_perms.pl';
=head1 DESCRIPTION
This test attempts to run the perl5db debugger, break on a line, then
tests that the break occurred where expected. This tests both that
%{"_<30break.pl"} with L magic and @{"_<30break.pl"} with dual-var
strings has been created.
The output of this program can be read by another program and used in
a test.
=head1 OPTIONS
=over
=item --noimport
Enbugger will be loaded without calling C<< ->import >>.
=item --import ELT
Adds an item to the C<< ->import >> argument list.
=item --help
Runs perldoc on this program.
=item --load_perl5db
After loading Enbugger, C<< Enbugger->load_perl5db >> will also be called.
=back
=cut
$ENV{PERLDB_OPTS} = 'noTTY';
# Option parsing.
my $import = 1;
my @import = ();
my $loadPerl5Db = 0;
GetOptions(
help => sub { exec {'perldoc'} 'perldoc', $0 },
noimport => sub { $import = 0 },
'import=s' => \@import,
load_perl5db => \ $loadPerl5Db,
)
or exec {'perldoc'} 'perldoc', $0;
# Promote some options into constants.
require constant;
constant->import( LoadPerl5Db => !! $loadPerl5Db );
# The test is whether the debugger runs and is controlled by my
# test commands here.
{
no warnings 'once';
@DB::typeahead = (
'l 1-200',
'b 146',
'c',
'$main::Caught = $main::Value',
'c',
'q'
);
}
# All our output will go to *OUT. If this program was given a
# parameter, we accept it as file that we should write our output too.
{
my ( $file ) = shift @ARGV;
if ( defined $file ) {
open OUT, '>', $file
or die "Can't open $file for writing: $!";
}
else {
*OUT = *STDOUT;
}
# OUTPUT is HOT.
select *OUT;
$| = 1;
# Things written to STDERR should also go to our single *OUT.
no warnings 'once';
*STDERR = $DB::OUT = $DB::LINEINFO = *OUT;
}
# Look to see if the debugger is on. Before I go and load
# Enbugger, I figure I can at least count on being able to examine
# $^P to see if we were started with the -d debugger flag.
constant->import( UnderTheDebugger => !! $^P );
# Load Enbugger and completely knacker our process. This little
# snippet used to just be a static `use Enbugger;' but I moved it
# up here when it became obvious that I wanted to optionally avoid
# importing anything.
require Enbugger;
if ( $import ) {
Enbugger->import( @import );
}
}
# Commands executed here:
# > l 1-200
# > b 146
# > c
Enbugger->stop;
$Value = 0;
$Value = 1;
$Value = 2;
$Value = 3;
# Commands executed here when the breakpoint works.
# > $main::Caught = $main::Value
# > c
$Value = 4;
$Value = 5;
$Value = 6;
$Value = 7;
$Value = 8;
$Value = 9;
$Value = 0;
$Caught = 'undef' if ! defined $Caught;
print "\$Caught = $main::Caught.\n";
# Commands executed here:
# > q
main::(t/30break.pl:138): $Value = 0;
Failed to run /usr/bin/perl -Mblib t/30break.pl /tmp/ZPFDcF0PKC: signal: 6 at t/Test/Enbugger.pm line 104.
# Looks like your test exited with 255 before it could output anything.
t/30break.t ............. Dubious, test returned 255 (wstat 65280, 0xff00)
Failed 24/24 subtests
t/nytprof.t ............. # report_file: t/nytprof.out
# report_dir: t/nytprof
Can't exec "/usr/bin/nytprofcsv": No such file or directory at t/nytprof.t line 75.
# nytprofcsv: nytprofcsv
t/nytprof.t ............. ok
t/release-pod-syntax.t .. skipped: these tests are for release candidate testing
t/trepantest.t .......... skipped: Skipped because Devel::Trepan isn't installed
Test Summary Report
-------------------
t/30break.t (Wstat: 65280 Tests: 0 Failed: 0)
Non-zero exit status: 255
Parse errors: Bad plan. You planned 24 tests but ran 0.
Files=9, Tests=31, 34 wallclock secs ( 0.07 usr 0.02 sys + 33.39 cusr 0.37 csys = 33.85 CPU)
Result: FAIL
Failed 1/9 test programs. 0/31 subtests failed.
Makefile:1110: recipe for target 'test_dynamic' failed
make: *** [test_dynamic] Error 255
JJORE/Enbugger-2.016.tar.gz
/usr/bin/make test -- NOT OK
//hint// to see the cpan-testers results for installing this module, try:
reports JJORE/Enbugger-2.016.tar.gz
Failed during this command:
JJORE/Enbugger-2.016.tar.gz : make_test NO
If I could supply more info - contact me.
