order_wt.sa


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

class TEST_ORDER_WEIGHT

class TEST_ORDER_WEIGHT is -- This is a test program to test the cultural character repertoire -- class. Note that it is not portable for simplicity in building a local -- library. -- Version 1.0 Oct 97. Copyright K Hopper, U of Waikato -- Development History -- ------------------- -- Date Who By Detail -- ---- ------ ------ -- 15 Oct 97 kh Original include TEST ; main is class_name("ORDER_WEIGHT") ; weight : ORDER_WEIGHT := ORDER_WEIGHT::create(42) ; test("create",weight.card.str,"42") ; next : ORDER_WEIGHT := weight.next_one ; test("next",next.card.str,"43") ; test("offset",next.offset(weight.card).card.str,"85") ; finish end ; end ; -- TEST_ORDER_WEIGHT