@@ -132,32 +132,37 @@ end
132132 S1 = S1a ∩ S1b
133133 paving = pave (S1, IntervalBox (- 3 .. 3 , - 3 .. 3 ), 2.0 , 0.5 )
134134
135- @test paving. inner == [IntervalBox (1.5 .. 3 , 0 .. 3 ), IntervalBox (0 .. 1.5 , 1.5 .. 3 )]
135+ @test Set (paving. inner) == Set ([IntervalBox (1.5 .. 3 , 0 .. 3 ), IntervalBox (0 .. 1.5 , 1.5 .. 3 )])
136+ @test length (paving. inner) == 2
136137 @test isempty (paving. boundary) == false
137138
138139 S2 = S1a ∪ S1b
139140 paving = pave (S2, IntervalBox (- 3 .. 3 , - 3 .. 3 ), 0.1 )
140- @test paving. inner == [IntervalBox (- 3 .. 0 , 0 .. 3 ), IntervalBox (0 .. 3 , - 3 .. 3 )]
141+ @test Set (paving. inner) == Set ([IntervalBox (- 3 .. 0 , 0 .. 3 ), IntervalBox (0 .. 3 , - 3 .. 3 )])
142+ @test length (paving. inner) == 2
141143 @test isempty (paving. boundary) == false
142144
143145
144146 S3 = @constraint x^ 2 + y^ 2 <= 1
145147 X = IntervalBox (- ∞.. ∞, - ∞.. ∞)
146148 paving = pave (S3, X, 1.0 , 0.5 )
147149
148- @test paving. inner == [IntervalBox (Interval (0.0 , 0.5 ), Interval (0.0 , 0.8660254037844386 )),
149- IntervalBox (Interval (0.0 , 0.5 ), Interval (- 0.8660254037844386 , 0.0 )),
150- IntervalBox (Interval (- 0.5 , 0.0 ), Interval (0.0 , 0.8660254037844386 )),
151- IntervalBox (Interval (- 0.5 , 0.0 ), Interval (- 0.8660254037844386 , 0.0 ))]
152-
153- @test paving. boundary == [ IntervalBox (Interval (0.5 , 1.0 ), Interval (0.0 , 0.8660254037844387 )),
154- IntervalBox (Interval (0.0 , 0.5 ), Interval (0.8660254037844386 , 1.0 )),
155- IntervalBox (Interval (0.5 , 1.0 ), Interval (- 0.8660254037844387 , 0.0 )),
156- IntervalBox (Interval (0.0 , 0.5 ), Interval (- 1.0 , - 0.8660254037844386 )),
157- IntervalBox (Interval (- 0.5 , 0.0 ), Interval (0.8660254037844386 , 1.0 )),
158- IntervalBox (Interval (- 1.0 , - 0.5 ), Interval (0.0 , 0.8660254037844387 )),
159- IntervalBox (Interval (- 0.5 , 0.0 ), Interval (- 1.0 , - 0.8660254037844386 )),
160- IntervalBox (Interval (- 1.0 , - 0.5 ), Interval (- 0.8660254037844387 , 0.0 ))]
150+ @test Set (paving. inner) == Set ([IntervalBox (Interval (0.0 , 0.5 ), Interval (0.0 , 0.8660254037844386 )),
151+ IntervalBox (Interval (0.0 , 0.5 ), Interval (- 0.8660254037844386 , 0.0 )),
152+ IntervalBox (Interval (- 0.5 , 0.0 ), Interval (0.0 , 0.8660254037844386 )),
153+ IntervalBox (Interval (- 0.5 , 0.0 ), Interval (- 0.8660254037844386 , 0.0 ))])
154+
155+ @test Set (paving. boundary) == Set ([ IntervalBox (Interval (0.5 , 1.0 ), Interval (0.0 , 0.8660254037844387 )),
156+ IntervalBox (Interval (0.0 , 0.5 ), Interval (0.8660254037844386 , 1.0 )),
157+ IntervalBox (Interval (0.5 , 1.0 ), Interval (- 0.8660254037844387 , 0.0 )),
158+ IntervalBox (Interval (0.0 , 0.5 ), Interval (- 1.0 , - 0.8660254037844386 )),
159+ IntervalBox (Interval (- 0.5 , 0.0 ), Interval (0.8660254037844386 , 1.0 )),
160+ IntervalBox (Interval (- 1.0 , - 0.5 ), Interval (0.0 , 0.8660254037844387 )),
161+ IntervalBox (Interval (- 0.5 , 0.0 ), Interval (- 1.0 , - 0.8660254037844386 )),
162+ IntervalBox (Interval (- 1.0 , - 0.5 ), Interval (- 0.8660254037844387 , 0.0 ))])
163+
164+ @test length (paving. inner) == 4
165+ @test length (paving. boundary) == 8
161166end
162167
163168
0 commit comments