diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-10-20 21:31:31 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-10-20 21:31:31 +0300 |
| commit | 9d860e2793e1ceaaf668c5b39d1699e4081a6f2a (patch) | |
| tree | 07533d926799085c2b59a075dca2e0a703df4015 /tests/server-client.scm | |
| parent | tests/server-client.scm: Use procedures from 'common.scm' (diff) | |
| download | guile-ssh-9d860e2793e1ceaaf668c5b39d1699e4081a6f2a.tar.gz | |
tests/server-client.scm (run-server-test): Move to 'common.scm'
* tests/server-client.scm (run-server-test): Move to 'common.scm'.
* tests/common.scm: Update.
Diffstat (limited to 'tests/server-client.scm')
| -rw-r--r-- | tests/server-client.scm | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/tests/server-client.scm b/tests/server-client.scm index 54b44f0..7150d6f 100644 --- a/tests/server-client.scm +++ b/tests/server-client.scm @@ -51,25 +51,6 @@ (format log " client: ~a~%" message)))) -(define (run-server-test client-proc server-proc) - "Run a CLIENT-PROC in newly created process. A session is passed to a -CLIENT-PROC as an argument. SERVER-PROC is called with a server as an -argument. The procedure returns a result of SERVER-PROC call." - (let ((server (make-server-for-test)) - (session (make-session-for-test)) - (pid (primitive-fork))) - (if (zero? pid) - ;; server - (dynamic-wind - (const #f) - (lambda () - (client-proc session)) - (lambda () - (primitive-exit 1))) - ;; client - (server-proc server)))) - - ;;; Testing of basic procedures (test-assert-with-log "accept, key exchange" |