token.sa
Generated by gen_html_sa_files from ICSI. Contact gomes@icsi.berkeley.edu for details
class TEST_TOKEN
class TEST_TOKEN 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
-- ---- ------ ------
-- 13 Oct 97 kh Original
include TEST ;
main is
class_name("TOKEN") ;
tok : TOKEN := TOKEN::create(42) ;
other_tok : TOKEN := TOKEN::create(43) ;
test("is_eq",(tok = other_tok).str,false.str) ;
unchecked_test("hash 1",tok.hash.str,"OK?") ;
unchecked_test("hash 2",other_tok.hash.str,"OK?") ;
finish
end ;
end ; -- TEST_TOKEN