← Back to branch summary

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

« back to all changes in this revision

Viewing changes to contrib/NTperldemo/ts/tc2.pl

  • 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:
contrib/NTperldemo/ts/tc2.pl
 
1
#!/usr/bin/perl
 
2
@iclist=(ic1);
 
3
@ic1=("tp1");
 
4
 
 
5
sub tp1{
 
6
 
 
7
        &tet'infoline("This is the second test case"); 
 
8
        print("We have not set TET_OUTPUT_CAPTURE=True ");
 
9
        print("so all normal stdin/stdout/stderr\nfiles are available.  ");
 
10
        print("\nIf we had set output capture,  the results logged by");
 
11
        print(" the API would not be in the journal.\n");
 
12
        print("But these lines would.\n");
 
13
        &tet'result("PASS");
 
14
}
 
15
 
 
16
require "$ENV{\"TET_ROOT\"}/lib/perl/tcm.pl";