From 0fddead3fe05d79de98e8129fc80a70e16206506 Mon Sep 17 00:00:00 2001 From: "Artyom V. Poptsov" Date: Sun, 3 Jul 2016 22:49:40 +0400 Subject: tests/dist.scm ("split"): Split into two tests --- tests/dist.scm | 12 +++++++++--- 1 file 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)) -- cgit v1.2.3