testsuite/systemtap.server/server.exp


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

# Don't attempt these tests if the client/server are not available
# Start a systemtap server, if one is not already started.
if {! [use_server_p]} then {
    if {! [setup_server]} then {
	untested "Server Tests"
	return
    }
}

# Run the buildok tests using the server
set self buildok
foreach file [lsort [glob -nocomplain $srcdir/$self/*.stp]] {
    set test "$self/[file tail $file] with server"
    verbose -log "Running $file"
    set rc [stap_run_batch $file]
    # some tests are known to fail.
    switch $test {
        "buildok/perfmon01.stp with server" {setup_kfail 909 *-*-*}
        "buildok/rpc-all-probes.stp with server" {setup_kfail 4413 *-*-*}
    }
    if {$rc == 0} { pass $test } else { fail $test }
}

# If this is an installcheck, then run a basic execution test.
if {[installtest_p]} then {
    set test "Hello from server"
    set rc [stap_run_batch $srcdir/systemtap.server/hello.stp]
    if {$rc == 0} { pass $test } else { fail $test }
}

# Shudown the server, if we started it.
if {! [use_server_p]} then {
    shutdown_server
}