blob: 71622bbf7ed113cb59da61c9de7a3ee7a630e8a7 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
# -*- sh -*-
# See LICENSE file for copyright and license details.
test $(getnamelist SECTION | grep '_HALF$' | wc -l) -ge 8
for sec in $(getnamelist SECTION | grep '_HALF$'); do
secn=$(getnum SECTION $sec)
is-section-half.tu $secn
(! is-section-quarter.tu $secn)
test $(get-section-fraction.tu $secn) = 2
done
test $(getnamelist SECTION | grep '_QUARTER$' | wc -l) -ge 4
for sec in $(getnamelist SECTION | grep '_QUARTER$'); do
secn=$(getnum SECTION $sec)
is-section-quarter.tu $secn
(! is-section-half.tu $secn)
test $(get-section-fraction.tu $secn) = 4
done
secn="$(getnum SECTION WHOLE)"
test -n "$secn"
test $(get-section-fraction.tu $secn) = 1
|
