Author: ken
Date: Sun Mar 20 18:44:26 2016
New Revision: 3366
Log:
Fix Data::Uniqid tests.
Added:
trunk/Data-Uniqid/
trunk/Data-Uniqid/Data-Uniqid-0.12-disable_failing_test-1.patch
Added: trunk/Data-Uniqid/Data-Uniqid-0.12-disable_failing_test-1.patch
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ trunk/Data-Uniqid/Data-Uniqid-0.12-disable_failing_test-1.patch Sun Mar
20 18:44:26 2016 (r3366)
@@ -0,0 +1,36 @@
+Submitted By: Ken Moffat <ken at linuxfromscratch dot org>
+Date: 2016-03-20
+Initial Package Version: 0.12
+Upstream Status: Unknown
+Origin: Found at debian
+Description: Disable broken tests
+Author: Jan Wagner <w...@cyconet.org>
+Last-Update: 2015-10-11
+
+--- a/test.pl
++++ b/test.pl
+@@ -1,5 +1,5 @@
+ use Test;
+-BEGIN { plan tests => 4 };
++BEGIN { plan tests => 3 };
+ use Data::Uniqid qw ( suniqid uniqid luniqid ) ;
+
+ print "suniqid -> " . suniqid . "\n";
+@@ -27,11 +27,11 @@
+ }
+ if ($err>0) {;ok(0);} else {;ok(1);}
+
+-use Sys::Hostname;
+-my($ia,$ib,$ic,$id)=unpack("C4", (gethostbyname(hostname()))[4]);
+-
+-if ($ia=~/\d+/ && $ia>0 && $ib=~/\d+/ && $ib>0 &&
+- $ic=~/\d+/ && $ic>0 && $id=~/\d+/ && $id>0 ) {;ok(1);}
+-else {;ok(0);}
++#use Sys::Hostname;
++#my($ia,$ib,$ic,$id)=unpack("C4", (gethostbyname(hostname()))[4]);
++#
++#if ($ia=~/\d+/ && $ia>0 && $ib=~/\d+/ && $ib>0 &&
++# $ic=~/\d+/ && $ic>0 && $id=~/\d+/ && $id>0 ) {;ok(1);}
++#else {;ok(0);}
+
+
--
http://lists.linuxfromscratch.org/listinfo/patches
FAQ: http://www.linuxfromscratch.org/blfs/faq.html
Unsubscribe: See the above information page
