;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 Ludovic Courtès <ludo@gnu.org>
;;;
;;; 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 <http://www.gnu.org/licenses/>.

(define-module (test-cpio)
  #:use-module (guix cpio)
  #:use-module (guix tests)
  #:use-module ((guix build utils) #:select (which))
  #:use-module ((guix utils) #:select (call-with-temporary-output-file))
  #:use-module (ice-9 match)
  #:use-module (ice-9 popen)
  #:use-module (rnrs io ports)
  #:use-module (srfi srfi-1)
  #:use-module (srfi srfi-26)
  #:use-module (srfi srfi-64))

(define %cpio-program
  (which "cpio"))


(test-begin "cpio")

(test-assert "file->cpio-header + write-cpio-header + read-cpio-header"
  (let* ((file   (search-path %load-path "guix.scm"))
         (header (file->cpio-header file)))
    (call-with-values
        (lambda ()
          (open-bytevector-output-port))
      (lambda (port get-bv)
        (write-cpio-header header port)
        (let ((port (open-bytevector-input-port (get-bv))))
          (equal? header (read-cpio-header port)))))))

(unless %cpio-program (test-skip 1))
(test-assert "bit-identical to GNU cpio's output"
  (call-with-temporary-output-file
   (lambda (link _)
     (delete-file link)
     (symlink "chbouib" link)

     (let ((files (cons* "/"
                         (canonicalize-path
                          (dirname (search-path %load-path "guix.scm")))
                         link
                         (map (compose canonicalize-path
                                       (cut search-path %load-path <>))
                              '("guix.scm" "guix/build/syscalls.scm"
                                "guix/packages.scm")))))
       (call-with-temporary-output-file
        (lambda (ref-file _)
          (let ((pipe (open-pipe* OPEN_WRITE %cpio-program "-o" "-O" ref-file
                                  "-H" "newc" "--null")))
            (for-each (lambda (file)
                        (format pipe "~a\0" file))
                      files)
            (and (zero? (close-pipe pipe))
                 (call-with-temporary-output-file
                  (lambda (file port)
                    (write-cpio-archive files port)
                    (close-port port)
                    (or (file=? ref-file file)
                        (throw 'cpio-archives-differ files
                               ref-file file
                               (stat:size (stat ref-file))
                               (stat:size (stat file))))))))))))))

(test-end "cpio")
s/shepherd.scm?id=9fc037fe1099f499acc01c5f40cae7f72796c49a'>services: Use 'file-append' in more places.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-08-31 15:44:20 +0200'>2016-08-31</span></td><td><a href='/guix/commit/gnu/services/shepherd.scm?id=7b44cae50aed1d6d67337e9eae9f449ccd00a870'>services: shepherd: Add 'shepherd-service-upgrade', from 'guix system'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-08-31 15:44:20 +0200'>2016-08-31</span></td><td><a href='/guix/commit/gnu/services/shepherd.scm?id=6673bddc9ae8f8835a8676cfb3ca0f5b9eb29405'>services: shepherd: Parameterize 'shepherd-service-back-edges'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-08-31 15:44:20 +0200'>2016-08-31</span></td><td><a href='/guix/commit/gnu/services/shepherd.scm?id=a5d78eb64bcb87440a0b3ff25eec5568df0bc47c'>services: shepherd: Add 'shepherd-service-lookup-procedure'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-07-19 00:07:12 +0200'>2016-07-19</span></td><td><a href='/guix/commit/gnu/services/shepherd.scm?id=2c2ec261a8d3c37e5147038f47ad24c57cde4134'>services: shepherd: Clarify error message about missing service.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-07-12 22:47:08 +0200'>2016-07-12</span></td><td><a href='/guix/commit/gnu/services/shepherd.scm?id=a91c3fc727ba90d8c9b91f67fb672da2e6b877ad'>services: &lt;shepherd-service&gt; no longer has an 'imported-modules' field.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-02-05 14:01:46 +0100'>2016-02-05</span></td><td><a href='/guix/commit/gnu/services/shepherd.scm?id=234ea8a71c70747d883c0634dcd56e243845d832'>service: shepherd: All of the config file is in 'call-with-error-handling'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-02-05 14:01:46 +0100'>2016-02-05</span></td><td><a href='/guix/commit/gnu/services/shepherd.scm?id=081bd3bd29c8af228c237a178c171fcdf05425cf'>service: shepherd: Guard against exceptions raised by 'start'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-02-03 22:28:28 +0100'>2016-02-03</span></td><td><a href='/guix/commit/gnu/services/shepherd.scm?id=240b57f0ca576708ebf6cfa0dfe2803fa9ff2323'>guix system: 'reconfigure' loads and starts new services.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-01-29 20:21:53 +0300'>2016-01-29</span></td><td><a href='/guix/commit/gnu/services/shepherd.scm?id=d4053c710bc2c7a4f624ba2d72438d8f289ad569'>services: Rename 'dmd' services to 'shepherd'.</a><span class='msg-avail'>...</span></td><td>Alex Kost</td></tr>
<tr><td><span title='2016-01-29 20:21:53 +0300'>2016-01-29</span></td><td><a href='/guix/commit/gnu/services/shepherd.scm?id=fe1ad5f5db1cf38a291ee5548729d24e03d3c448'>services: shepherd: Rename shepherd configuration file.</a><span class='msg-avail'>...</span></td><td>Alex Kost</td></tr>
<tr><td><span title='2016-01-29 20:21:53 +0300'>2016-01-29</span></td><td><a href='/guix/commit/gnu/services/shepherd.scm?id=0190c1c02fd8cefa9642add58b4c7ccf75f082a7'>Rename (gnu services dmd) to (gnu services shepherd).</a><span class='msg-avail'>...</span></td><td>Alex Kost</td></tr>