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