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