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