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);
         // }
     });
+    */
 }
 
 
title='2017-05-16 14:41:01 +0200'>2017-05-16</span></td><td><a href='/guix/commit/gnu.scm?id=b09a8da4a2e50845a297e041762f3ff9e649c047'>bootloader: Add extlinux support.</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2016-04-18 01:24:06 +0200'>2016-04-18</span></td><td><a href='/guix/commit/gnu.scm?id=060d62a740fc1932a3be505534feff099b59ac9f'>system: Add (gnu system mapped-devices).</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-11-03 18:11:45 +0100'>2015-11-03</span></td><td><a href='/guix/commit/gnu.scm?id=6e82863463c641571e852291481e2b64401c2fe2'>system: Rename (gnu system linux) to (gnu system pam).</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-02-04 22:49:35 +0100'>2015-02-04</span></td><td><a href='/guix/commit/gnu.scm?id=996ed73948e92eb2005a2a282856753d707f452c'>system: Add bindings to configure libc's NSS.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2015-01-22 17:01:01 +0100'>2015-01-22</span></td><td><a href='/guix/commit/gnu.scm?id=fbb020451ea25896936a5fba966612b59c0bcdf3'>gnu: Add convenience macros to make module imports more concise.</a><span class='msg-avail'>...</span></td><td>Joshua S. Grant</td></tr>
<tr><td><span title='2014-09-09 17:13:52 +0200'>2014-09-09</span></td><td><a href='/guix/commit/gnu.scm?id=bde7eb8f0ae6a58b0195434ed15210acdda309aa'>Have (gnu) re-export (guix gexp).</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2014-05-22 23:24:13 +0200'>2014-05-22</span></td><td><a href='/guix/commit/gnu.scm?id=c9384945984c393ef1a15efb5c07e272a27a2215'>Add (gnu) module.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>