r46962 - in /branches/upstream/libdata-peek-perl/current: ChangeLog META.yml Peek.pm README t/20_DPeek.t t/30_DDump-s.t t/52_DGrow.t
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Tue Nov 10 15:50:59 UTC 2009
Author: jawnsy-guest
Date: Tue Nov 10 15:50:53 2009
New Revision: 46962
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=46962
Log:
[svn-upgrade] Integrating new upstream version, libdata-peek-perl (0.29)
Modified:
branches/upstream/libdata-peek-perl/current/ChangeLog
branches/upstream/libdata-peek-perl/current/META.yml
branches/upstream/libdata-peek-perl/current/Peek.pm
branches/upstream/libdata-peek-perl/current/README
branches/upstream/libdata-peek-perl/current/t/20_DPeek.t
branches/upstream/libdata-peek-perl/current/t/30_DDump-s.t
branches/upstream/libdata-peek-perl/current/t/52_DGrow.t
Modified: branches/upstream/libdata-peek-perl/current/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-peek-perl/current/ChangeLog?rev=46962&op=diff
==============================================================================
--- branches/upstream/libdata-peek-perl/current/ChangeLog (original)
+++ branches/upstream/libdata-peek-perl/current/ChangeLog Tue Nov 10 15:50:53 2009
@@ -1,3 +1,8 @@
+2009-11-09 0.29 - H.Merijn Brand <h.m.brand at xs4all.nl>
+
+ * Use skip instead of skip_all for builds that have no DPeek ()
+ * Be more lenient towards the allocated space
+
2009-11-06 0.28 - H.Merijn Brand <h.m.brand at xs4all.nl>
* DDump () now dumps the variable itself, instead of a copy (Zefram)
Modified: branches/upstream/libdata-peek-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-peek-perl/current/META.yml?rev=46962&op=diff
==============================================================================
--- branches/upstream/libdata-peek-perl/current/META.yml (original)
+++ branches/upstream/libdata-peek-perl/current/META.yml Tue Nov 10 15:50:53 2009
@@ -1,6 +1,6 @@
--- #YAML:1.1
name: Data::Peek
-version: 0.28
+version: 0.29
abstract: Modified and extended debugging facilities
license: perl
author:
@@ -10,7 +10,7 @@
provides:
Data::Peek:
file: Peek.pm
- version: 0.28
+ version: 0.29
requires:
perl: 5.006
DynaLoader: 0
Modified: branches/upstream/libdata-peek-perl/current/Peek.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-peek-perl/current/Peek.pm?rev=46962&op=diff
==============================================================================
--- branches/upstream/libdata-peek-perl/current/Peek.pm (original)
+++ branches/upstream/libdata-peek-perl/current/Peek.pm Tue Nov 10 15:50:53 2009
@@ -6,7 +6,7 @@
use DynaLoader ();
use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK );
-$VERSION = "0.28";
+$VERSION = "0.29";
@ISA = qw( DynaLoader Exporter );
@EXPORT = qw( DDumper DDsort DPeek DDisplay DDump DDual DGrow );
@EXPORT_OK = qw( triplevar );
Modified: branches/upstream/libdata-peek-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-peek-perl/current/README?rev=46962&op=diff
==============================================================================
--- branches/upstream/libdata-peek-perl/current/README (original)
+++ branches/upstream/libdata-peek-perl/current/README Tue Nov 10 15:50:53 2009
@@ -1,49 +1,65 @@
-Module:
- Data::Peek - A collection of low-level debug functions
+=head1 NAME
-Description:
- Modified and extended wrapper functions to make debugging more
- pleasureable.
+Data::Peek - A collection of low-level debug functions
- DDumper is a wrapper around Data::Dumper with always sorted keys.
- The output is however reflowed and not parseable anymore (in most
- cases) as the quotation around the keys is removed.
+=head1 Description
- DDump is a wrapper around perl's core function sv_dump (), which
- should enable you to use the output instead of the default behaviour
- that only prints to STDERR.
+Modified and extended wrapper functions to make debugging more
+pleasurable.
- DPeek is a wrapper around internals Perl_sv_peek
+DDumper () is a wrapper around Data::Dumper with always sorted keys.
+The output is however reflowed and not parsable anymore (in most
+cases) as the quotation around the keys is removed.
- DDump_IO is a wrapper around perl's core function do_sv_dump (),
- which acts like sv_dump (), but to a PerlIO stream, which is only
- available in perl 5.8 and higher.
+DDump () is a wrapper around perl's core function sv_dump (), which
+should enable you to use the output instead of the default behavior
+that only prints to STDERR.
- Recent changes can be (re)viewed in the public GIT repository at
- http://repo.or.cz/w/Data-Peek.git
+DPeek () is a wrapper around internals Perl_sv_peek
-Copying:
- Copyright (c) 2008-2009 H.Merijn Brand. All rights reserved.
+DDump_IO () is a wrapper around perl's core function do_sv_dump (),
+which acts like sv_dump (), but to a PerlIO stream, which is only
+available in perl 5.8 and higher.
- This program is free software; you can redistribute it and/or modify
- it under the same terms as Perl itself.
+=head1 PREREQUISITES
-Prerequisites:
- Perl 5.6.0 and up.
- Some versions of perl on some operating system(s) might not have
- exported the internals (yet). This module won't build then.
+Perl 5.6.0 and up.
+Some versions of perl on some operating system(s) might not have
+exported the internals (yet). This module won't build then.
- If you run a perl that did not export Perl_sv_peek (), DPeek will
- not be available. If you happen to encounter that problem, most
- likely on Windows or AIX, C<export NO_SV_PEEK=1> will make the
- build and test pass (I hope)
+If you run a perl that did not export Perl_sv_peek (), DPeek will
+not be available. If you happen to encounter that problem, most
+likely on Windows or AIX, C<export NO_SV_PEEK=1> will make the
+build and test pass (I hope)
-Build/Installation:
- Standard build/installation:
- perl Makefile.PL
- make
- make test
- make install
+=head1 INSTALLATION
-Author:
- H.Merijn Brand <h.m.brand at xs4all.nl>
+ $ perl Makefile.PL
+ $ make
+ $ make test
+ $ make install
+
+Recent changes can be (re)viewed in the public GIT repository at
+http://repo.or.cz/w/Data-Peek.git
+
+Feel free to clone your own copy:
+
+ $ git clone http://repo.or.cz/r/Data-Peek.git Data-Peek
+
+or get it as a tgz:
+
+ $ wget --output-document=Data-Peek-git.tgz \
+ 'http://repo.or.cz/w/Data-Peek.git?a=snapshot;sf=tgz'
+
+=head1 AUTHOR
+
+H.Merijn Brand <h.m.brand at xs4all.nl>
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 2008-2009 H.Merijn Brand. All rights reserved.
+
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
Modified: branches/upstream/libdata-peek-perl/current/t/20_DPeek.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-peek-perl/current/t/20_DPeek.t?rev=46962&op=diff
==============================================================================
--- branches/upstream/libdata-peek-perl/current/t/20_DPeek.t (original)
+++ branches/upstream/libdata-peek-perl/current/t/20_DPeek.t Tue Nov 10 15:50:53 2009
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More;
+use Test::More tests => 50;
use Test::NoWarnings;
use Data::Peek;
@@ -11,12 +11,8 @@
$| = 1;
my $peek = DPeek (0);
-if ($peek =~ m/^Your perl did not/) {
- plan skip_all => $peek;
- }
-else {
- plan tests => 50;
- }
+SKIP: {
+$peek =~ m/^Your perl did not/ and skip ($peek, 49);
like (DPeek ($/), qr'^PVMG\("\\(n|12)"\\0\)', '$/');
is (DPeek ($\), 'PVMG()', '$\\');
@@ -92,5 +88,5 @@
is (DPeek (*VAR{IO}), '\IO()', ' *VAR{IO}');
is (DPeek (*VAR{FORMAT}),$]<5.008?'SV_UNDEF':'\FM()',' *VAR{FORMAT}');
}
-
+}
1;
Modified: branches/upstream/libdata-peek-perl/current/t/30_DDump-s.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-peek-perl/current/t/30_DDump-s.t?rev=46962&op=diff
==============================================================================
--- branches/upstream/libdata-peek-perl/current/t/30_DDump-s.t (original)
+++ branches/upstream/libdata-peek-perl/current/t/30_DDump-s.t Tue Nov 10 15:50:53 2009
@@ -45,7 +45,7 @@
$dump =~ s/\b0x[0-9a-f]+\b/0x****/g;
$dump =~ s/\b(REFCNT =) [0-9]{4,}/$1 -1/g;
- $dump =~ s/\bLEN = [1-7]\b/LEN = 8/; # aligned at long long?
+ $dump =~ s/\bLEN = (?:[1-9]|1[0-6])\b/LEN = 8/; # aligned at long long?
$dump =~ s/\bPADBUSY\b,?//g if $] < 5.010;
@@ -53,6 +53,7 @@
$dump =~ s/,?\bIsUV\b//g if $] < 5.008;
$in =~ s/[\s\n]+/ /g;
+
is ($dump, $out, "DDump ($in)");
}
}
Modified: branches/upstream/libdata-peek-perl/current/t/52_DGrow.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-peek-perl/current/t/52_DGrow.t?rev=46962&op=diff
==============================================================================
--- branches/upstream/libdata-peek-perl/current/t/52_DGrow.t (original)
+++ branches/upstream/libdata-peek-perl/current/t/52_DGrow.t Tue Nov 10 15:50:53 2009
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More tests => 10;
+use Test::More tests => 15;
use Test::NoWarnings;
use Data::Peek qw( DGrow DDump );
@@ -14,12 +14,17 @@
ok ($dd{LEN} <= 16);
ok (my $l = DGrow ($x, 10000), "Set to 10000");
is (length ($x), 0, "Variable content");
-is ($l, 10000, "returned LEN");
+ok ($l >= 10000, "returned LEN >= 10000");
+ok ($l <= 10240, "returned LEN <= 10240");
%dd = DDump $x;
-is ($dd{LEN}, 10000, "LEN in variable");
-is (DGrow (\$x, 20000), 20000, "Set to 20000");
+ok ($dd{LEN} >= 10000, "LEN in variable >= 10000");
+ok ($dd{LEN} <= 10240, "LEN in variable <= 10240");
+ok ($l = DGrow (\$x, 20000), "Set to 20000");
+ok ($l >= 20000, "LEN in variable >= 20000");
+ok ($l <= 20480, "LEN in variable <= 20480");
%dd = DDump $x;
-is ($dd{LEN}, 20000);
-is (DGrow ($x, 20), 20000, "Don't shrink");
+ok ($dd{LEN} >= 20000, "LEN in variable >= 20000");
+ok ($dd{LEN} <= 20480, "LEN in variable <= 20480");
+is (DGrow ($x, 20), $l, "Don't shrink");
1;
More information about the Pkg-perl-cvs-commits
mailing list