summaryrefslogtreecommitdiffstats
path: root/testsuite/lib.test/strutils.exp
blob: 72d1fcda335947313e95d4b02f9ea267aa6b2d4c (plain)
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
#
# Testsuite for lib/strutils program
#

set teststr "${topdir}src/tests/test_strutils"

set test "without argument"
spawn $teststr
expect_pass "$test" "test_strutils: no arguments"

set test "test long"
spawn $teststr 1
expect_pass "$test" "1"

set test "test long fail"
spawn $teststr fail
expect_pass "$test" "test_strutils: strtol_or_err: \'fail\'"

set test "test double"
spawn $teststr dummy 1.1
expect_pass "$test" "1.100000"

set test "test double fail"
spawn $teststr dummy fail
expect_pass "$test" "test_strutils: strtod_or_err: \'fail\'"