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
|
set test "strcmp"
set ::result_string {
foo():"foo" bar():"bar"
foo() < bar() ? no
foo() <= bar() ? no
foo() > bar() ? yes
foo() >= bar() ? yes
foo() == bar() ? no
foo() != bar() ? yes
"foo" < bar() ? no
"foo" <= bar() ? no
"foo" > bar() ? yes
"foo" >= bar() ? yes
"foo" == bar() ? no
"foo" != bar() ? yes
foo() < "bar" ? no
foo() <= "bar" ? no
foo() > "bar" ? yes
foo() >= "bar" ? yes
foo() == "bar" ? no
foo() != "bar" ? yes
"foo" < "bar" ? no
"foo" <= "bar" ? no
"foo" > "bar" ? yes
"foo" >= "bar" ? yes
"foo" == "bar" ? no
"foo" != "bar" ? yes
}
stap_run2 $srcdir/$subdir/strcmp.stp
set test "strcmp -u"
stap_run2 $srcdir/$subdir/strcmp.stp [list -u]
|
