← Back to branch summary

~ubuntu-branches/ubuntu/vivid/kdesdk/vivid

« back to all changes in this revision

Viewing changes to kunittest/kunittest_debughelper

  • Committer: Package Import Robot
  • Author(s): Jonathan Riddell
  • Date: 2012-06-06 11:49:54 UTC
  • mfrom: (0.4.21)
  • Revision ID: package-import@ubuntu.com-20120606114954-rdls73fzlpzxglbx
Tags: 4:4.8.80-0ubuntu1
* New uptream beta release
* Update dont_export_private_classes.diff

Show diffs side-by-side

added added

removed removed

Lines of Context:
kunittest/kunittest_debughelper
1
 
#  Copyright (C)  2005  Jeroen Wijnhout <Jeroen.Wijnhout@kdemail.net>
2
 
# 
3
 
#  Redistribution and use in source and binary forms, with or without
4
 
#  modification, are permitted provided that the following conditions
5
 
#  are met:
6
 
# 
7
 
#  1. Redistributions of source code must retain the above copyright
8
 
#    notice, this list of conditions and the following disclaimer.
9
 
#  2. Redistributions in binary form must reproduce the above copyright
10
 
#    notice, this list of conditions and the following disclaimer in the
11
 
#    documentation and/or other materials provided with the distribution.
12
 
# 
13
 
#  THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
14
 
#  IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
15
 
#  OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
16
 
#  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
17
 
#  INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
18
 
#  NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
19
 
#  DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
20
 
#  THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
21
 
#  (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
22
 
#  THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
23
 
 
24
 
use DCOP;
25
 
 
26
 
my $app = $ARGV[0]; shift @ARGV;
27
 
my $dcopid = "";
28
 
my $testername = "";
29
 
my $reading_debug = 0;
30
 
my $debug="";
31
 
my $runnergui;
32
 
 
33
 
my $client = new DCOP;
34
 
$client->attach();
35
 
 
36
 
while (<>)
37
 
{
38
 
    $runnergui = getDCOPObject();
39
 
    my $line = $_;
40
 
 
41
 
    print $_;
42
 
 
43
 
    if ( $line =~ /KUnitTest_Debug_End\[.*\]/ )
44
 
    {
45
 
        $ret = $runnergui->addDebugInfo($testername, $debug);
46
 
 
47
 
        $debug = "";
48
 
 
49
 
        # stop reading
50
 
        $reading_debug = 0;
51
 
    }
52
 
    elsif ( $line =~ /KUnitTest_Debug_EndSlot\[.*\]/ )
53
 
    {
54
 
        $ret = $runnergui->addSlotDebugInfo($testername, $slotname, $debug);
55
 
 
56
 
        $line = "";
57
 
        $debug = "";
58
 
        $slotname = "";
59
 
    }
60
 
    elsif ( $line =~ /KUnitTest_Debug_BeginSlot\[(.*)\]/ )
61
 
    {
62
 
        $slotname = $1;
63
 
        $line = "";
64
 
    }
65
 
 
66
 
    if ( $reading_debug )
67
 
    {
68
 
        if ( $line =~ /^check:(.*\[[0-9]+\])/ )
69
 
        {
70
 
            $line = $1.":\n";
71
 
        }
72
 
 
73
 
        $debug = $debug.$line;
74
 
    }    
75
 
    
76
 
    if ( $line =~ /KUnitTest_Debug_Start\[(.*)\]/ )
77
 
    {
78
 
        $testername = $1;
79
 
        $reading_debug = 1;
80
 
        $debug="";
81
 
    }
82
 
}
83
 
 
84
 
sub getDCOPObject
85
 
{
86
 
    if ( $dcopid eq "" )
87
 
    {
88
 
        $allapps = $client->registeredApplications();
89
 
        my $i = 0;
90
 
        while ( ! ($allapps->[$i] eq "") )
91
 
        {
92
 
            if ( $allapps->[$i] =~ /$app/ )
93
 
            {
94
 
                print "found: ".$allapps->[$i]."\n";
95
 
                $dcopid = $allapps->[$i];
96
 
                break;
97
 
            }
98
 
        
99
 
            $i = $i + 1;
100
 
        }
101
 
 
102
 
        $object = $client->createObject($dcopid, "Runner"); 
103
 
    }
104
 
 
105
 
    return $object;
106
 
}
 
 
b'\\ No newline at end of file'