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