Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Work around a couple of smoker failures. Get ready for release 0.46

  • Loading branch information...
commit ad242bccb86277dfe76f034d17b9699d024f7836 1 parent bbb46ef
Rocky Bernstein authored
View
23 ChangeLog
@@ -1,3 +1,26 @@
+2012-10-09 Rocky Bernstein <rocky@cpan.org>
+
+ * ChangeLog, lib/Devel/Trepan/Version.pm, t/20test-eval.t,
+ t/data/action.cmd, t/data/eval2.right: Work around a couple of
+ smoker failures. Get ready for release 0.46
+
+2012-10-02 Rocky Bernstein <rocky@cpan.org>
+
+ * MANIFEST, example/action-bug.pl: Forgot to add new test code.
+
+2012-10-02 Rocky Bernstein <rocky@cpan.org>
+
+ * MANIFEST, lib/Devel/Trepan.pm, lib/Devel/Trepan/DB.pm,
+ t/10test-condition.t, t/10test-io-tcpserver.t, t/20test-action.t,
+ t/data/action.cmd, t/data/action.right: DB.pm: One more place to
+ convert DB::eval. Add action test. Skip tcpip socket test on
+ Strawberry Perl.
+
+2012-10-02 Rocky Bernstein <rocky@cpan.org>
+
+ * Build.PL, ChangeLog, META.json, META.yml: One more small change:
+ use Devel::Callsite 0.06
+
2012-10-02 Rocky Bernstein <rocky@cpan.org>
* Changes, example/signal.pl, lib/Devel/Trepan.pm,
View
8 META.json
@@ -23,7 +23,7 @@
"recommends" : {
"B::CodeLines" : "1.1",
"Data::Printer" : "0",
- "Devel::Callsite" : "0.05",
+ "Devel::Callsite" : "0.06",
"Eval::WithLexicals" : "0",
"Pod::Text::Color" : "2.06",
"Term::ReadKey" : "0",
@@ -59,7 +59,7 @@
},
"Devel::Trepan" : {
"file" : "lib/Devel/Trepan.pm",
- "version" : "0.45"
+ "version" : "0.45_01"
},
"Devel::Trepan::BrkptMgr" : {
"file" : "lib/Devel/Trepan/BrkptMgr.pm",
@@ -663,7 +663,7 @@
},
"Devel::Trepan::Version" : {
"file" : "lib/Devel/Trepan/Version.pm",
- "version" : "0.45"
+ "version" : "0.46"
},
"Devel::Trepan::WatchMgr" : {
"file" : "lib/Devel/Trepan/WatchMgr.pm",
@@ -690,5 +690,5 @@
"url" : "http://github.com/rocky/Perl-Devel-Trepan"
}
},
- "version" : "0.45"
+ "version" : "0.46"
}
View
8 META.yml
@@ -24,7 +24,7 @@ provides:
version: 0
Devel::Trepan:
file: lib/Devel/Trepan.pm
- version: 0.45
+ version: 0.45_01
Devel::Trepan::BrkptMgr:
file: lib/Devel/Trepan/BrkptMgr.pm
version: 0
@@ -477,7 +477,7 @@ provides:
version: 0
Devel::Trepan::Version:
file: lib/Devel/Trepan/Version.pm
- version: 0.45
+ version: 0.46
Devel::Trepan::WatchMgr:
file: lib/Devel/Trepan/WatchMgr.pm
version: 0
@@ -490,7 +490,7 @@ provides:
recommends:
B::CodeLines: 1.1
Data::Printer: 0
- Devel::Callsite: 0.05
+ Devel::Callsite: 0.06
Eval::WithLexicals: 0
Pod::Text::Color: 2.06
Term::ReadKey: 0
@@ -511,4 +511,4 @@ resources:
bugtracker: https://github.com/rocky/Perl-Devel-Trepan/issues
license: http://www.gnu.org/licenses/old-licenses/gpl-1.0.txt
repository: http://github.com/rocky/Perl-Devel-Trepan
-version: 0.45
+version: 0.46
View
2  lib/Devel/Trepan/Version.pm
@@ -1,3 +1,3 @@
package Devel::Trepan::Version;
-use version; $VERSION = '0.45';
+use version; $VERSION = '0.46';
1;
View
2  t/10test-condition.t
@@ -3,6 +3,7 @@ use strict; use warnings;
use English qw( -no_match_vars );
use rlib '../lib';
use Devel::Trepan::Condition;
+use Config;
use Test::More;
if ($OSNAME eq 'MSWin32') {
@@ -10,6 +11,7 @@ if ($OSNAME eq 'MSWin32') {
} else {
plan;
}
+
note( "Testing Condition" );
note 'Test valid conditions';
View
9 t/10test-io-tcpserver.t
@@ -2,19 +2,18 @@
use strict; use warnings;
use English qw( -no_match_vars );
use rlib '../lib';
+use Config;
use Test::More;
-if ($OSNAME eq 'MSWin32') {
- plan skip_all => "FIXME see if we can make this work on Strawberry Perl"
+if ($OSNAME eq 'MSWin32' or $OSNAME eq 'msys') {
+ plan skip_all => 'FIXME make work on MinGW and Strawberry Perl?'
} else {
plan;
}
note( "Testing Devel::IO::TCPServer" );
-BEGIN {
- use_ok( 'Devel::Trepan::IO::TCPServer' );
-}
+require_ok( 'Devel::Trepan::IO::TCPServer' );
note "Testing failure to open server port";
my $pid = fork();
View
12 t/20test-action.t
@@ -1,9 +1,15 @@
#!/usr/bin/env perl
use warnings; use strict;
-use Test::More;
use rlib '.';
-use Helper;
+use Helper; use English;
+use Config;
+if ($OSNAME eq 'MSWin32') {
+ plan skip_all => "FIXME weirdness in Strawberry's starup display I/O order"
+} else {
+ plan;
+}
+
my $test_prog = File::Spec->catfile(dirname(__FILE__),
qw(.. example action-bug.pl));
-Helper::run_debugger("$test_prog", 'action.cmd');
+run_debugger("$test_prog", cmd_file());
done_testing();
View
4 t/20test-eval.t
@@ -50,7 +50,9 @@ $opts = {
# Perl 5.10.0 doesn't show "sub five() {"
$skip = 3;
next;
- }
+ } elsif ( /^\s*\}/ ) {
+ next;
+ }
push @result, $_;
}
$got_lines = join("\n", @result);
View
2  t/data/action.cmd
@@ -1,4 +1,4 @@
-# Use with example/gcd.pl
+# Use with example/action-bug.pl
set basename on
set highlight off
action 6 print "As I was saying\n";
View
1  t/data/eval2.right
@@ -47,7 +47,6 @@ eval $eval_sub;
-- main::(eval.pl:14)
$y = five();
-- main::((eval 1955)[eval.pl:10]:3 remapped bogus.pl:3)
-}
--> #0 @ = main::five() in
file `(eval 1000)[eval.pl:13]' at line 3
#1 file `eval.pl' at line 14
Please sign in to comment.
Something went wrong with that request. Please try again.