path: root/tests/split-register-classes

# -*- 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