<
aboutsummaryrefslogtreecommitdiff
-rw-r--r--
eo.po1246408logplainabout
-rw-r--r--es.po1557196logplainabout
-rw-r--r--fa.po1174960logplainabout
-rw-r--r--fi.po1173772logplainabout
-rw-r--r--fr.po1465536logplainabout
-rw-r--r--hu.po1255701logplainabout
-rw-r--r--it.po1189783logplainabout
-rw-r--r--ja.po1174374logplainabout
-rw-r--r--ko.po1176555logplainabout
-rw-r--r--nl.po1182542logplainabout
-rw-r--r--oc.po1179929logplainabout
-rw-r--r--pl.po1184010logplainabout
-rw-r--r--pt_BR.po1186430logplainabout
-rw-r--r--sk.po1180891logplainabout
-rw-r--r--sr.po1192655logplainabout
-rw-r--r--sv.po1178803logplainabout
-rw-r--r--tr.po1180306logplainabout
-rw-r--r--uk.po1174513logplainabout
-rw-r--r--vi.po1175804logplainabout
-rw-r--r--zh_CN.po1190239logplainabout
(make-marionette (cons* #$(virtual-machine (operating-system nfs-root-client-os) (volatile? #f)) '("-device" "e1000,netdev=n2,mac=52:54:00:12:34:57" "-netdev" "socket,id=n2,connect=127.0.0.1:1234")) #:socket-directory "/tmp/client")) (test-assert "NFS port is ready" (wait-for-tcp-port 2049 client-marionette)) (marionette-eval '(begin (use-modules (rnrs io ports)) (current-output-port (open-file "/dev/console" "w0")) (and (system* (string-append #$nfs-utils "/sbin/mount.nfs") "10.0.2.15:/export" "/export" "-v") (let ((content (call-with-input-file "/proc/mounts" get-string-all))) (call-with-output-file "/export/mounts" (lambda (port) (display content port)))))) client-marionette) ;;; Check whether NFS client host communicated with NFS server host. (test-assert "nfs client deposited file" (wait-for-file "/export/mounts" server-marionette)) (marionette-eval '(begin (current-output-port (open-file "/dev/console" "w0")) (call-with-input-file "/export/mounts" display)) server-marionette) (test-end)))) (gexp->derivation "nfs-full-test" test)) (define %test-nfs-full (system-test (name "nfs-full") (description "Test that an NFS server can be started and the exported directory can be used by another machine.") (value (run-nfs-full-test))))