procps/testsuite/config/unix.exp

40 lines
843 B
Plaintext
Raw Normal View History

2011-11-23 16:14:51 +05:30
2011-11-23 17:18:49 +05:30
regexp "(.*\/)testsuite" $objdir objdir topdir
2011-11-23 16:14:51 +05:30
proc pwdx_load { arg } { }
proc pwdx_exit {} {}
proc pwdx_version {} {
2011-11-23 17:18:49 +05:30
global topdir
2011-11-23 16:14:51 +05:30
set tmp [ exec pwdx -V ]
regexp "procps-ng version (\[0-9.\]*)" $tmp tmp version
2011-11-23 17:18:49 +05:30
clone_output "${topdir}pwdx version $version\n"
}
# free functions
proc free_load { arg } { }
proc free_exit {} {}
proc free_version {} {
set tmp [ exec free --version ]
regexp "procps-ng version (\[0-9.\]*)" $tmp tmp version
clone_output "free version $version\n"
}
#
#
# common utilities
proc expect_continue { testname reg } {
expect {
-re "$reg" { }
eof { fail "$testname" }
timeout { fail "$testname" }
}
}
proc expect_pass { testname reg } {
expect {
-re "$reg" { pass "$testname" }
eof { fail "$testname" }
timeout { fail "$testname" }
}
2011-11-23 16:14:51 +05:30
}