search.sa


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

class TEST_SEARCH_PATH

class TEST_SEARCH_PATH is -- This is a test program to test the operating system independent -- implementation of search paths. Note that it is not portable for -- simplicity in building a local library. -- Version 1.0 Nov 97. Copright K Hopper, U of Waikato -- Development History -- ------------------- -- Date Who By Detail -- ---- ------ ------ -- 17 Nov 97 kh Original include TEST ; main is class_name("SEARCH_PATH") ; path : SEARCH_PATH := SEARCH_PATH::env_path("PATH") ; test("path creation",(~void(path)).str,true.str) ; path_str : STR := OPSYS::get_env("PATH") ; res : STR := STR::create ; loop res := res + LIBCHARS::default.Search_Separator.tgt_str.separate!( path.elt!.str) end ; test("Same search path",path_str,res) ; finish end ; end ; -- TEST_SEARCH_PATH