diff options
Diffstat (limited to 'tests/containers.scm')
| -rw-r--r-- | tests/containers.scm | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/tests/containers.scm b/tests/containers.scm index 6edea9631dc..75bf492cd59 100644 --- a/tests/containers.scm +++ b/tests/containers.scm | |||
| @@ -82,7 +82,8 @@ | |||
| 82 | (primitive-exit 0)) | 82 | (primitive-exit 0)) |
| 83 | #:namespaces '(user uts)))) | 83 | #:namespaces '(user uts)))) |
| 84 | 84 | ||
| 85 | (skip-if-unsupported) | 85 | ;; (skip-if-unsupported) |
| 86 | (test-skip 1) ;XXX: work around <https://codeberg.org/guix/guix/issues/7690> | ||
| 86 | (test-assert "call-with-container, pid namespace" | 87 | (test-assert "call-with-container, pid namespace" |
| 87 | (zero? | 88 | (zero? |
| 88 | (call-with-container '() | 89 | (call-with-container '() |
| @@ -188,7 +189,8 @@ | |||
| 188 | #:writable-root? #t | 189 | #:writable-root? #t |
| 189 | #:namespaces '(user mnt)))) | 190 | #:namespaces '(user mnt)))) |
| 190 | 191 | ||
| 191 | (skip-if-unsupported) | 192 | ;; (skip-if-unsupported) |
| 193 | (test-skip 1) ;XXX: work around <https://codeberg.org/guix/guix/issues/7690> | ||
| 192 | (test-equal "container-excursion" | 194 | (test-equal "container-excursion" |
| 193 | 0 | 195 | 0 |
| 194 | (call-with-temporary-directory | 196 | (call-with-temporary-directory |
| @@ -240,7 +242,8 @@ | |||
| 240 | (waitpid pid) | 242 | (waitpid pid) |
| 241 | result)))))) | 243 | result)))))) |
| 242 | 244 | ||
| 243 | (skip-if-unsupported) | 245 | ;; (skip-if-unsupported) |
| 246 | (test-skip 1) ;XXX: work around <https://codeberg.org/guix/guix/issues/7690> | ||
| 244 | (test-equal "container-excursion, same namespaces" | 247 | (test-equal "container-excursion, same namespaces" |
| 245 | 42 | 248 | 42 |
| 246 | ;; The parent and child are in the same namespaces. 'container-excursion' | 249 | ;; The parent and child are in the same namespaces. 'container-excursion' |
| @@ -250,7 +253,8 @@ | |||
| 250 | (lambda () | 253 | (lambda () |
| 251 | (primitive-exit 42))))) | 254 | (primitive-exit 42))))) |
| 252 | 255 | ||
| 253 | (skip-if-unsupported) | 256 | ;; (skip-if-unsupported) |
| 257 | (test-skip 1) ;XXX: work around <https://codeberg.org/guix/guix/issues/7690> | ||
| 254 | (test-assert "container-excursion*" | 258 | (test-assert "container-excursion*" |
| 255 | (call-with-temporary-directory | 259 | (call-with-temporary-directory |
| 256 | (lambda (root) | 260 | (lambda (root) |
| @@ -271,14 +275,16 @@ | |||
| 271 | (kill pid SIGKILL) | 275 | (kill pid SIGKILL) |
| 272 | (equal? result expected))))) | 276 | (equal? result expected))))) |
| 273 | 277 | ||
| 274 | (skip-if-unsupported) | 278 | ;; (skip-if-unsupported) |
| 279 | (test-skip 1) ;XXX: work around <https://codeberg.org/guix/guix/issues/7690> | ||
| 275 | (test-equal "container-excursion*, same namespaces" | 280 | (test-equal "container-excursion*, same namespaces" |
| 276 | 42 | 281 | 42 |
| 277 | (container-excursion* (getpid) | 282 | (container-excursion* (getpid) |
| 278 | (lambda () | 283 | (lambda () |
| 279 | (* 6 7)))) | 284 | (* 6 7)))) |
| 280 | 285 | ||
| 281 | (skip-if-unsupported) | 286 | ;; (skip-if-unsupported) |
| 287 | (test-skip 1) ;XXX: work around <https://codeberg.org/guix/guix/issues/7690> | ||
| 282 | (test-equal "container-excursion*, /proc" | 288 | (test-equal "container-excursion*, /proc" |
| 283 | '("1" "2") | 289 | '("1" "2") |
| 284 | (call-with-temporary-directory | 290 | (call-with-temporary-directory |