diff options
Diffstat (limited to 'gnu/installer/tests.scm')
| -rw-r--r-- | gnu/installer/tests.scm | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/gnu/installer/tests.scm b/gnu/installer/tests.scm index a9a5d5d9880..b315176ff4c 100644 --- a/gnu/installer/tests.scm +++ b/gnu/installer/tests.scm | |||
| @@ -18,6 +18,17 @@ | |||
| 18 | ;;; You should have received a copy of the GNU General Public License | 18 | ;;; You should have received a copy of the GNU General Public License |
| 19 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. | 19 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. |
| 20 | 20 | ||
| 21 | ;;; Commentary: | ||
| 22 | ;;; | ||
| 23 | ;;; This module provides tools to test the guided "graphical" installer in a | ||
| 24 | ;;; non-interactive fashion. The core of it is 'converse': it allows you to | ||
| 25 | ;;; state Expect-style dialogues, which happen over the Unix-domain socket the | ||
| 26 | ;;; installer listens to. Higher-level procedures such as | ||
| 27 | ;;; 'choose-locale+keyboard' are provided to perform specific parts of the | ||
| 28 | ;;; dialogue. | ||
| 29 | ;;; | ||
| 30 | ;;; Code: | ||
| 31 | |||
| 21 | (define-module (gnu installer tests) | 32 | (define-module (gnu installer tests) |
| 22 | #:use-module (srfi srfi-1) | 33 | #:use-module (srfi srfi-1) |
| 23 | #:use-module (srfi srfi-34) | 34 | #:use-module (srfi srfi-34) |
| @@ -44,17 +55,6 @@ | |||
| 44 | 55 | ||
| 45 | edit-configuration-file)) | 56 | edit-configuration-file)) |
| 46 | 57 | ||
| 47 | ;;; Commentary: | ||
| 48 | ;;; | ||
| 49 | ;;; This module provides tools to test the guided "graphical" installer in a | ||
| 50 | ;;; non-interactive fashion. The core of it is 'converse': it allows you to | ||
| 51 | ;;; state Expect-style dialogues, which happen over the Unix-domain socket the | ||
| 52 | ;;; installer listens to. Higher-level procedures such as | ||
| 53 | ;;; 'choose-locale+keyboard' are provided to perform specific parts of the | ||
| 54 | ;;; dialogue. | ||
| 55 | ;;; | ||
| 56 | ;;; Code: | ||
| 57 | |||
| 58 | (define %installer-socket-file | 58 | (define %installer-socket-file |
| 59 | ;; Socket the installer listens to. | 59 | ;; Socket the installer listens to. |
| 60 | "/var/guix/installer-socket") | 60 | "/var/guix/installer-socket") |
