cc2e33ff7c
This adds simple selftets for 'schemes' debugfs file of DAMON. Link: https://lkml.kernel.org/r/20211001125604.29660-7-sj@kernel.org Signed-off-by: SeongJae Park <sj@kernel.org> Cc: Amit Shah <amit@kernel.org> Cc: Benjamin Herrenschmidt <benh@kernel.crashing.org> Cc: David Hildenbrand <david@redhat.com> Cc: David Rienjes <rientjes@google.com> Cc: David Woodhouse <dwmw@amazon.com> Cc: Greg Thelen <gthelen@google.com> Cc: Jonathan Cameron <Jonathan.Cameron@huawei.com> Cc: Jonathan Corbet <corbet@lwn.net> Cc: Leonard Foerster <foersleo@amazon.de> Cc: Marco Elver <elver@google.com> Cc: Markus Boehme <markubo@amazon.de> Cc: Shakeel Butt <shakeelb@google.com> Cc: Shuah Khan <shuah@kernel.org> Signed-off-by: Andrew Morton <akpm@linux-foundation.org> Signed-off-by: Linus Torvalds <torvalds@linux-foundation.org> (cherry picked from commit 8d5d4c6359054f3e680e1a2caca50e9b6d688b7d) Bug: 228223814 Signed-off-by: Hailong Tu <tuhailong@oppo.com> Change-Id: I5858f06af5169aca20bab3d871e4a0dd532b0a86
89 lines
2.1 KiB
Bash
89 lines
2.1 KiB
Bash
#!/bin/bash
|
|
# SPDX-License-Identifier: GPL-2.0
|
|
|
|
test_write_result() {
|
|
file=$1
|
|
content=$2
|
|
orig_content=$3
|
|
expect_reason=$4
|
|
expected=$5
|
|
|
|
echo "$content" > "$file"
|
|
if [ $? -ne "$expected" ]
|
|
then
|
|
echo "writing $content to $file doesn't return $expected"
|
|
echo "expected because: $expect_reason"
|
|
echo "$orig_content" > "$file"
|
|
exit 1
|
|
fi
|
|
}
|
|
|
|
test_write_succ() {
|
|
test_write_result "$1" "$2" "$3" "$4" 0
|
|
}
|
|
|
|
test_write_fail() {
|
|
test_write_result "$1" "$2" "$3" "$4" 1
|
|
}
|
|
|
|
test_content() {
|
|
file=$1
|
|
orig_content=$2
|
|
expected=$3
|
|
expect_reason=$4
|
|
|
|
content=$(cat "$file")
|
|
if [ "$content" != "$expected" ]
|
|
then
|
|
echo "reading $file expected $expected but $content"
|
|
echo "expected because: $expect_reason"
|
|
echo "$orig_content" > "$file"
|
|
exit 1
|
|
fi
|
|
}
|
|
|
|
source ./_chk_dependency.sh
|
|
|
|
# Test attrs file
|
|
# ===============
|
|
|
|
file="$DBGFS/attrs"
|
|
orig_content=$(cat "$file")
|
|
|
|
test_write_succ "$file" "1 2 3 4 5" "$orig_content" "valid input"
|
|
test_write_fail "$file" "1 2 3 4" "$orig_content" "no enough fields"
|
|
test_write_fail "$file" "1 2 3 5 4" "$orig_content" \
|
|
"min_nr_regions > max_nr_regions"
|
|
test_content "$file" "$orig_content" "1 2 3 4 5" "successfully written"
|
|
echo "$orig_content" > "$file"
|
|
|
|
# Test schemes file
|
|
# =================
|
|
|
|
file="$DBGFS/schemes"
|
|
orig_content=$(cat "$file")
|
|
|
|
test_write_succ "$file" "1 2 3 4 5 6 4" \
|
|
"$orig_content" "valid input"
|
|
test_write_fail "$file" "1 2
|
|
3 4 5 6 3" "$orig_content" "multi lines"
|
|
test_write_succ "$file" "" "$orig_content" "disabling"
|
|
echo "$orig_content" > "$file"
|
|
|
|
# Test target_ids file
|
|
# ====================
|
|
|
|
file="$DBGFS/target_ids"
|
|
orig_content=$(cat "$file")
|
|
|
|
test_write_succ "$file" "1 2 3 4" "$orig_content" "valid input"
|
|
test_write_succ "$file" "1 2 abc 4" "$orig_content" "still valid input"
|
|
test_content "$file" "$orig_content" "1 2" "non-integer was there"
|
|
test_write_succ "$file" "abc 2 3" "$orig_content" "the file allows wrong input"
|
|
test_content "$file" "$orig_content" "" "wrong input written"
|
|
test_write_succ "$file" "" "$orig_content" "empty input"
|
|
test_content "$file" "$orig_content" "" "empty input written"
|
|
echo "$orig_content" > "$file"
|
|
|
|
echo "PASS"
|