groups.sa


Generated by gen_html_sa_files from ICSI. Contact gomes@icsi.berkeley.edu for details
 

class TEST_GROUP

class TEST_GROUP is -- This is a test program to test the operating system independent -- implementation of the notion of work groups in the class GROUP. Note that -- it is not portable for simplicity in building a local library. -- Version 1.0 Nov 97. Copright K Hopper, U of Waikato -- Development History -- ------------------- -- Date Who By Detail -- ---- ------ ------ -- 17 Nov 97 kh Original include TEST ; main is class_name("GROUP") ; a_group : GROUP := GROUP::create(42.binstr) ; test("create",a_group.str,"0000002A") ; os_group : GROUP := GROUP::group ; test("group" + os_group.str,(a_group = os_group).str,false.str) ; test("real_group",(GROUP::real_group = os_group).str,true.str) ; finish end ; end ; -- TEST_GROUP