diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2021-12-13 23:30:06 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2021-12-13 23:37:30 +0100 |
| commit | 6601cc78bb728f19cb181b1bd3f78cccce23ec4b (patch) | |
| tree | 7b8bfb2ab0f130743557f544c46da746ec147daf /gnu/tests | |
| parent | 95447b293d52189056224076c25299fca1338018 (diff) | |
tests: static-networking: Adjust to new style.
* gnu/tests/networking.scm (run-static-networking-test)[test]: Remove
'mkdir', 'chdir', and 'exit' calls'. Add 'test-runner-current' call.
Diffstat (limited to 'gnu/tests')
| -rw-r--r-- | gnu/tests/networking.scm | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/gnu/tests/networking.scm b/gnu/tests/networking.scm index 2bcc7f70dc7..3f3f653b8a4 100644 --- a/gnu/tests/networking.scm +++ b/gnu/tests/networking.scm | |||
| @@ -64,9 +64,7 @@ | |||
| 64 | (make-marionette | 64 | (make-marionette |
| 65 | '(#$vm "-nic" "user,model=virtio-net-pci"))) | 65 | '(#$vm "-nic" "user,model=virtio-net-pci"))) |
| 66 | 66 | ||
| 67 | (mkdir #$output) | 67 | (test-runner-current (system-test-runner #$output)) |
| 68 | (chdir #$output) | ||
| 69 | |||
| 70 | (test-begin "static-networking") | 68 | (test-begin "static-networking") |
| 71 | 69 | ||
| 72 | (test-assert "service is up" | 70 | (test-assert "service is up" |
| @@ -109,9 +107,7 @@ | |||
| 109 | (logand flags IFF_UP)) | 107 | (logand flags IFF_UP)) |
| 110 | marionette)) | 108 | marionette)) |
| 111 | 109 | ||
| 112 | (test-end) | 110 | (test-end)))) |
| 113 | |||
| 114 | (exit (= (test-runner-fail-count (test-runner-current)) 0))))) | ||
| 115 | 111 | ||
| 116 | (gexp->derivation "static-networking" test)) | 112 | (gexp->derivation "static-networking" test)) |
| 117 | 113 | ||
