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
|
#!/bin/sh
failed=0
check () {
command="$1"
expected="$2"
result=`$command`
echo -n "testing $command ... "
if [ "$result" != "$expected" ]; then
echo "failed:"
echo " Expected: $expected"
echo " Got: $result"
failed=1
else
echo "ok"
fi
}
check "src/lrcalc lrcoef 3 2 1 - 2 1 - 2 1 " "2"
check "src/lrcalc skew 3 2 1 - 2 1 " "1 (3)
2 (2, 1)
1 (1, 1, 1)"
check "src/lrcalc skew -r 2 3 2 1 / 2 1 " "1 (3)
2 (2, 1)"
check "src/lrcalc mult 2 1 - 2 1 " "1 (3, 3)
1 (4, 2)
1 (2, 2, 1, 1)
1 (2, 2, 2)
2 (3, 2, 1)
1 (4, 1, 1)
1 (3, 1, 1, 1)"
check "src/lrcalc mult -f 3,2 3 2 1 - 3 2 1 " "1 (4, 4, 4)
1 (5, 4, 3)"
check "src/lrcalc mult -q 3,2 3 2 1 - 3 2 1 " "1 (2)
1 (1, 1)"
check "src/lrcalc coprod 3 2 1 " "1 (3, 1) (2)
1 (2, 2) (1, 1)
1 (3, 1) (1, 1)
1 (2, 1) (3)
2 (2, 1) (2, 1)
1 (2, 2, 1) (1)
1 (3, 2, 1) ()
1 (3, 2) (1)
1 (2, 1, 1) (2)
1 (3, 1, 1) (1)
1 (1, 1, 1) (2, 1)
1 (2, 1, 1) (1, 1)
1 (2, 2) (2)"
check "src/schubmult 1 3 2 - 1 3 2" "1 (1, 4, 2, 3)
1 (2, 3, 1)"
exit $failed
|
