1() = evalfile ("inc.sl"); 2 3testing_feature ("doc functions"); 4 5% Tests go here.... 6 7define test_doc_funs () 8{ 9 variable old = get_doc_files (); 10 variable num_old = length (get_doc_files ()); 11 variable new_file = "/new/doc/file"; 12 add_doc_file (new_file); 13 variable new = get_doc_files (); 14 if (length (new) != num_old + 1) 15 failed ("add_doc_file after get_doc_files"); 16 if (new[-1] != new_file) 17 failed ("add_doc_file after get_doc_files: new file not found"); 18 19 old = get_doc_files (); 20 21 variable list = String_Type[0]; 22 foreach (["1", "2", "3"]) 23 { 24 variable next_item = (); 25 set_doc_files (list); 26 !if (_eqs (list, get_doc_files ())) 27 failed ("set_doc_files with %d files", length (list)); 28 list = [list, next_item]; 29 } 30 variable real_file = "../../doc/text/slangfun.txt"; 31 if (NULL == get_doc_string_from_file (real_file, "strcat")) 32 failed ("expected to find doc for strcat in $real_file"$); 33 add_doc_file (real_file); 34 if (NULL == get_doc_string_from_file ("strcat")) 35 failed ("expected to find doc for strcat in internal list"); 36} 37 38test_doc_funs (); 39 40print ("Ok\n"); 41 42exit (0); 43 44