unofficial mirror of guix-patches@gnu.org 
 help / color / mirror / code / Atom feed
blob bdd6e5b76cd27a3f531c7d6a9c723db7e1c3c264 2659 bytes (raw)
name: gnu/packages/patches/ldc-bootstrap-disable-tests.patch 	 # note: path name is non-authoritative(*)

 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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
 
This patch fixes a failing unit test by feeding buildNormalizedPath to the
tzdata properly.  Three other tests are disabled, one assumes /root and the
two others use networking.  Not bad out of almost 700 tests!

by Pjotr Prins <pjotr.guix@thebird.nl>

--- a/std/datetime.d.orig	2016-11-24 01:13:52.584495545 +0100
+++ b/std/datetime.d	2016-11-24 01:17:09.655306728 +0100
@@ -28081,22 +28081,24 @@
         import std.range : retro;
         import std.format : format;
 
-        name = strip(name);
-
         enforce(tzDatabaseDir.exists(), new DateTimeException(format("Directory %s does not exist.", tzDatabaseDir)));
         enforce(tzDatabaseDir.isDir, new DateTimeException(format("%s is not a directory.", tzDatabaseDir)));
 
         version(Android)
         {
+            name = strip(name);
             auto tzfileOffset = name in tzdataIndex(tzDatabaseDir);
             enforce(tzfileOffset, new DateTimeException(format("The time zone %s is not listed.", name)));
             string tzFilename = separate_index ? "zoneinfo.dat" : "tzdata";
             immutable file = buildNormalizedPath(tzDatabaseDir, tzFilename);
         }
         else
-            immutable file = buildNormalizedPath(tzDatabaseDir, name);
+        {
+            auto filename = "./" ~ strip(name); // make sure the prefix is not stripped
+            immutable file = buildNormalizedPath(tzDatabaseDir, filename);
+        }
 
-        enforce(file.exists(), new DateTimeException(format("File %s does not exist.", file)));
+        enforce(file.exists(), new DateTimeException(format("File %s does not exist in %s.", file, tzDatabaseDir)));
         enforce(file.isFile, new DateTimeException(format("%s is not a file.", file)));
 
         auto tzFile = File(file);
diff --git a/std/path.d b/std/path.d
index 254d8f0..b0fc04d 100644
--- a/std/path.d
+++ b/std/path.d
@@ -3080,8 +3080,11 @@ unittest
         }
         else
         {
+            pragma(msg, "test disabled on GNU Guix");
+/*
             assert(expandTilde("~root") == "/root", expandTilde("~root"));
             assert(expandTilde("~root/") == "/root/", expandTilde("~root/"));
+*/
         }
         assert(expandTilde("~Idontexist/hey") == "~Idontexist/hey");
     }
diff --git a/std/socket.d b/std/socket.d
index b85d1c9..7fbf346 100644
--- a/std/socket.d
+++ b/std/socket.d
@@ -859,6 +862,8 @@ class InternetHost
 
 unittest
 {
+    pragma(msg, "test disabled on GNU Guix");
+    /*
     InternetHost ih = new InternetHost;
 
     ih.getHostByAddr(0x7F_00_00_01);
@@ -889,6 +894,7 @@ unittest
         //      writefln("aliases[%d] = %s", i, s);
         // }
     });
+    */
 }
 
 

debug log:

solving bdd6e5b76 ...
found bdd6e5b76 in https://git.savannah.gnu.org/cgit/guix.git

(*) Git path names are given by the tree(s) the blob belongs to.
    Blobs themselves have no identifier aside from the hash of its contents.^

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/guix.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).