1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
SCCS: @(#)README 1.1 (96/08/15) TETware release 3.7
If the location of the perl utility is in a location other
than /usr/bin, then edit the fixperl script and run that
prior to the make.
For the exact usage of each call/variable,
consult the TET Programmers's Guide.
Perl Calling conventions:
&tet'setcontext;
&tet'setblock;
&tet'infoline("<info>");
&tet'result("<RESULT>");
Default code list = PASS, FAIL, UNRESOLVED, NOTINUSE,
UNSUPPORTED, UNTESTED, UNINITIATED, NORESULT
&tet'delete("<test name>", ["reason"]);
&tet'reason("<test name>");
Variable references:
@iclist=(ic1,ic2...icn);
@ic1=(my_tp1);
@ic2=(my_tp2,my_tp3);
$tet'startup="my_startup_routine";
$tet'cleanup="my_cleanup_routine";
@tet'sig_leave_list=(...);
@tet'sig_ignore_list=(...);
$tet'thistest;
API compliant program structure:
set iclist, ic's, optional setup/cleanup routines
code for subroutines
"require "$ENV{\"TET_ROOT\"}/lib/perl/tcm.pl";"
Notes:
User test purposes, startup and cleanup routines must be in the
"main" namespace.
$[ (array base) must not be changed (currently at default of 0).
A user calling 'exit' in any user routines will exit with no
post processing. Perl does not allow exit-cleanup routines.
|