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
39
40
41
42
43
44
45
46
47
|
# Test that string-comparison works.
# In particular, function results need to use temps. (PR13283)
function foo() { return "foo"; }
function bar() { return "bar"; }
function yn(x) { return x ? "yes" : "no" }
probe begin {
println("")
printf("foo():\"%s\" bar():\"%s\"\n", foo(), bar())
println("")
println("foo() < bar() ? ", yn(foo() < bar()))
println("foo() <= bar() ? ", yn(foo() <= bar()))
println("foo() > bar() ? ", yn(foo() > bar()))
println("foo() >= bar() ? ", yn(foo() >= bar()))
println("foo() == bar() ? ", yn(foo() == bar()))
println("foo() != bar() ? ", yn(foo() != bar()))
println("")
println("\"foo\" < bar() ? ", yn("foo" < bar()))
println("\"foo\" <= bar() ? ", yn("foo" <= bar()))
println("\"foo\" > bar() ? ", yn("foo" > bar()))
println("\"foo\" >= bar() ? ", yn("foo" >= bar()))
println("\"foo\" == bar() ? ", yn("foo" == bar()))
println("\"foo\" != bar() ? ", yn("foo" != bar()))
println("")
println("foo() < \"bar\" ? ", yn(foo() < "bar"))
println("foo() <= \"bar\" ? ", yn(foo() <= "bar"))
println("foo() > \"bar\" ? ", yn(foo() > "bar"))
println("foo() >= \"bar\" ? ", yn(foo() >= "bar"))
println("foo() == \"bar\" ? ", yn(foo() == "bar"))
println("foo() != \"bar\" ? ", yn(foo() != "bar"))
println("")
println("\"foo\" < \"bar\" ? ", yn("foo" < "bar"))
println("\"foo\" <= \"bar\" ? ", yn("foo" <= "bar"))
println("\"foo\" > \"bar\" ? ", yn("foo" > "bar"))
println("\"foo\" >= \"bar\" ? ", yn("foo" >= "bar"))
println("\"foo\" == \"bar\" ? ", yn("foo" == "bar"))
println("\"foo\" != \"bar\" ? ", yn("foo" != "bar"))
println("")
exit()
}
|
