1
0
mirror of synced 2026-01-16 16:47:50 +00:00

5 lines
1.7 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

Test Utilities
The following are a useful set of utilities for the testing group. They all reside in the TestUtils file on the Tools subdirectory of the standard test directory.
PRINT-TEST-ARS A lambda function which prints out the AR number and subject fields from an AR query. This function has a window and a file as arguments. The window is the main window of an AR query form (labelled "AR Query Window"). The file is the file to print output on (NIL goes to standard output). The query must already have been performed to select those items which are to be printed and the query should have been sorted by status (as the first sort item in the sort list). In order for this to work correctly, you must scroll the "AR Query Browser" window through all the items before using this function. As an example of use, say that you had previously specified a query list of "(System: IS Operating% System) (Subsystem: IS Generic% File% Operations)" and a sort list of "Status:" in an AR query window (and performed the query and scrolled through all the items), then you could point the cursor to the window labelled "AR Query Window" and do "(PRINT-TEST-ARS (WHICHW) '{DSK}<LISPFILES>TEMP)". This would print a list of the ARs in the file {DSK}<LISPFILES>TEMP.
8<<Zx´&&&
TIMESROMAN

TIMESROMAN ?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8))
¤¼Hõ