testsuite/systemtap.stress/conversions.exp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21


set file $srcdir/$subdir/conversions.stp
foreach value {0 0xffffffff 0xffffffffffffffff} {
    set test "conversions.stp $value"
    if {![installtest_p]} { untested $test; continue }
    # PR 4121: address 0 is valid on s390x
    if {[istarget s390x-*-*] && $value == 0} { set value 0x7777777777 }
    spawn stap -DMAXERRORS=40 $file $value
    set errs 0
    verbose -log "exp $test $errs"
    expect {
        -re {ERROR[^\r\n]*\r\n} { incr errs; exp_continue }
        -re {WARNING[^\r\n]*\r\n} { incr errs; exp_continue }
        eof { }
        timeout { }
    }
    verbose -log "done exp $test $errs"
    wait
    if {$errs == 8} { pass $test } else { fail "$test ($errs)" }
    verbose -log "done $test $errs"
}