2011-12-02 17:11:03 +05:30
|
|
|
#
|
|
|
|
|
# Dehagnu testing for slabtop - part of procps
|
|
|
|
|
#
|
|
|
|
|
set slabtop ${topdir}slabtop
|
|
|
|
|
|
|
|
|
|
set avst "Active / Total"
|
|
|
|
|
set used "\\\(% used\\\)\\s+:"
|
|
|
|
|
set pct "\\\(\\d+\\.\\d+%\\\)"
|
|
|
|
|
|
|
|
|
|
set slabtop_header "^ $avst Objects $used \\d+ / \\d+ ${pct}\\s+$avst Slabs $used \\d+ / \\d+ ${pct}\\s+$avst Caches $used \\d+ / \\d+ ${pct}\\s+$avst Size $used \\d+\\.\\d+K / \\d+\\.\\d+K ${pct}\\s+Minimum / Average / Maximum Object : \\d+\\.\\d+K / \\d+\\.\\d+K / \\d+\\.\\d+K\\s+OBJS ACTIVE USE OBJ SIZE SLABS OBJ/SLAB CACHE SIZE NAME\\s+"
|
|
|
|
|
|
|
|
|
|
set test "slabtop help"
|
|
|
|
|
spawn $slabtop --help
|
2011-12-02 19:02:14 +05:30
|
|
|
expect_pass $test "usage: \\S+ \\\[options\\\]"
|
2011-12-02 17:11:03 +05:30
|
|
|
|
|
|
|
|
set sort_tests {
|
|
|
|
|
"a" "active objects" "^\\d+\\s+(\\d+)\\s+\\d+%\\s+\\d+\\.\\d+K\\s+\\d+\\s+\\d+\\s+\\d+K\\s+\\S\[^\r\]+\\s*"
|
|
|
|
|
"b" "objects per slab" "^\\s*\\d+\\s+\\d+\\s+\\d+%\\s+\\d+\\.\\d+K\\s+\\d+\\s+(\\d+)\\s+\\d+K\\s+\\S\[^\r\]+\\s*"
|
|
|
|
|
"c" "cache size" "^\\d+\\s+\\d+\\s+\\d+%\\s+\\d+\\.\\d+K\\s+\\d+\\s+\\d+\\s+(\\d+)K\\s+\\S\[^\r\]+\\s*"
|
|
|
|
|
"l" "number of slabs" "^\\d+\\s+\\d+\\s+\\d+%\\s+\\d+\\.\\d+K\\s+(\\d+)\\s+\\d+\\s+\\d+K\\s+\\S\[^\r\]+\\s*"
|
|
|
|
|
"o" "object count" "^(\\d+)\\s+\\d+\\s+\\d+%\\s+\\d+\\.\\d+K\\s+\\d+\\s+\\d+\\s+\\d+K\\s+\\S\[^\r\]+\\s*"
|
|
|
|
|
"s" "object size" "^\\d+\\s+\\d+\\s+\\d+%\\s+(\\d+\\.\\d+)K\\s+\\d+\\s+\\d+\\s+\\d+K\\s+\\S\[^\r\]+\\s*"
|
|
|
|
|
"u" "utilisation" "^\\d+\\s+\\d+\\s+(\\d+)%\\s+\\d+\\.\\d+K\\s+\\d+\\s+\\d+\\s+\\d+K\\s+\\S\[^\r\]+\\s*"
|
|
|
|
|
}
|
|
|
|
|
foreach { flag desc match } $sort_tests {
|
|
|
|
|
set test "slabtop sorted by $desc"
|
|
|
|
|
spawn $slabtop -o -s $flag
|
|
|
|
|
expect_table_dsc $test $slabtop_header $match
|
|
|
|
|
}
|
|
|
|
|
|
