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]
