Commit 02c3d34b authored by Dave Cooper's avatar Dave Cooper

added some regression tests, updated boolean garbage collection.

parent b5e6ac65
ISO-10303-21;
HEADER;
FILE_DESCRIPTION ((), '1');
FILE_NAME ('/Users/dcooper8/tmp/G3355731', '2013-11-19T00:02:38', ('Unknown'), ('Unknown'), 'HarmonyWare STEP v1.9.13', 'HarmonyWare Translators', '');
FILE_NAME ('/Users/dcooper8/tmp/G412379', '2014-01-09T21:26:23', ('Unknown'), ('Unknown'), 'HarmonyWare STEP v1.9.13', 'HarmonyWare Translators', '');
FILE_SCHEMA (('CONFIG_CONTROL_DESIGN'));
ENDSEC;
......@@ -26614,9 +26614,9 @@ DATA;
#265850 = PRODUCT_DEFINITION_FORMATION_WITH_SPECIFIED_SOURCE ('', '', #265780, .NOT_KNOWN.);
#265860 = APPROVAL_STATUS ('approved');
#265870 = APPROVAL (#265860, '');
#265880 = CALENDAR_DATE (2013, 19, 11);
#265880 = CALENDAR_DATE (2014, 9, 1);
#265890 = COORDINATED_UNIVERSAL_TIME_OFFSET (0, $, .AHEAD.);
#265900 = LOCAL_TIME (0, 2, 38., #265890);
#265900 = LOCAL_TIME (21, 26, 23., #265890);
#265910 = DATE_AND_TIME (#265880, #265900);
#265920 = APPROVAL_DATE_TIME (#265910, #265870);
#265930 = APPROVAL_ROLE ('');
......@@ -26639,9 +26639,9 @@ DATA;
#266100 = SECURITY_CLASSIFICATION ('', '', #266090);
#266110 = APPROVAL_STATUS ('approved');
#266120 = APPROVAL (#266110, '');
#266130 = CALENDAR_DATE (2013, 19, 11);
#266130 = CALENDAR_DATE (2014, 9, 1);
#266140 = COORDINATED_UNIVERSAL_TIME_OFFSET (0, $, .AHEAD.);
#266150 = LOCAL_TIME (0, 2, 38., #266140);
#266150 = LOCAL_TIME (21, 26, 23., #266140);
#266160 = DATE_AND_TIME (#266130, #266150);
#266170 = APPROVAL_DATE_TIME (#266160, #266120);
#266180 = APPROVAL_ROLE ('');
......@@ -26651,9 +26651,9 @@ DATA;
#266220 = APPROVAL_PERSON_ORGANIZATION (#266210, #266120, #266180);
#266230 = CC_DESIGN_APPROVAL (#266120, (#266100));
#266240 = DATE_TIME_ROLE ('classification_date');
#266250 = CALENDAR_DATE (2013, 19, 11);
#266250 = CALENDAR_DATE (2014, 9, 1);
#266260 = COORDINATED_UNIVERSAL_TIME_OFFSET (0, $, .AHEAD.);
#266270 = LOCAL_TIME (0, 2, 38., #266260);
#266270 = LOCAL_TIME (21, 26, 23., #266260);
#266280 = DATE_AND_TIME (#266250, #266270);
#266290 = CC_DESIGN_DATE_AND_TIME_ASSIGNMENT (#266280, #266240, (#266100));
#266300 = PERSON_AND_ORGANIZATION_ROLE ('classification_officer');
......@@ -26666,9 +26666,9 @@ DATA;
#266370 = PRODUCT_DEFINITION ('', '', #265850, #266360);
#266380 = APPROVAL_STATUS ('approved');
#266390 = APPROVAL (#266380, '');
#266400 = CALENDAR_DATE (2013, 19, 11);
#266400 = CALENDAR_DATE (2014, 9, 1);
#266410 = COORDINATED_UNIVERSAL_TIME_OFFSET (0, $, .AHEAD.);
#266420 = LOCAL_TIME (0, 2, 38., #266410);
#266420 = LOCAL_TIME (21, 26, 23., #266410);
#266430 = DATE_AND_TIME (#266400, #266420);
#266440 = APPROVAL_DATE_TIME (#266430, #266390);
#266450 = APPROVAL_ROLE ('');
......@@ -26678,9 +26678,9 @@ DATA;
#266490 = APPROVAL_PERSON_ORGANIZATION (#266480, #266390, #266450);
#266500 = CC_DESIGN_APPROVAL (#266390, (#266370));
#266510 = DATE_TIME_ROLE ('creation_date');
#266520 = CALENDAR_DATE (2013, 19, 11);
#266520 = CALENDAR_DATE (2014, 9, 1);
#266530 = COORDINATED_UNIVERSAL_TIME_OFFSET (0, $, .AHEAD.);
#266540 = LOCAL_TIME (0, 2, 38., #266530);
#266540 = LOCAL_TIME (21, 26, 23., #266530);
#266550 = DATE_AND_TIME (#266520, #266540);
#266560 = CC_DESIGN_DATE_AND_TIME_ASSIGNMENT (#266550, #266510, (#266370));
#266570 = PERSON_AND_ORGANIZATION_ROLE ('creator');
......@@ -185,7 +185,7 @@
(output-stream *trace-output*))
(dotimes (n warmup-runs)
(the-object (make-object (intern symbol :gdl-lift-tests)) regression-test-data))
(the-object (make-object (glisp:intern symbol :gdl-lift-tests)) regression-test-data))
(multiple-value-bind (mem1-prev mem2-prev) (glisp:get-mem-info)
(let ((mem1-orig mem1-prev) (mem2-orig mem2-prev))
......
......@@ -238,6 +238,7 @@ This occured in:
:manifold? (the manifold?))))
(brep-assert-valid *geometry-kernel* result :warn? (not (the error-on-invalid?)))
result)))))
......
......@@ -48,7 +48,7 @@ from brep and cylinder"
:hidden-objects
((outer-cylinder :type (if (and (the :radius-1) (the :radius-2)) 'simple-cone-solid 'simple-cylinder-solid)
:pass-down (radius radius-1 radius-2 arc))
:pass-down (radius radius-1 radius-2 arc brep-tolerance))
(inner-cylinder :type (cond ((and (the :inner-radius-1) (the :inner-radius-2)) 'simple-cone-solid)
......@@ -57,7 +57,7 @@ from brep and cylinder"
:radius (the :inner-radius)
:radius-1 (the :inner-radius-1)
:radius-2 (the :inner-radius-2)
:pass-down (arc))
:pass-down (arc brep-tolerance))
(subtract :type (if (typep (the inner-cylinder) 'null-part) 'null-part
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment