------------------------->  GNU Sather - sourcefile  <-------------------------
-- Copyright (C) 1994 by International Computer Science Institute            --
-- This file is part of the GNU Sather package. It is free software; you may --
-- redistribute  and/or modify it under the terms of the  GNU General Public --
-- License (GPL)  as  published  by the  Free  Software  Foundation;  either --
-- version 2 of the license, 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 Doc/GPL for more details.        --
-- The license text is also available from:  Free Software Foundation, Inc., --
-- 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA                     --
-------------->  Please email comments to <bug-sather@gnu.org>  <--------------

class TEST_PSATHER is
    
   test is
--      loop
--	 i ::= 0.upto!(20);
	 #OUT + "ITERATION: " + i + "\n";
	 TEST_LL_LOCK::main;
	 TEST_SPINLOCK::main;
	 TEST_MUTEX::main;
	 TEST_SHARED::main;
	 TEST_PAR::main;

	 TEST_SEMA::main;
	 
	 if (clusters = 1) then
	    TEST_LOCKS::main; 
	    TEST_GATES::main; 
	    TEST_FUTURE::main;
	    TEST_RW::main; -- seg faults with Myrinet
	    TEST_YIELD::main; 
	    TEST_DOOR::main;
	 else
	    TEST_COPY::main;
	    TEST_REMOTE::main;
	    TEST_CLUSTER::main;
	 end;
	 #OUT + "\n\n";
--      end; 
	
--      TEST_RV::main;  This is turned off until Claudio has a chance to
--                      look into why it seg faults.
    end;
    main is
    	test;
        #ERR+"\nTEST DONE\n";
    end;
    
end; -- class TEST_PSATHER

-------------------------------------------------------------------
