移去rt

hc

2023-12-08 01573e231f18eb2d99162747186f59511f56b64d

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
#!/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 0 0 0 1 2 3 1 100 3 2 1" \
    "$orig_content" "valid input"
test_write_fail "$file" "1 2
3 4 5 6 3 0 0 0 1 2 3 1 100 3 2 1" "$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"