emo
/
procps
1
0
Fork 0
Code Issues Pull Requests Packages Releases Activity

test: add lib/strutils check 

Signed-off-by: Sami Kerola <kerolasa@iki.fi>
This commit is contained in:
Sami Kerola 2012-02-26 13:31:18 +01:00 committed by Craig Small
parent abd113313d
commit 56ed9826a5
3 changed files with 34 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lib/strutils.c
View File

@ -46,6 +46,13 @@ double strtod_or_err(const char *str, const char *errmesg)
#ifdef TEST_PROGRAM
int main(int argc, char *argv[])
{
return EXIT_FAILURE;
if (argc < 2) {
error(EXIT_FAILURE, 0, "no arguments");
} else if (argc < 3) {
printf("%ld\n", strtol_or_err(argv[1], "strtol_or_err"));
} else {
printf("%lf\n", strtod_or_err(argv[2], "strtod_or_err"));
}
return EXIT_SUCCESS;
}
#endif /* TEST_PROGRAM */

1
testsuite/Makefile.am
View File

@ -34,6 +34,7 @@ EXTRA_DIST = \
global-conf.exp \
free.test/free.exp \
kill.test/kill.exp \
lib.test/strutils.exp \
pgrep.test/pgrep.exp \
pkill.test/pkill.exp \
pmap.test/pmap.exp \

25
testsuite/lib.test/strutils.exp Normal file
View File

@ -0,0 +1,25 @@
#
# Testsuite for lib/strutils program
#
set teststr "${topdir}lib/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\'"