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