diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2016-07-03 22:49:40 +0400 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2016-07-03 22:49:40 +0400 |
| commit | 0fddead3fe05d79de98e8129fc80a70e16206506 (patch) | |
| tree | 77e5e600058dc588b8de8abb49449163dc7459b7 | |
| parent | tests/common.scm (test-equal-with-log): New macro (diff) | |
| download | guile-ssh-0fddead3fe05d79de98e8129fc80a70e16206506.tar.gz | |
tests/dist.scm ("split"): Split into two tests
| -rw-r--r-- | tests/dist.scm | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/tests/dist.scm b/tests/dist.scm index d588e16..b539ce5 100644 --- a/tests/dist.scm +++ b/tests/dist.scm @@ -52,10 +52,16 @@ (eq? (node-repl-port n) 37146) (eq? (node-session n) s)))) -(test-assert "split" - (and (equal? (split '(a b c d e f g) 3) '((a b) (c d) (e f g))) - (equal? (split '(a) 2) '((a))))) + +(test-equal "split, 1" + '((a b) (c d) (e f g)) + (split '(a b c d e f g) 3)) + +(test-equal "split, 2" + '((a)) + (split '(a) 2)) + (test-assert "make-job" (let* ((s (make-session-for-test)) (n (make-node s)) |