summaryrefslogtreecommitdiffstats
path: root/testsuite/systemtap.context/pid.tcl
blob: 36ee6b9cf815dcfaa740d8fc0a286ff58e160a35 (plain)
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
spawn stap pid.stp
expect {
    -timeout 240
    "READY" {
	set pid [exec echo 1 > /proc/stap_test_cmd &]
	set uid [exec id -ru] 
	set gid [exec id -rg] 
	set euid [exec id -u] 
	set egid [exec id -g] 
	expect {
            -timeout 5
            "execname: echo\r\n" {
                pass "execname"
		exp_continue
            }
	    "pexecname: expect\r\n" {
                pass "pexecname"
		exp_continue
	    }
	    "pid: $pid\r\n" {
		pass "pid"
		exp_continue
	    }
	    -re {ppid: [^\r\n]+\r\n} {
		pass "ppid"
		exp_continue
	    }
	    "tid: $pid\r\n" {
		pass "tid"
		exp_continue
	    }
	    "uid: $uid\r\n" {
		pass "uid"
		exp_continue
	    }
	    "euid: $euid\r\n" {
		pass "euid"
		exp_continue
	    }
	    "gid: $gid\r\n" {
		pass "gid"
		exp_continue
	    }
	    "egid: $egid\r\n" {
		pass "egid"
		exp_continue
	    }
	    eof {}
        }
    }
    eof {}
}
catch {close}
wait