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