From mboxrd@z Thu Jan 1 00:00:00 1970 From: Cyril Roelandt Subject: =?UTF-8?q?=5BPATCH=201/2=5D=20gnu=3A=20Add=20datefudge=2E?= Date: Thu, 15 Aug 2013 23:58:26 +0200 Message-ID: <1376603907-4623-2-git-send-email-tipecaml@gmail.com> References: <1376603907-4623-1-git-send-email-tipecaml@gmail.com> Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:39257) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VA5dZ-0005ea-Bm for guix-devel@gnu.org; Thu, 15 Aug 2013 18:03:26 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1VA5dO-0007lM-7M for guix-devel@gnu.org; Thu, 15 Aug 2013 18:03:21 -0400 Received: from mail-we0-x230.google.com ([2a00:1450:400c:c03::230]:57348) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VA5dK-0007iW-El for guix-devel@gnu.org; Thu, 15 Aug 2013 18:03:10 -0400 Received: by mail-we0-f176.google.com with SMTP id t59so886882wes.7 for ; Thu, 15 Aug 2013 15:03:05 -0700 (PDT) In-Reply-To: <1376603907-4623-1-git-send-email-tipecaml@gmail.com> List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel@gnu.org * gnu/packages/datefudge.scm: New file. * gnu-system.am (GNU_SYSTEM_MODULES): Add it. --- gnu-system.am | 1 + gnu/packages/datefudge.scm | 73 ++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 74 insertions(+) create mode 100644 gnu/packages/datefudge.scm diff --git a/gnu-system.am b/gnu-system.am index bfead6e..fde1c8c 100644 --- a/gnu-system.am +++ b/gnu-system.am @@ -45,6 +45,7 @@ GNU_SYSTEM_MODULES = \ gnu/packages/cryptsetup.scm \ gnu/packages/curl.scm \ gnu/packages/cyrus-sasl.scm \ + gnu/packages/datefudge.scm \ gnu/packages/dejagnu.scm \ gnu/packages/ddrescue.scm \ gnu/packages/dwm.scm \ diff --git a/gnu/packages/datefudge.scm b/gnu/packages/datefudge.scm new file mode 100644 index 0000000..418e0ff --- /dev/null +++ b/gnu/packages/datefudge.scm @@ -0,0 +1,73 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2013 Cyril Roelandt +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see . + +(define-module (gnu packages datefudge) + #:use-module (guix licenses) + #:use-module (guix packages) + #:use-module (guix download) + #:use-module (guix build-system gnu) + #:use-module (gnu packages) + #:use-module (gnu packages perl)) + +(define-public datefudge + (package + (name "datefudge") + (version "1.18") + (source (origin + (method url-fetch) + (uri (string-append + "http://ftp.de.debian.org/debian/pool/main/d/" + "datefudge/datefudge_" version ".tar.gz")) + (sha256 + (base32 + "0g26mk6nxfpzlgfj08ig0na9zk03fgghqr86xp5mja2gyfh58s00")))) + (build-system gnu-build-system) + (arguments + '(#:test-target "test" + #:phases + (alist-replace + 'configure + (lambda* (#:key version outputs #:allow-other-keys #:rest args) + (pk version outputs) + (let* ((out (assoc-ref outputs "out")) + (version (substring out (+ 1 (string-index-right out #\-))))) + ;; The version is retrieved using dpkg-parsechangelog, which is + ;; not available in Guix. + (substitute* "Makefile" + (("^VERSION.*$") (string-append "VERSION=" version))) + ;; We do not need to pass these flags to "install". + (substitute* "Makefile" + (("-o root -g root") "")) + ;; The prefix is hard-coded in the Makefile, we do not want that. + (substitute* "Makefile" + (("^prefix.*$") (string-append "prefix=" out "\n"))))) + %standard-phases))) + (inputs `(("perl" ,perl))) ; Needed for the tests. + (home-page "http://packages.qa.debian.org/d/datefudge.html") + (synopsis "Fake the system date") + (description + "This program (and preload library) fakes the system date so that + programs think the wall clock is ... different. + + The faking is not complete; timestamp on files are not affected in any + way. + + This package is useful if you want to test the date handling of your + programs without changing the system clock. Examples: Does it handle + expired certificates correctly? Does it work on a leap day?") + (license gpl2))) -- 1.7.10.4