File: 3.2.7-poly-e.sh

package info (click to toggle)
palp 2.21-2
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 1,308 kB
  • sloc: ansic: 17,456; sh: 1,452; makefile: 51
file content (52 lines) | stat: -rwxr-xr-x 1,096 bytes parent folder | download | duplicates (2)
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
#!/bin/sh
#
# Test the examples in Section 3.2.7 of the PALP manual
#
. tests/lib/run-test.sh

: ${DIM:=6}

# Page 13
COMMAND="./poly-${DIM}d.x -e tests/input/3.2.7-poly-e.1.txt"
DESCRIPTION="poly-${DIM}d.x -e first example on page 13"
EXPECTED=$(cat<<-EOF
3 2  Equations of P
   1   0     0
   0   1     0
  -1  -1     1
EOF
)
if [ $DIM -lt 6 ]; then
    # The output equations are permuted when POLY_Dmax < 6 (the first
    # and third rows are swapped), but they're the same equations.
    EXPECTED=$(cat<<-EOF
3 2  Equations of P
  -1  -1     1
   0   1     0
   1   0     0
EOF
    )
fi
run_test

COMMAND="./poly-${DIM}d.x -e tests/input/3.2.7-poly-e.2.txt"
DESCRIPTION="poly-${DIM}d.x -e second example on page 13"
EXPECTED=$(cat<<-EOF
3 2  Vertices of P-dual <-> Equations of P
   2  -1
  -1   2
  -1  -1
EOF
)
if [ $DIM -lt 6 ]; then
    # The output equations are permuted when POLY_Dmax < 6 (the first
    # and third rows are swapped), but they're the same equations.
    EXPECTED=$(cat<<-EOF
3 2  Vertices of P-dual <-> Equations of P
  -1  -1
  -1   2
   2  -1
EOF
    )
fi
run_test