~persia/lsb-arm-port/tet-harness

« back to all changes in this revision

Viewing changes to src/perl/README

  • Committer: Emmet Hikory
  • Date: 2010-01-08 04:58:01 UTC
  • Revision ID: persia@ubuntu.com-20100108045801-e6zpplxkui2e9tcp
Upstream tarball for 3.7

Show diffs side-by-side

added added

removed removed

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