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