r12838 - in /trunk/libbit-vector-perl: debian/changelog t/01________new.t
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Wed Jan 16 21:12:24 UTC 2008
Author: dmn
Date: Wed Jan 16 21:12:24 2008
New Revision: 12838
URL: http://svn.debian.org/wsvn/?sc=1&rev=12838
Log:
* revert the change in t/01________new.t that looks unneeded
Modified:
trunk/libbit-vector-perl/debian/changelog
trunk/libbit-vector-perl/t/01________new.t
Modified: trunk/libbit-vector-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libbit-vector-perl/debian/changelog?rev=12838&op=diff
==============================================================================
--- trunk/libbit-vector-perl/debian/changelog (original)
+++ trunk/libbit-vector-perl/debian/changelog Wed Jan 16 21:12:24 2008
@@ -13,6 +13,7 @@
+ use dist-based upstream URL
+ add pointers to the licenses used (instead of a general "see them in
/usr/share/common-licenses")
+ * revert the change in t/01________new.t that looks unneeded
-- gregor herrmann <gregor+debian at comodo.priv.at> Sat, 01 Dec 2007 22:51:35 +0100
Modified: trunk/libbit-vector-perl/t/01________new.t
URL: http://svn.debian.org/wsvn/trunk/libbit-vector-perl/t/01________new.t?rev=12838&op=diff
==============================================================================
--- trunk/libbit-vector-perl/t/01________new.t (original)
+++ trunk/libbit-vector-perl/t/01________new.t Wed Jan 16 21:12:24 2008
@@ -1,7 +1,6 @@
#!perl -w
use strict;
-use integer;
no strict "vars";
use integer;
@@ -36,8 +35,6 @@
unless ($@)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
-
-print STDERR "n=$n\n";
# test if the copy of an object reference works as expected:
@@ -174,7 +171,6 @@
if (ref($ref) eq 'Bit::Vector')
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
-
if (${$ref} != 0)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
More information about the Pkg-perl-cvs-commits
mailing list