From 5925aed0d6326a62c47e75b875a223576088f85e Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Thu, 19 Jun 2003 01:41:20 +0000 Subject: [PATCH] New file, exercising parallel. --- test-suite/tests/threads.test | 54 +++++++++++++++++++++++++++++++++++ 1 file changed, 54 insertions(+) create mode 100644 test-suite/tests/threads.test diff --git a/test-suite/tests/threads.test b/test-suite/tests/threads.test new file mode 100644 index 000000000..3c1470e9b --- /dev/null +++ b/test-suite/tests/threads.test @@ -0,0 +1,54 @@ +;;;; threads.test --- Tests for Guile threading. -*- scheme -*- +;;;; +;;;; Copyright 2003 Free Software Foundation, Inc. +;;;; +;;;; This program is free software; you can redistribute it and/or modify +;;;; it under the terms of the GNU General Public License as published by +;;;; the Free Software Foundation; either version 2, or (at your option) +;;;; any later version. +;;;; +;;;; This program is distributed in the hope that it will be useful, +;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;;; GNU General Public License for more details. +;;;; +;;;; You should have received a copy of the GNU General Public License +;;;; along with this software; see the file COPYING. If not, write to +;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330, +;;;; Boston, MA 02111-1307 USA + +(use-modules (ice-9 threads) + (test-suite lib)) + + +(with-test-prefix "parallel" + (pass-if "no forms" + (call-with-values + (lambda () + (parallel)) + (lambda () + #t))) + + (pass-if "1" + (call-with-values + (lambda () + (parallel 1)) + (lambda (x) + (equal? x 1)))) + + (pass-if "1 2" + (call-with-values + (lambda () + (parallel 1 2)) + (lambda (x y) + (and (equal? x 1) + (equal? y 2))))) + + (pass-if "1 2 3" + (call-with-values + (lambda () + (parallel 1 2 3)) + (lambda (x y z) + (and (equal? x 1) + (equal? y 2) + (equal? z 3))))))