cube_properties :: Test.Framework.Test
cube_properties =
testGroup "Cube Properties" [
- tp "front/back tetrahedra are disjoint" prop_front_back_tetrahedra_disjoint,
- tp "top/down tetrahedra are disjoint" prop_top_down_tetrahedra_disjoint,
- tp "left/right tetrahedra are disjoint" prop_left_right_tetrahedra_disjoint,
+ tp "opposite octant tetrahedra are disjoint (1)"
+ prop_opposite_octant_tetrahedra_disjoint1,
+ tp "opposite octant tetrahedra are disjoint (2)"
+ prop_opposite_octant_tetrahedra_disjoint2,
+ tp "opposite octant tetrahedra are disjoint (3)"
+ prop_opposite_octant_tetrahedra_disjoint3,
+ tp "opposite octant tetrahedra are disjoint (4)"
+ prop_opposite_octant_tetrahedra_disjoint4,
+ tp "opposite octant tetrahedra are disjoint (5)"
+ prop_opposite_octant_tetrahedra_disjoint5,
+ tp "opposite octant tetrahedra are disjoint (6)"
+ prop_opposite_octant_tetrahedra_disjoint6,
tp "all volumes positive" prop_all_volumes_positive,
tp "all volumes exact" prop_all_volumes_exact,
tp "v0 all equal" prop_v0_all_equal,