diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-07-14 17:56:27 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-07-25 02:12:37 +0200 |
| commit | 89b1f89cfc88c1cdc4e61834e8e1b497b978ee99 (patch) | |
| tree | 06627f9215e4701f38a7d674bf4273fd4daf01f4 /tests | |
| parent | 55e72cb1074b5819660f93426e09c0a10f78e102 (diff) | |
| download | cuirass-89b1f89cfc88c1cdc4e61834e8e1b497b978ee99.tar cuirass-89b1f89cfc88c1cdc4e61834e8e1b497b978ee99.tar.gz | |
Move '%program-name' to (cuirass ui) module.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/base.scm | 19 | ||||
| -rw-r--r-- | tests/ui.scm | 24 |
2 files changed, 31 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)) 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 <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 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 <http://www.gnu.org/licenses/>. + +(use-modules (cuirass ui) + (srfi srfi-64)) + +(test-error "invalid program name" + 'wrong-type-arg + (%program-name #f)) |