File: disable_failing_tests.diff

package info (click to toggle)
libdata-uniqid-perl 0.12-1
  • links: PTS, VCS
  • area: main
  • in suites: buster, stretch
  • size: 80 kB
  • ctags: 5
  • sloc: perl: 108; makefile: 2
file content (31 lines) | stat: -rw-r--r-- 806 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Description: Disable broken tests
Author: Jan Wagner <waja@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);}