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