tup.sa


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

class TEST_TUP

class TEST_TUP is -- This is a program class to test the implementation of tuples -- (of CARD for test purposes).. -- -- WARNING This class is not portable and can only be guaranteed to run on -- the machine on which it was compiled. -- Version 1.0 Nov 97. Copyright K Hopper, U of Waikato -- Development History -- ------------------- -- Date Who By Detail -- ---- ------ ------ -- 4 Nov 97 kh Original from Sather 1.1 distribution include TEST ; main is class_name("TUP") ; first : TUP{CARD,CARD} := TUP{CARD,CARD}::create(1,3) ; test("CARD,CARD",first.str,"[" + 1.str + "," + 3.str + "]") ; second : TUP{CARD,STR} := TUP{CARD,STR}::create(1,"test") ; test("CARD,STR",second.str,"[" + 1.str + ",test]") ; third : TUP{CARD} := TUP{CARD}::create(1) ; test("CARD",third.str,"[" + 1.str + "]") ; fourth : TUP{CARD,STR,CARD} := TUP{CARD,STR,CARD}::create(1,"test",5) ; test("CARD,STR,CARD",fourth.str,"[" + 1.str + ",test," + 5.str + "]") ; fifth : TUP{CARD,STR,CARD,STR} := TUP{CARD,STR,CARD,STR}::create( 1,"test",5,"test 5") ; test("CARD,STR,CARD,STR",fifth.str, "[" + 1.str + ",test," + 5.str + ",test 5]") ; finish end ; end ; -- TEST_TUP