diff options
author | Ludovic Courtès <ludo@gnu.org> | 2013-04-03 19:13:23 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2013-04-03 21:46:27 +0200 |
commit | 0d7f3a6d957a3129dc0aa203abc1b6adc82db295 (patch) | |
tree | 5478b1653aedd4bf67de5709098374c1364c04f0 | |
parent | 51a1763f6596d594ebd774e7c3fd9138e6f4d507 (diff) | |
download | guile-0d7f3a6d957a3129dc0aa203abc1b6adc82db295.tar.gz |
tests: Use `pass-if-equal' in ramap.test.
* test-suite/tests/ramap.test ("array-for-each"): Use `pass-if-equal'
instead of `(pass-if ... (equal? ...))'.
-rw-r--r-- | test-suite/tests/ramap.test | 28 |
1 files changed, 16 insertions, 12 deletions
diff --git a/test-suite/tests/ramap.test b/test-suite/tests/ramap.test index 5b99f72c9..afd3c2bf0 100644 --- a/test-suite/tests/ramap.test +++ b/test-suite/tests/ramap.test @@ -1,6 +1,6 @@ ;;;; ramap.test --- test array mapping functions -*- scheme -*- ;;;; -;;;; Copyright (C) 2004, 2005, 2006, 2009 Free Software Foundation, Inc. +;;;; Copyright (C) 2004, 2005, 2006, 2009, 2013 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -228,30 +228,34 @@ (with-test-prefix "array-for-each" (with-test-prefix "3 sources" - (pass-if "noncompact arrays 1" + (pass-if-equal "noncompact arrays 1" + '((3 3 3) (2 2 2)) (let* ((a #2((0 1) (2 3))) (l '()) (rec (lambda args (set! l (cons args l))))) (array-for-each rec (array-row a 1) (array-row a 1) (array-row a 1)) - (equal? l '((3 3 3) (2 2 2))))) - - (pass-if "noncompact arrays 2" + l)) + + (pass-if-equal "noncompact arrays 2" + '((3 3 3) (2 2 1)) (let* ((a #2((0 1) (2 3))) (l '()) (rec (lambda args (set! l (cons args l))))) (array-for-each rec (array-row a 1) (array-row a 1) (array-col a 1)) - (equal? l '((3 3 3) (2 2 1))))) - - (pass-if "noncompact arrays 3" + l)) + + (pass-if-equal "noncompact arrays 3" + '((3 3 3) (2 1 1)) (let* ((a #2((0 1) (2 3))) (l '()) (rec (lambda args (set! l (cons args l))))) (array-for-each rec (array-row a 1) (array-col a 1) (array-col a 1)) - (equal? l '((3 3 3) (2 1 1))))) - - (pass-if "noncompact arrays 4" + l)) + + (pass-if-equal "noncompact arrays 4" + '((3 2 3) (1 0 2)) (let* ((a #2((0 1) (2 3))) (l '()) (rec (lambda args (set! l (cons args l))))) (array-for-each rec (array-col a 1) (array-col a 0) (array-row a 1)) - (equal? l '((3 2 3) (1 0 2))))))) + l)))) |