chcode.sa


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

class TEST_CHAR_CODE

class TEST_CHAR_CODE is -- This is a test program to test the concept of a culturally-dependent -- character encoding as embodied in the required library class CHAR_CODE. -- Version 1.0 May 99. Copyright K Hopper, U of Waikato -- Development History -- ------------------- -- Date Who By Detail -- ---- ------ ------ -- 14 May 99 kh Original include TEST ; main is class_name("CHAR_CODE") ; lib : LIBCHARS := LIBCHARS::default ; first : CHAR_CODE := CHAR_CODE::create(64,lib) ; second : CHAR_CODE := CHAR_CODE::create('@',lib) ; third : CHAR_CODE := CHAR_CODE::create('@'.binstr,lib) ; test("create num",first.char.str,'@'.str) ; test("create char",second.char.str,'@'.str) ; test("create binstr",third.char.str,'@'.str) ; test("equality",(first = second).str,true.str) ; test("next",first.next.char.str,second.next.char.str) ; test("is_lt",(second < first.next).str,true.str) ; test("lib",(third.lib = lib).str,true.str) ; test("card",first.card.str,64.str) ; test("rune",(first.rune.code = first).str,true.str) ; test("binstr",(CHAR_CODE::build(first.binstr.cursor) = second).str, true.str) ; raw : CHAR_CODE := CHAR_CODE::raw_build(first.raw_binstr.cursor,lib) ; test("raw_build",(raw = second).str,true.str) ; oct_str : STR := STR::create ; loop oct_str := oct_str + " ".default_lib.separate!(first.aelt!.hex_str) end ; unchecked_test("aelt sequence",oct_str,"OK?") ; oct_str := STR::create ; loop oct_str := oct_str + " ".default_lib.separate!(first.octet!.hex_str) end ; unchecked_test("octet sequence",oct_str,"OK?") ; finish end ; end ; -- TEST_CHAR_CODE