testsuite/systemtap.base/modargs.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

# This test is to check that modargs work fine
# Tests initialized and uninitialized global variables, string/number

set test "modargs"

# precompile the script module
set compile { exec stap $srcdir/$subdir/$test.stp -p4 -w }
if { [catch { set module [eval $compile] } msg ] } {
    fail "$test compilation: $msg"
    untested "$test module arguments"
    continue
} else {
    pass "$test compilation"
}

set test "modargs execution"
if {! [installtest_p]} { untested $test; return }

set ::result_string {initializedname=foo initializednumber=999 name=charley number=-1}
set res [ exec staprun $module $::result_string ]

if {[string compare $res $::result_string] == 0} {
    pass "$test"
} else {
    fail "$test, result: $res"
}