r4406 - in /packages/libdata-dump-perl/trunk: Changes MANIFEST
debian/changelog lib/Data/Dump.pm t/dump.t t/glob.t t/quote.t
eloy at users.alioth.debian.org
eloy at users.alioth.debian.org
Tue Nov 28 15:01:40 CET 2006
Author: eloy
Date: Tue Nov 28 15:01:39 2006
New Revision: 4406
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=4406
Log:
eloy: new upstream version
Added:
packages/libdata-dump-perl/trunk/t/glob.t
- copied unchanged from r4405, packages/libdata-dump-perl/branches/upstream/current/t/glob.t
Modified:
packages/libdata-dump-perl/trunk/Changes
packages/libdata-dump-perl/trunk/MANIFEST
packages/libdata-dump-perl/trunk/debian/changelog
packages/libdata-dump-perl/trunk/lib/Data/Dump.pm
packages/libdata-dump-perl/trunk/t/dump.t
packages/libdata-dump-perl/trunk/t/quote.t
Modified: packages/libdata-dump-perl/trunk/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdata-dump-perl/trunk/Changes?rev=4406&op=diff
==============================================================================
--- packages/libdata-dump-perl/trunk/Changes (original)
+++ packages/libdata-dump-perl/trunk/Changes Tue Nov 28 15:01:39 2006
@@ -1,3 +1,13 @@
+2006-11-24 Gisle Aas <gisle at ActiveState.com>
+
+ Release 1.07
+
+ Remove unused code.
+
+ Add some more tests.
+
+
+
2004-11-12 Gisle Aas <gisle at ActiveState.com>
Release 1.06
Modified: packages/libdata-dump-perl/trunk/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdata-dump-perl/trunk/MANIFEST?rev=4406&op=diff
==============================================================================
--- packages/libdata-dump-perl/trunk/MANIFEST (original)
+++ packages/libdata-dump-perl/trunk/MANIFEST Tue Nov 28 15:01:39 2006
@@ -5,6 +5,7 @@
README
t/dump.t
t/eval.t
+t/glob.t
t/quote.t
t/quote-unicode.t
t/ref.t
Modified: packages/libdata-dump-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdata-dump-perl/trunk/debian/changelog?rev=4406&op=diff
==============================================================================
--- packages/libdata-dump-perl/trunk/debian/changelog (original)
+++ packages/libdata-dump-perl/trunk/debian/changelog Tue Nov 28 15:01:39 2006
@@ -1,6 +1,11 @@
+libdata-dump-perl (1.07-1) unstable; urgency=low
+
+ * New upstream release
+
+ -- Krzysztof Krzyzaniak (eloy) <eloy at debian.org> Tue, 28 Nov 2006 15:00:45 +0100
+
libdata-dump-perl (1.06-1) unstable; urgency=low
* Initial Release (closes: #369543).
-- Krzysztof Krzyzaniak (eloy) <eloy at debian.org> Tue, 30 May 2006 16:01:23 +0200
-
Modified: packages/libdata-dump-perl/trunk/lib/Data/Dump.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdata-dump-perl/trunk/lib/Data/Dump.pm?rev=4406&op=diff
==============================================================================
--- packages/libdata-dump-perl/trunk/lib/Data/Dump.pm (original)
+++ packages/libdata-dump-perl/trunk/lib/Data/Dump.pm Tue Nov 28 15:01:39 2006
@@ -7,7 +7,7 @@
*import = \&Exporter::import;
@EXPORT_OK=qw(dump pp);
-$VERSION = "1.06"; # $Date: 2004/11/12 08:51:17 $
+$VERSION = "1.07"; # $Date: 2006/11/24 16:23:06 $
$DEBUG = 0;
use overload ();
@@ -415,24 +415,13 @@
s/([\\\"\@\$])/\\$1/g;
return qq("$_") unless /[^\040-\176]/; # fast exit
- my $high = $_[1];
s/([\a\b\t\n\f\r\e])/$esc{$1}/g;
# no need for 3 digits in escape for these
s/([\0-\037])(?!\d)/sprintf('\\%o',ord($1))/eg;
- if ($high) {
- s/([\0-\037\177])/sprintf('\\%03o',ord($1))/eg;
- if ($high eq "iso8859") {
- s/[\200-\240]/sprintf('\\%o',ord($1))/eg;
- } elsif ($high eq "utf8") {
-# use utf8;
-# $str =~ s/([^\040-\176])/sprintf "\\x{%04x}", ord($1)/ge;
- }
- } else {
- s/([\0-\037\177-\377])/sprintf('\\x%02X',ord($1))/eg;
- s/([^\040-\176])/sprintf('\\x{%X}',ord($1))/eg;
- }
+ s/([\0-\037\177-\377])/sprintf('\\x%02X',ord($1))/eg;
+ s/([^\040-\176])/sprintf('\\x{%X}',ord($1))/eg;
if (length($_) > 40 && !/\\x\{/ && length($_) > (length($_[0]) * 2)) {
# too much binary data, better to represent as a hex/base64 string
Modified: packages/libdata-dump-perl/trunk/t/dump.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdata-dump-perl/trunk/t/dump.t?rev=4406&op=diff
==============================================================================
--- packages/libdata-dump-perl/trunk/t/dump.t (original)
+++ packages/libdata-dump-perl/trunk/t/dump.t Tue Nov 28 15:01:39 2006
@@ -1,48 +1,54 @@
-print "1..14\n";
+#!perl -w
+
+use strict;
+use Test qw(plan ok);
+plan tests => 21;
use Data::Dump qw(dump);
-print "not " unless dump() eq "()";
-print "ok 1\n";
+ok(dump(), "()");
+ok(dump("abc"), qq("abc"));
+ok(dump(undef), "undef");
+ok(dump(0), "0");
+ok(dump(1234), "1234");
+ok(dump(12345), "12_345");
+ok(dump(12345678), "12_345_678");
+ok(dump(-33), "-33");
+ok(dump(-123456), "-123_456");
+ok(dump("0123"), qq("0123"));
+ok(dump(1..5), "(1, 2, 3, 4, 5)");
+ok(dump([1..5]), "[1, 2, 3, 4, 5]");
+ok(dump({ a => 1, b => 2 }), "{ a => 1, b => 2 }");
+ok(dump({ 1 => 1, 2 => 1, 10 => 1 }), "{ 1 => 1, 2 => 1, 10 => 1 }");
+ok(dump({ a => 1, aa => 2, aaa => join("", "a" .. "z", "a" .. "z")}) . "\n", <<EOT);
+{
+ a => 1,
+ aa => 2,
+ aaa => "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz",
+}
+EOT
-print "not " unless dump("abc") eq qq("abc");
-print "ok 2\n";
+ok(dump({ a => 1, aa => 2, aaaaaaaaaaaaaa => join("", "a" .. "z", "a" .. "z")}) . "\n", <<EOT);
+{
+ a => 1,
+ aa => 2,
+ aaaaaaaaaaaaaa => "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz",
+}
+EOT
-print "not " unless dump(undef) eq "undef";
-print "ok 3\n";
+ok(dump(bless {}, "foo"), "bless({}, \"foo\")");
+ok(dump(bless [], "foo"), "bless([], \"foo\")");
+my $sv = [];
+ok(dump(bless \$sv, "foo"), "bless(do{\\(my \$o = [])}, \"foo\")");
+ok(dump(bless { a => 1, aa => "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz", aaa => \$sv}, "foo") . "\n", <<'EOT');
+bless({
+ a => 1,
+ aa => "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz",
+ aaa => bless(do{\(my $o = [])}, "foo"),
+}, "foo")
+EOT
-print "not " unless dump(0) eq "0";
-print "ok 4\n";
-print "not " unless dump(1234) eq "1234";
-print "ok 5\n";
-
-print "not " unless dump(12345) eq "12_345";
-print "ok 6\n";
-
-print "not " unless dump(12345678) eq "12_345_678";
-print "ok 7\n";
-
-print "not " unless dump(-33) eq "-33";
-print "ok 8\n";
-
-print "not " unless dump(-123456) eq "-123_456";
-print "ok 9\n";
-
-print "not " unless dump("0123") eq qq("0123");
-print "ok 10\n";
-
-print "not " unless dump(1..5) eq "(1, 2, 3, 4, 5)";
-print "ok 11\n";
-
-$a = [1..5];
-print "not " unless dump($a) eq "[1, 2, 3, 4, 5]";
-print "ok 12\n";
-
-$h = { a => 1, b => 2 };
-print "not " unless dump($h) eq "{ a => 1, b => 2 }";
-print "ok 13\n";
-
-$h = { 1 => 1, 2 => 1, 10 => 1 };
-print "not " unless dump($h) eq "{ 1 => 1, 2 => 1, 10 => 1 }";
-print "ok 14\n";
+# stranger stuff
+ok(dump({ a => \&Data::Dump::dump, aa => do {require Symbol; Symbol::gensym()}}),
+ "do {\n require Symbol;\n { a => sub { \"???\" }, aa => Symbol::gensym() };\n}");
Modified: packages/libdata-dump-perl/trunk/t/quote.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdata-dump-perl/trunk/t/quote.t?rev=4406&op=diff
==============================================================================
--- packages/libdata-dump-perl/trunk/t/quote.t (original)
+++ packages/libdata-dump-perl/trunk/t/quote.t Tue Nov 28 15:01:39 2006
@@ -1,17 +1,26 @@
#!perl -w
use strict;
-use Test qw(plan ok);
+use Test qw(plan ok skip);
-plan tests => 7;
+plan tests => 9;
use Data::Dump qw(dump);
-$Data::Dump::TRY_BASE64 = $Data::Dump::TRY_BASE64 = 0;
+$Data::Dump::TRY_BASE64 = 0;
ok(dump(""), qq(""));
ok(dump("\n"), qq("\\n"));
ok(dump("\0\1\x1F\0" . 3), qq("\\0\\1\\37\\x003"));
ok(dump("xx" x 30), qq(("x" x 60)));
+ok(dump("xy" x 30), qq(("xy" x 30)));
ok(dump("\x7F\x80\xFF"), qq("\\x7F\\x80\\xFF"));
ok(dump(join("", map chr($_), 0..127)), qq("\\0\\1\\2\\3\\4\\5\\6\\a\\b\\t\\n\\13\\f\\r\\16\\17\\20\\21\\22\\23\\24\\25\\26\\27\\30\\31\\32\\e\\34\\35\\36\\37 !\\"#\\\$%&'()*+,-./0123456789:;<=>?\\\@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\\x7F"));
ok(dump(join("", map chr($_), 0..255)), qq(pack("H*","000102030405060708090a0b0c0d0e0f101112131415161718191a1b1c1d1e1f202122232425262728292a2b2c2d2e2f303132333435363738393a3b3c3d3e3f404142434445464748494a4b4c4d4e4f505152535455565758595a5b5c5d5e5f606162636465666768696a6b6c6d6e6f707172737475767778797a7b7c7d7e7f808182838485868788898a8b8c8d8e8f909192939495969798999a9b9c9d9e9fa0a1a2a3a4a5a6a7a8a9aaabacadaeafb0b1b2b3b4b5b6b7b8b9babbbcbdbebfc0c1c2c3c4c5c6c7c8c9cacbcccdcecfd0d1d2d3d4d5d6d7d8d9dadbdcdddedfe0e1e2e3e4e5e6e7e8e9eaebecedeeeff0f1f2f3f4f5f6f7f8f9fafbfcfdfeff")));
+
+if (eval { require MIME::Base64 }) {
+ local $Data::Dump::TRY_BASE64 = 1;
+ ok(dump(join("", map chr($_), 0..255)), "do {\n require MIME::Base64;\n MIME::Base64::decode(\"AAECAwQFBgcICQoLDA0ODxAREhMUFRYXGBkaGxwdHh8gISIjJCUmJygpKissLS4vMDEyMzQ1Njc4OTo7PD0+P0BBQkNERUZHSElKS0xNTk9QUVJTVFVWV1hZWltcXV5fYGFiY2RlZmdoaWprbG1ub3BxcnN0dXZ3eHl6e3x9fn+AgYKDhIWGh4iJiouMjY6PkJGSk5SVlpeYmZqbnJ2en6ChoqOkpaanqKmqq6ytrq+wsbKztLW2t7i5uru8vb6/wMHCw8TFxsfIycrLzM3Oz9DR0tPU1dbX2Nna29zd3t/g4eLj5OXm5+jp6uvs7e7v8PHy8/T19vf4+fr7/P3+/w==\");\n}");
+}
+else {
+ skip("MIME::Base64 missing", 1);
+}
More information about the Pkg-perl-cvs-commits
mailing list