From 89b1f89cfc88c1cdc4e61834e8e1b497b978ee99 Mon Sep 17 00:00:00 2001 From: Mathieu Lirzin Date: Thu, 14 Jul 2016 17:56:27 +0200 Subject: Move '%program-name' to (cuirass ui) module. --- tests/base.scm | 19 +++++++------------ tests/ui.scm | 24 ++++++++++++++++++++++++ 2 files changed, 31 insertions(+), 12 deletions(-) create mode 100644 tests/ui.scm (limited to 'tests') 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 ;;; ;;; 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)) diff --git a/tests/ui.scm b/tests/ui.scm new file mode 100644 index 0000000..34b1ffd --- /dev/null +++ b/tests/ui.scm @@ -0,0 +1,24 @@ +;;; ui.scm -- tests for (cuirass ui) module +;;; Copyright © 2016 Mathieu Lirzin +;;; +;;; 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 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 Cuirass. If not, see . + +(use-modules (cuirass ui) + (srfi srfi-64)) + +(test-error "invalid program name" + 'wrong-type-arg + (%program-name #f)) -- cgit v1.2.3