← Back to branch summary

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

« back to all changes in this revision

Viewing changes to contrib/suite/src/t13-s-2ics-tog

  • 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/suite/src/t13-s-2ics-tog
 
1
#!/opt/bin/perl
 
2
@iclist=(ic1);
 
3
@ic1=("tp1","tp2","tp3");
 
4
 
 
5
require "common.pl";
 
6
 
 
7
sub tp1{
 
8
        $tp=tp1;
 
9
        &run("-e contrib/api stest1-3");
 
10
        &verify(grep(/stest1: startup/,@output)==1 ||
 
11
                grep(/stest1: cleanup/,output)==1);
 
12
}
 
13
 
 
14
 
 
15
sub tp2 {
 
16
        local(%counts);
 
17
        $tp=tp2;
 
18
        @ics=grep(/stest1: ic/,@output);
 
19
        grep(s/(stest1: ic.).*$/$1/,@ics);
 
20
        foreach(@ics) {
 
21
                $counts{$_}++;
 
22
        }
 
23
 
 
24
        @different_ics=values(%counts);
 
25
 
 
26
        &verify(@different_ics==2);
 
27
                
 
28
}
 
29
 
 
30
sub tp3 {
 
31
        local(%counts);
 
32
        $tp=tp3;
 
33
 
 
34
        @tps=grep(/stest1: ic/,@output);
 
35
        grep(s/stest1: ic. (.*)$/$1/,@tps);
 
36
        foreach(@tps) {
 
37
                $counts{$_}++;
 
38
        }
 
39
 
 
40
        @different_tps=values(%counts);
 
41
 
 
42
        &verify(@different_tps==3);
 
43
                
 
44
}
 
45
 
 
46
require "$ENV{\"TET_ROOT\"}/lib/perl/tcm.pl";