421b08a4df
We might as well join the coreutils and util-linux projects in correcting our own typos. The following was left unchanged: top/top.c[1797]: thru -> "through" references: http://lists.gnu.org/archive/html/coreutils/2012-04/msg00057.html http://marc.info/?l=util-linux-ng&m=133518057419736&w=2 Signed-off-by: Jim Warner <james.warner@comcast.net>
58 lines
2.8 KiB
Plaintext
58 lines
2.8 KiB
Plaintext
#
|
|
# Testsuite for free program
|
|
#
|
|
|
|
set free "${topdir}free"
|
|
set meminfo [ exec cat /proc/meminfo ]
|
|
regexp "MemTotal:\\s+\(\\d+\)" $meminfo -> memtotal_kb
|
|
regexp "SwapTotal:\\s+\(\\d+\)" $meminfo -> swaptotal_kb
|
|
|
|
set free_header "\\s+total\\s+used\\s+free\\s+shared\\s+buffers\\s+cached\\s*"
|
|
|
|
set test "free with no arguments"
|
|
spawn $free
|
|
expect_pass "$test" "^${free_header}Mem:\\s+${memtotal_kb}\\s+\\d+\\s+\\d+\\s+\\d+\\s+\\d+\\s+\\d+\\s*-\\/\\+ buffers\\/cache:\\s+\\d+\\s+\\d+\\s*Swap:\\s+${swaptotal_kb}\\s+\\d+\\s+\\d+\\s*"
|
|
|
|
set test "free with -b argument"
|
|
set memtotal [ expr { $memtotal_kb * 1024 } ]
|
|
set swaptotal [ expr { $swaptotal_kb * 1024 } ]
|
|
spawn $free -b
|
|
expect_pass "$test" "^${free_header}Mem:\\s+${memtotal}\\s+\\d+\\s+\\d+\\s+\\d+\\s+\\d+\\s+\\d+\\s*-\\/\\+ buffers\\/cache:\\s+\\d+\\s+\\d+\\s*Swap:\\s+${swaptotal}\\s+\\d+\\s+\\d+\\s*"
|
|
|
|
foreach {arg divisor } {-k 1 -m 1024 -g 1048576 } {
|
|
set test "free with $arg argument"
|
|
set memtotal [ expr { $memtotal_kb / $divisor } ]
|
|
set swaptotal [ expr { $swaptotal_kb / $divisor } ]
|
|
spawn $free $arg
|
|
expect_pass "$test" "^${free_header}Mem:\\s+$memtotal\\s+\\d+\\s+\\d+\\s+\\d+\\s+\\d+\\s+\\d+\\s*-\\/\\+ buffers\\/cache:\\s+\\d+\\s+\\d+\\s*Swap:\\s+${swaptotal}\\s+\\d+\\s+\\d+\\s*"
|
|
}
|
|
|
|
#set test "free with human readable output"
|
|
#spawn $free -h
|
|
#expect_pass "$test" "${free_header}Mem:\\s+\[0-9.\]+\[BKMGT\]\\s+\[0-9.\]+\[BKMGT\]\\s+\[0-9.\]+\[BKMGT\]\\s+\[0-9.\]+\[BKMGT\]\\s+\[0-9.\]+\[BKMGT\]\\s+\[0-9.\]+\[BKMGT\]\\s*-\\/\\+ buffers\\/cache:\\s+\[0-9.\]+\[BKMGT\]\\s+\[0-9.\]+\[BKMGT\]\\s*Swap:\\s+\[0-9.\]+\[BKMGT\]\\s+\[0-9.\]+\[BKMGT\]\\s+\[0-9.\]+\[BKMGT\]\\s*"
|
|
|
|
set test "free with lo and hi memory statistics"
|
|
spawn $free -l
|
|
expect_pass "$test" "^${free_header}Mem:\\s+\\d+\\s+\\d+\\s+\\d+\\s+\\d+\\s+\\d+\\s+\\d+\\s*Low:\\s+\\d+\\s+\\d+\\s+\\d+\\s*High:\\s+\\d+\\s+\\d+\\s+\\d+\\s*-\\/\\+ buffers\\/cache:\\s+\\d+\\s+\\d+\\s*Swap:\\s+\\d+\\s+\\d+\\s+\\d+"
|
|
|
|
set test "free old argument"
|
|
spawn $free -o
|
|
expect_pass "$test" "^${free_header}Mem:\\s+\\d+\\s+\\d+\\s+\\d+\\s+\\d+\\s+\\d+\\s+\\d+\\s*Swap:\\s+\\d+\\s+\\d+\\s+\\d+"
|
|
|
|
set test "free with total"
|
|
spawn $free -t
|
|
expect_pass "$test" "^${free_header}Mem:\\s+${memtotal_kb}\\s+\\d+\\s+\\d+\\s+\\d+\\s+\\d+\\s+\\d+\\s*-\\/\\+ buffers\\/cache:\\s+\\d+\\s+\\d+\\s*Swap:\\s+${swaptotal_kb}\\s+\\d+\\s+\\d+\\s*Total:\\s+\\d+\\s+\\d+\\s+\\d+\\s*"
|
|
|
|
set test "free with negative repeat count"
|
|
spawn $free -c -2
|
|
expect_pass "$test" "\(lt-\)\?free: failed to parse count argument: '-2': Numerical result out of range"
|
|
|
|
set test "free with zero repeat count"
|
|
spawn $free -c 0
|
|
expect_pass "$test" "\(lt-\)\?free: failed to parse count argument: '0': Numerical result out of range"
|
|
|
|
set test "free with positive repeat count"
|
|
spawn $free -c 2
|
|
expect_continue "$test" "^${free_header}"
|
|
expect_pass "$test" "${free_header}"
|