--- Begin Message ---
Subject: |
[PATCH 0/2] Simplify VM handling in system tests |
Date: |
Tue, 18 Jul 2017 10:58:07 +0200 |
Hello,
The attached patches simplify VM handling in system tests by
defining a new <virtual-machine> type that can be used directly
in gexps, instead of using the monadic procedures from (gnu system
vm).
The second patch shows a lot of churn but that's mostly whitespace
changes due to things being rewritten from:
(mlet* %store-monad ((os -> ...)
(command (system-qemu-image/shared-store-script ...)))
...)
to
(define os
...)
(define vm
(virtual-machine ...))
...
The next step will be to handle VMs that do not use a shared store,
is the case for the tests in (gnu system install).
Let me know what you think!
Ludo'.
Ludovic Courtès (2):
vm: Add a <virtual-machine> type and associated gexp compiler.
tests: Use 'virtual-machine' records instead of monadic procedures.
gnu/system/vm.scm | 70 +++++++++-
gnu/tests/base.scm | 314 +++++++++++++++++++++----------------------
gnu/tests/dict.scm | 145 ++++++++++----------
gnu/tests/mail.scm | 342 +++++++++++++++++++++++------------------------
gnu/tests/messaging.scm | 198 +++++++++++++--------------
gnu/tests/networking.scm | 109 +++++++--------
gnu/tests/nfs.scm | 120 ++++++++---------
gnu/tests/ssh.scm | 240 ++++++++++++++++-----------------
gnu/tests/web.scm | 125 +++++++++--------
9 files changed, 865 insertions(+), 798 deletions(-)
--
2.13.2
--- End Message ---
--- Begin Message ---
Subject: |
Re: [bug#27751] [PATCH 0/2] Simplify VM handling in system tests |
Date: |
Thu, 20 Jul 2017 11:57:53 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/25.2 (gnu/linux) |
Ludovic Courtès <address@hidden> skribis:
> The attached patches simplify VM handling in system tests by
> defining a new <virtual-machine> type that can be used directly
> in gexps, instead of using the monadic procedures from (gnu system
> vm).
>
> The second patch shows a lot of churn but that's mostly whitespace
> changes due to things being rewritten from:
>
> (mlet* %store-monad ((os -> ...)
> (command (system-qemu-image/shared-store-script ...)))
> ...)
>
> to
>
> (define os
> ...)
>
> (define vm
> (virtual-machine ...))
>
> ...
Pushed!
Ludo’.
--- End Message ---