diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2016-06-12 23:38:01 +0400 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2016-06-12 23:38:01 +0400 |
| commit | 2702add00ea311b28648abe221f5640c0cc1f3e9 (patch) | |
| tree | 6248bae3af20de38def5fb96d17dad0567603cc2 | |
| parent | tests/common.scm (test-error-with-log): Bugfix (diff) | |
| download | guile-ssh-2702add00ea311b28648abe221f5640c0cc1f3e9.tar.gz | |
tests/dist.scm ("hand-out-job, invalid type"): New test case
| -rw-r--r-- | tests/dist.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/dist.scm b/tests/dist.scm index ed17d74..53e9439 100644 --- a/tests/dist.scm +++ b/tests/dist.scm @@ -82,6 +82,10 @@ (eq? (job-data j1) (job-data j2)) (eq? (job-proc j1) (job-proc j2))))) +(test-error-with-log "hand-out-job, invalid type" + (let ((n (make-node (make-session-for-test)))) + (hand-out-job (make-job 'invalid-job n '() (const #t))))) + (test-assert "assign-eval" (let* ((s (make-session-for-test)) |