Move '%program-name' to (cuirass ui) module.

1 files changed, 7 insertions, 12 deletions

diff --git a/tests/base.scm b/tests/base.scm
index fb3bfd1..f902da2 100644
--- a/tests/base.scm
+++ b/tests/base.scm
@@ -1,16 +1,15 @@
-;;;; base.scm - tests for (cuirass base) module
-;;;
+;;; base.scm -- tests for (cuirass base) module
 ;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org>
 ;;;
 ;;; This file is part of Cuirass.
 ;;;
-;;; Cuirass 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.
+;;; Cuirass 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.
 ;;;
-;;; Cuirass is distributed in the hope that it will be useful, but
-;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; Cuirass 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.
 ;;;
@@ -20,10 +19,6 @@
 (use-modules (cuirass base)
              (srfi srfi-64))
 
-(test-error "invalid program name"
-  'wrong-type-arg
-  (%program-name #f))
-
 (test-error "invalid cache directory"
   'wrong-type-arg
   (%package-cachedir #f))