JekoTronik

(use-modules (system vm coverage)
             (system vm vm))

(add-to-load-path (dirname (current-filename)))

(call-with-values (lambda ()
		    (with-code-coverage (lambda ()
					  (load "tests.scm"))))
  (lambda (tests-coverage-data . useless-values)
    (call-with-output-file "lcov.info"

JekoTronik

;; This is a Guix deployment of a "bare bones" setup, with
;; no X11 display server, to a machine with an SSH daemon
;; listening on localhost:2222. A configuration such as this
;; may be appropriate for virtual machine with ports
;; forwarded to the host's loopback interface.

(use-service-modules networking ssh)
(use-package-modules bootloaders)

(define %system

JekoTronik

(use-modules (sxml simple)
             (sxml match))

(define (ciqual-table->sxml xml-file)
  (catch #t;'system-error
    (lambda ()
      (call-with-input-file xml-file
        (lambda (xml-port)
          (xml->sxml xml-port #:trim-whitespace? #t))))
    (lambda (key . parameters)

JekoTronik

(use-modules (sxml simple)
             (sxml match)
             (ice-9 exceptions))

(define (ciqual-table->sxml xml-file)
  (with-exception-handler
      (lambda (exn)
    (apply (lambda (key . value)
       (format #t "'not-existing-file':Aucun fichier ou dossier de ce type"))
           (exception-kind exn) (exception-args exn)))

JekoTronik

$ guix build -f /tmp/dummy-package-definition.scm
Les dérivations suivantes seront compilées :
   /gnu/store/rkac9vbs58bsw4nhpsblwbdm5b4a33j9--0.1.drv
   /gnu/store/z6mfry7z2d5n24avmj1z9wkqynpblhk1-git-checkout.drv
49,7 Mo seront téléchargés :
   /gnu/store/xwqx6lwy9y84gs7yr09lgx90mr1lfm9v-module-import-compiled
   /gnu/store/y6r90gvai0m9acwmjgk848a3kldpnkwd-git-minimal-2.25.1
   /gnu/store/25ppzjgxzimabr62r1cpzb79jydcji0n-gnutls-3.6.9-debug
   /gnu/store/r1aa9511hbsl8718iiza5nyzs8a74vd8-gnutls-3.6.9-doc
   /gnu/store/hfvz18igm68p5yz7z4asn6ph363blp1z-gnutls-3.6.9

JekoTronik

(define-module (harness-guile)
  #:use-module (srfi srfi-64))

(module-define! (resolve-module '(srfi srfi-64))
		'test-log-to-file #t)

(define EMPTY_STRING "")

(define (rotations str)
  `(,str))