From 352ffd73588d0b3574d4db468775cfadfe08a53b Mon Sep 17 00:00:00 2001 From: apn Date: Fri, 21 Dec 2012 16:39:38 +0400 Subject: [PATCH] Adding test cases for chl grid Test case tests/bugs/modalg/dxf906 was renamed to bug889 Adding test cases to tests/bugs/moddata Modified expressions puts [checkshape result]. Added command vzfit in end file in folder bugs. Unlocked command coordload in QABugs_3.cxx Modified test case bugs vis buc60738 Added test cases to modalg and moddata Added test cases to caf and fclasses Added test cases to group heal --- src/QABugs/QABugs_3.cxx | 4 - tests/bugs/caf/buc60921 | 0 tests/bugs/caf/bug1029 | 96 ++++++++++++++++ tests/bugs/caf/bug1030 | 94 ++++++++++++++++ tests/bugs/caf/bug1031 | 96 ++++++++++++++++ tests/bugs/caf/bug1032 | 94 ++++++++++++++++ tests/bugs/caf/bug1033 | 94 ++++++++++++++++ tests/bugs/caf/bug1034 | 94 ++++++++++++++++ tests/bugs/caf/bug114 | 0 tests/bugs/caf/bug170_3 | 35 ++++++ tests/bugs/caf/bug5023 | 39 +++++++ tests/bugs/caf/bug669 | 162 +++++++++++++++++++++++++++ tests/bugs/caf/bug738_1 | 17 +++ tests/bugs/caf/bug738_2 | 17 +++ tests/bugs/caf/bug739 | 19 ++++ tests/bugs/demo/bug23409 | 0 tests/bugs/demo/bug23416 | 0 tests/bugs/end | 1 + tests/bugs/fclasses/bug11568_1 | 19 ++++ tests/bugs/fclasses/bug11568_2 | 18 +++ tests/bugs/fclasses/bug23237 | 0 tests/bugs/fclasses/bug23403 | 0 tests/bugs/fclasses/bug63 | 2 +- tests/bugs/fclasses/bug670 | 16 +++ tests/bugs/fclasses/bug6794 | 26 +++++ tests/bugs/fclasses/bug710 | 18 +++ tests/bugs/fclasses/bug7287_1 | 29 +++++ tests/bugs/fclasses/bug7287_2 | 28 +++++ tests/bugs/fclasses/bug7287_3 | 31 +++++ tests/bugs/fclasses/bug7287_4 | 29 +++++ tests/bugs/fclasses/bug7287_5 | 28 +++++ tests/bugs/fclasses/bug7287_6 | 29 +++++ tests/bugs/fclasses/bug7639 | 27 +++++ tests/bugs/fclasses/bug902 | 33 ++++++ tests/bugs/fclasses/bug984 | 14 +++ tests/bugs/fclasses/bug9848_1 | 24 ++++ tests/bugs/fclasses/bug9848_2 | 25 +++++ tests/bugs/fclasses/bug984_1 | 18 +++ tests/bugs/heal/buc60940 | 2 +- tests/bugs/heal/buc60950 | 2 +- tests/bugs/heal/bug1642 | 49 ++++++++ tests/bugs/heal/bug208 | 2 +- tests/bugs/heal/bug209 | 2 +- tests/bugs/heal/bug210 | 24 ++++ tests/bugs/heal/bug210_2 | 2 +- tests/bugs/heal/bug22 | 36 ++++++ tests/bugs/heal/bug329 | 4 +- tests/bugs/heal/bug482 | 2 +- tests/bugs/heal/bug518 | 18 +++ tests/bugs/heal/bug884 | 40 +++++++ tests/bugs/iges/buc60591_1 | 6 +- tests/bugs/iges/buc60591_2 | 6 +- tests/bugs/iges/buc60591_3 | 6 +- tests/bugs/iges/buc60591_4 | 6 +- tests/bugs/iges/buc60594 | 4 +- tests/bugs/iges/buc60595_1 | 0 tests/bugs/iges/buc60595_2 | 0 tests/bugs/iges/buc60595_3 | 0 tests/bugs/iges/buc60610 | 4 +- tests/bugs/iges/buc60625 | 2 +- tests/bugs/iges/buc60646 | 2 +- tests/bugs/iges/buc60685 | 2 +- tests/bugs/iges/buc60686 | 0 tests/bugs/iges/buc60687 | 4 +- tests/bugs/iges/buc60820_1 | 2 +- tests/bugs/iges/buc60820_2 | 2 +- tests/bugs/iges/buc60823 | 4 +- tests/bugs/iges/buc60850 | 4 +- tests/bugs/iges/buc60894 | 0 tests/bugs/iges/buc60949 | 4 +- tests/bugs/iges/bug111_1 | 4 +- tests/bugs/iges/bug111_2 | 4 +- tests/bugs/iges/bug131_1 | 4 +- tests/bugs/iges/bug131_2 | 4 +- tests/bugs/iges/bug131_3 | 4 +- tests/bugs/iges/bug131_4 | 4 +- tests/bugs/iges/bug131_5 | 4 +- tests/bugs/iges/bug131_6 | 4 +- tests/bugs/iges/bug131_7 | 4 +- tests/bugs/iges/bug131_8 | 4 +- tests/bugs/iges/bug133_1 | 4 +- tests/bugs/iges/bug133_10 | 4 +- tests/bugs/iges/bug133_5 | 4 +- tests/bugs/iges/bug133_7 | 4 +- tests/bugs/iges/bug133_8 | 4 +- tests/bugs/iges/bug201 | 4 +- tests/bugs/iges/bug22888 | 0 tests/bugs/iges/bug23377 | 0 tests/bugs/iges/bug272_1 | 4 +- tests/bugs/iges/bug272_2 | 4 +- tests/bugs/iges/bug272_3 | 4 +- tests/bugs/iges/bug283 | 4 +- tests/bugs/iges/bug285 | 4 +- tests/bugs/iges/bug306 | 2 +- tests/bugs/iges/bug365_1 | 4 +- tests/bugs/iges/bug365_3 | 4 +- tests/bugs/iges/bug365_4 | 4 +- tests/bugs/iges/bug365_5 | 4 +- tests/bugs/iges/bug386 | 4 +- tests/bugs/iges/bug514 | 13 +++ tests/bugs/iges/bug58_1 | 4 +- tests/bugs/iges/bug58_2 | 4 +- tests/bugs/iges/bug58_3 | 4 +- tests/bugs/iges/bug700 | 25 +++++ tests/bugs/iges/bug89 | 4 +- tests/bugs/iges/fra62523 | 0 tests/bugs/iges/ger61337 | 4 +- tests/bugs/mesh/end | 2 +- tests/bugs/modalg/buc60409_1 | 0 tests/bugs/modalg/buc60409_2 | 0 tests/bugs/modalg/buc60409_3 | 0 tests/bugs/modalg/buc60462_1 | 4 +- tests/bugs/modalg/buc60462_2 | 4 +- tests/bugs/modalg/buc60463 | 4 +- tests/bugs/modalg/buc60523 | 2 +- tests/bugs/modalg/buc60531_1 | 4 +- tests/bugs/modalg/buc60531_2 | 8 +- tests/bugs/modalg/buc60532 | 6 +- tests/bugs/modalg/buc60532_1 | 6 +- tests/bugs/modalg/buc60532_2 | 10 +- tests/bugs/modalg/buc60533 | 4 +- tests/bugs/modalg/buc60555_1 | 6 +- tests/bugs/modalg/buc60555_2 | 8 +- tests/bugs/modalg/buc60555_3 | 10 +- tests/bugs/modalg/buc60585_1 | 2 +- tests/bugs/modalg/buc60585_2 | 2 +- tests/bugs/modalg/buc60623_1 | 4 +- tests/bugs/modalg/buc60623_2 | 4 +- tests/bugs/modalg/buc60635 | 2 +- tests/bugs/modalg/buc60649 | 2 +- tests/bugs/modalg/buc60663_1 | 4 +- tests/bugs/modalg/buc60663_2 | 4 +- tests/bugs/modalg/buc60668 | 0 tests/bugs/modalg/buc60669 | 4 +- tests/bugs/modalg/buc60684 | 2 +- tests/bugs/modalg/buc60703_1 | 4 +- tests/bugs/modalg/buc60703_2 | 4 +- tests/bugs/modalg/buc60703_3 | 4 +- tests/bugs/modalg/buc60703_4 | 4 +- tests/bugs/modalg/buc60704 | 4 +- tests/bugs/modalg/buc60708 | 4 +- tests/bugs/modalg/buc60712 | 4 +- tests/bugs/modalg/buc60714 | 0 tests/bugs/modalg/buc60728 | 4 +- tests/bugs/modalg/buc60776_1 | 4 +- tests/bugs/modalg/buc60776_2 | 4 +- tests/bugs/modalg/buc60782_1 | 0 tests/bugs/modalg/buc60782_3 | 0 tests/bugs/modalg/buc60787_1 | 4 +- tests/bugs/modalg/buc60787_2 | 4 +- tests/bugs/modalg/buc60788_1 | 4 +- tests/bugs/modalg/buc60788_2 | 4 +- tests/bugs/modalg/buc60788_3 | 4 +- tests/bugs/modalg/buc60789_1 | 4 +- tests/bugs/modalg/buc60789_2 | 4 +- tests/bugs/modalg/buc60801 | 0 tests/bugs/modalg/buc60803 | 4 +- tests/bugs/modalg/buc60826 | 4 +- tests/bugs/modalg/buc60830_4 | 2 +- tests/bugs/modalg/buc60839 | 4 +- tests/bugs/modalg/buc60841 | 4 +- tests/bugs/modalg/buc60849 | 2 +- tests/bugs/modalg/buc60853 | 4 +- tests/bugs/modalg/buc60865 | 2 +- tests/bugs/modalg/buc60878_1 | 2 +- tests/bugs/modalg/buc60878_2 | 2 +- tests/bugs/modalg/buc60878_3 | 2 +- tests/bugs/modalg/buc60880 | 2 +- tests/bugs/modalg/buc60881 | 4 +- tests/bugs/modalg/buc60899_1 | 0 tests/bugs/modalg/buc60899_2 | 0 tests/bugs/modalg/buc60901 | 0 tests/bugs/modalg/buc60905 | 0 tests/bugs/modalg/buc60909 | 0 tests/bugs/modalg/buc60922 | 2 +- tests/bugs/modalg/buc60926 | 4 +- tests/bugs/modalg/buc60927 | 4 +- tests/bugs/modalg/buc60930 | 4 +- tests/bugs/modalg/buc60934 | 2 +- tests/bugs/modalg/buc60942 | 4 +- tests/bugs/modalg/buc60946 | 4 +- tests/bugs/modalg/buc60971 | 4 +- tests/bugs/modalg/bug100 | 4 +- tests/bugs/modalg/bug101 | 4 +- tests/bugs/modalg/bug1013 | 2 +- tests/bugs/modalg/bug102_1 | 4 +- tests/bugs/modalg/bug102_2 | 4 +- tests/bugs/modalg/bug108 | 2 +- tests/bugs/modalg/bug109 | 2 +- tests/bugs/modalg/bug110_1 | 18 +-- tests/bugs/modalg/bug110_2 | 18 +-- tests/bugs/modalg/bug110_3 | 18 +-- tests/bugs/modalg/bug116 | 2 +- tests/bugs/modalg/bug117_1 | 4 +- tests/bugs/modalg/bug117_2 | 4 +- tests/bugs/modalg/bug118 | 17 +++ tests/bugs/modalg/bug118_1 | 4 +- tests/bugs/modalg/bug118_2 | 4 +- tests/bugs/modalg/bug122_1 | 4 +- tests/bugs/modalg/bug122_2 | 4 +- tests/bugs/modalg/bug122_3 | 4 +- tests/bugs/modalg/bug122_4 | 4 +- tests/bugs/modalg/bug123_1 | 2 +- tests/bugs/modalg/bug123_2 | 2 +- tests/bugs/modalg/bug140 | 2 +- tests/bugs/modalg/bug144 | 4 +- tests/bugs/modalg/bug1665 | 22 ++++ tests/bugs/modalg/bug178_1 | 4 +- tests/bugs/modalg/bug178_2 | 4 +- tests/bugs/modalg/bug178_3 | 4 +- tests/bugs/modalg/bug21 | 2 +- tests/bugs/modalg/bug212 | 18 +++ tests/bugs/modalg/bug212_1 | 4 +- tests/bugs/modalg/bug212_2 | 4 +- tests/bugs/modalg/bug212_3 | 18 +++ tests/bugs/modalg/bug213 | 20 ++++ tests/bugs/modalg/bug213_1 | 4 +- tests/bugs/modalg/bug213_2 | 4 +- tests/bugs/modalg/bug23137_1 | 0 tests/bugs/modalg/bug23137_2 | 0 tests/bugs/modalg/bug23394 | 0 tests/bugs/modalg/bug23429 | 0 tests/bugs/modalg/bug251_1 | 4 +- tests/bugs/modalg/bug251_2 | 4 +- tests/bugs/modalg/bug264_0 | 2 +- tests/bugs/modalg/bug264_1 | 2 +- tests/bugs/modalg/bug264_10 | 2 +- tests/bugs/modalg/bug264_11 | 2 +- tests/bugs/modalg/bug264_2 | 2 +- tests/bugs/modalg/bug264_3 | 2 +- tests/bugs/modalg/bug264_4 | 2 +- tests/bugs/modalg/bug264_5 | 2 +- tests/bugs/modalg/bug264_6 | 2 +- tests/bugs/modalg/bug264_7 | 2 +- tests/bugs/modalg/bug264_8 | 2 +- tests/bugs/modalg/bug264_9 | 2 +- tests/bugs/modalg/bug269_1 | 2 +- tests/bugs/modalg/bug269_2 | 2 +- tests/bugs/modalg/bug269_3 | 2 +- tests/bugs/modalg/bug269_4 | 2 +- tests/bugs/modalg/bug287 | 2 +- tests/bugs/modalg/bug291 | 2 +- tests/bugs/modalg/bug292 | 2 +- tests/bugs/modalg/bug293 | 18 +-- tests/bugs/modalg/bug298 | 2 +- tests/bugs/modalg/bug305 | 2 +- tests/bugs/modalg/bug307_1 | 2 +- tests/bugs/modalg/bug307_2 | 2 +- tests/bugs/modalg/bug315 | 4 +- tests/bugs/modalg/bug322 | 2 +- tests/bugs/modalg/bug323 | 2 +- tests/bugs/modalg/bug334 | 4 +- tests/bugs/modalg/bug335 | 4 +- tests/bugs/modalg/bug336 | 4 +- tests/bugs/modalg/bug338 | 6 +- tests/bugs/modalg/bug340 | 2 +- tests/bugs/modalg/bug341 | 2 +- tests/bugs/modalg/bug347_1 | 2 +- tests/bugs/modalg/bug347_2 | 2 +- tests/bugs/modalg/bug356 | 2 +- tests/bugs/modalg/bug357 | 4 +- tests/bugs/modalg/bug358 | 4 +- tests/bugs/modalg/bug397 | 2 +- tests/bugs/modalg/bug409 | 4 +- tests/bugs/modalg/bug410_1 | 4 +- tests/bugs/modalg/bug410_2 | 4 +- tests/bugs/modalg/bug410_3 | 4 +- tests/bugs/modalg/bug410_4 | 4 +- tests/bugs/modalg/bug411 | 4 +- tests/bugs/modalg/bug412 | 4 +- tests/bugs/modalg/bug413_1 | 4 +- tests/bugs/modalg/bug413_2 | 4 +- tests/bugs/modalg/bug415 | 4 +- tests/bugs/modalg/bug416 | 4 +- tests/bugs/modalg/bug417 | 4 +- tests/bugs/modalg/bug418_1 | 8 +- tests/bugs/modalg/bug418_2 | 6 +- tests/bugs/modalg/bug419 | 8 +- tests/bugs/modalg/bug420 | 6 +- tests/bugs/modalg/bug423_1 | 4 +- tests/bugs/modalg/bug423_2 | 4 +- tests/bugs/modalg/bug426 | 34 ++++++ tests/bugs/modalg/bug439 | 4 +- tests/bugs/modalg/bug442 | 2 +- tests/bugs/modalg/bug449 | 4 +- tests/bugs/modalg/bug4717_1 | 44 ++++++++ tests/bugs/modalg/bug4717_2 | 44 ++++++++ tests/bugs/modalg/bug4717_3 | 44 ++++++++ tests/bugs/modalg/bug4717_4 | 44 ++++++++ tests/bugs/modalg/bug4717_5 | 44 ++++++++ tests/bugs/modalg/bug4717_6 | 44 ++++++++ tests/bugs/modalg/bug4717_7 | 44 ++++++++ tests/bugs/modalg/bug4717_8 | 44 ++++++++ tests/bugs/modalg/bug472_1 | 4 +- tests/bugs/modalg/bug472_2 | 4 +- tests/bugs/modalg/bug472_3 | 4 +- tests/bugs/modalg/bug476_1 | 32 ++++++ tests/bugs/modalg/bug476_2 | 33 ++++++ tests/bugs/modalg/bug476_3 | 33 ++++++ tests/bugs/modalg/bug476_4 | 32 ++++++ tests/bugs/modalg/bug476_5 | 32 ++++++ tests/bugs/modalg/bug476_6 | 32 ++++++ tests/bugs/modalg/bug476_7 | 32 ++++++ tests/bugs/modalg/bug476_8 | 32 ++++++ tests/bugs/modalg/bug481 | 2 +- tests/bugs/modalg/bug485 | 4 +- tests/bugs/modalg/bug488 | 4 +- tests/bugs/modalg/bug490 | 4 +- tests/bugs/modalg/bug492 | 4 +- tests/bugs/modalg/bug497_1 | 4 +- tests/bugs/modalg/bug497_2 | 4 +- tests/bugs/modalg/bug497_3 | 4 +- tests/bugs/modalg/bug497_4 | 4 +- tests/bugs/modalg/bug497_5 | 4 +- tests/bugs/modalg/bug4993_1 | 32 ++++++ tests/bugs/modalg/bug4993_2 | 32 ++++++ tests/bugs/modalg/bug500 | 4 +- tests/bugs/modalg/bug526 | 33 ++++++ tests/bugs/modalg/bug527 | 16 +++ tests/bugs/modalg/bug528 | 23 ++++ tests/bugs/modalg/bug530 | 29 +++++ tests/bugs/modalg/bug534_1 | 27 +++++ tests/bugs/modalg/bug534_2 | 29 +++++ tests/bugs/modalg/bug534_3 | 26 +++++ tests/bugs/modalg/bug534_4 | 26 +++++ tests/bugs/modalg/bug534_5 | 25 +++++ tests/bugs/modalg/bug534_6 | 27 +++++ tests/bugs/modalg/bug535 | 35 ++++++ tests/bugs/modalg/bug548 | 31 +++++ tests/bugs/modalg/bug571_1 | 2 +- tests/bugs/modalg/bug571_2 | 2 +- tests/bugs/modalg/bug57_1 | 4 +- tests/bugs/modalg/bug57_2 | 4 +- tests/bugs/modalg/bug59_1 | 4 +- tests/bugs/modalg/bug59_2 | 4 +- tests/bugs/modalg/bug600 | 4 +- tests/bugs/modalg/bug602 | 2 +- tests/bugs/modalg/bug605 | 4 +- tests/bugs/modalg/bug615 | 2 +- tests/bugs/modalg/bug616 | 4 +- tests/bugs/modalg/bug62 | 12 +- tests/bugs/modalg/bug620_1 | 4 +- tests/bugs/modalg/bug620_2 | 4 +- tests/bugs/modalg/bug625 | 4 +- tests/bugs/modalg/bug629 | 4 +- tests/bugs/modalg/bug636 | 6 +- tests/bugs/modalg/bug637_1 | 6 +- tests/bugs/modalg/bug637_2 | 6 +- tests/bugs/modalg/bug67 | 2 +- tests/bugs/modalg/bug673 | 4 +- tests/bugs/modalg/bug68_1 | 2 +- tests/bugs/modalg/bug68_2 | 2 +- tests/bugs/modalg/bug693 | 16 +-- tests/bugs/modalg/bug693_1 | 78 +++++++++++++ tests/bugs/modalg/bug697_1 | 4 +- tests/bugs/modalg/bug697_2 | 4 +- tests/bugs/modalg/bug698 | 4 +- tests/bugs/modalg/bug712_1 | 2 +- tests/bugs/modalg/bug714 | 2 +- tests/bugs/modalg/bug726_1 | 4 +- tests/bugs/modalg/bug726_2 | 4 +- tests/bugs/modalg/bug743 | 4 +- tests/bugs/modalg/bug745_1 | 4 +- tests/bugs/modalg/bug745_11 | 2 +- tests/bugs/modalg/bug745_12 | 4 +- tests/bugs/modalg/bug745_13 | 25 +++++ tests/bugs/modalg/bug745_2 | 2 +- tests/bugs/modalg/bug745_3 | 29 +++++ tests/bugs/modalg/bug745_4 | 4 +- tests/bugs/modalg/bug745_5 | 24 ++++ tests/bugs/modalg/bug745_6 | 4 +- tests/bugs/modalg/bug745_7 | 4 +- tests/bugs/modalg/bug745_8 | 4 +- tests/bugs/modalg/bug745_9 | 4 +- tests/bugs/modalg/bug748 | 4 +- tests/bugs/modalg/bug755_1 | 4 +- tests/bugs/modalg/bug758 | 8 +- tests/bugs/modalg/bug763 | 4 +- tests/bugs/modalg/bug77 | 4 +- tests/bugs/modalg/bug770 | 8 +- tests/bugs/modalg/bug771 | 8 +- tests/bugs/modalg/bug772 | 4 +- tests/bugs/modalg/bug774_1 | 4 +- tests/bugs/modalg/bug774_2 | 4 +- tests/bugs/modalg/bug775 | 4 +- tests/bugs/modalg/bug776_1 | 4 +- tests/bugs/modalg/bug776_2 | 4 +- tests/bugs/modalg/bug778_1 | 4 +- tests/bugs/modalg/bug778_2 | 4 +- tests/bugs/modalg/bug779 | 6 +- tests/bugs/modalg/bug78 | 4 +- tests/bugs/modalg/bug780_1 | 4 +- tests/bugs/modalg/bug780_2 | 4 +- tests/bugs/modalg/bug80 | 2 +- tests/bugs/modalg/bug81 | 2 +- tests/bugs/modalg/bug817_1 | 32 ++++++ tests/bugs/modalg/bug817_2 | 28 +++++ tests/bugs/modalg/bug817_3 | 29 +++++ tests/bugs/modalg/bug82 | 2 +- tests/bugs/modalg/bug822_1 | 12 +- tests/bugs/modalg/bug822_2 | 15 +-- tests/bugs/modalg/bug823 | 14 +-- tests/bugs/modalg/bug823_1 | 4 +- tests/bugs/modalg/bug824 | 14 ++- tests/bugs/modalg/bug824_1 | 4 +- tests/bugs/modalg/bug825 | 34 +++--- tests/bugs/modalg/bug825_1 | 4 +- tests/bugs/modalg/bug825_2 | 4 +- tests/bugs/modalg/bug826 | 11 +- tests/bugs/modalg/bug826_1 | 4 +- tests/bugs/modalg/bug827 | 10 +- tests/bugs/modalg/bug827_1 | 56 +++++---- tests/bugs/modalg/bug827_2 | 35 +++--- tests/bugs/modalg/bug827_3 | 43 +++++++ tests/bugs/modalg/bug828 | 2 +- tests/bugs/modalg/bug829_1 | 4 +- tests/bugs/modalg/bug829_2 | 4 +- tests/bugs/modalg/bug83_1 | 4 +- tests/bugs/modalg/bug83_2 | 4 +- tests/bugs/modalg/bug86 | 4 +- tests/bugs/modalg/bug87 | 4 +- tests/bugs/modalg/{dxf906 => bug889} | 1 - tests/bugs/modalg/bug890 | 4 +- tests/bugs/modalg/bug910 | 4 +- tests/bugs/modalg/bug919 | 4 +- tests/bugs/modalg/bug951_1 | 38 +++++++ tests/bugs/modalg/bug951_2 | 39 +++++++ tests/bugs/modalg/bug951_3 | 39 +++++++ tests/bugs/modalg/bug951_4 | 39 +++++++ tests/bugs/modalg/fra62369 | 2 +- tests/bugs/modalg/pro16983 | 2 +- tests/bugs/modalg/pro18892 | 2 +- tests/bugs/modalg/pro19424 | 4 +- tests/bugs/modalg/pro19626 | 4 +- tests/bugs/modalg/pro19653 | 4 +- tests/bugs/moddata/buc60609 | 26 +++++ tests/bugs/moddata/buc60623_3 | 4 +- tests/bugs/moddata/buc60637 | 0 tests/bugs/moddata/buc60652_1 | 2 +- tests/bugs/moddata/buc60652_2 | 2 +- tests/bugs/moddata/buc60652_3 | 2 +- tests/bugs/moddata/buc60652_4 | 2 +- tests/bugs/moddata/buc60667 | 2 +- tests/bugs/moddata/buc60707 | 2 +- tests/bugs/moddata/buc60729 | 0 tests/bugs/moddata/buc60755 | 4 +- tests/bugs/moddata/buc60769 | 2 +- tests/bugs/moddata/buc60825 | 2 +- tests/bugs/moddata/buc60828 | 0 tests/bugs/moddata/buc60842 | 0 tests/bugs/moddata/buc60848 | 2 +- tests/bugs/moddata/buc60852 | 0 tests/bugs/moddata/buc60854 | 0 tests/bugs/moddata/buc60868 | 4 +- tests/bugs/moddata/buc60870 | 0 tests/bugs/moddata/buc60889 | 0 tests/bugs/moddata/buc60895 | 2 +- tests/bugs/moddata/buc60897 | 0 tests/bugs/moddata/buc60911 | 0 tests/bugs/moddata/buc60924 | 0 tests/bugs/moddata/buc60955 | 2 +- tests/bugs/moddata/buc60960 | 0 tests/bugs/moddata/buc60965 | 0 tests/bugs/moddata/buc60967 | 0 tests/bugs/moddata/buc60968 | 0 tests/bugs/moddata/buc61006 | 0 tests/bugs/moddata/bug104 | 4 +- tests/bugs/moddata/bug1048 | 23 ++++ tests/bugs/moddata/bug105 | 2 +- tests/bugs/moddata/bug107 | 4 +- tests/bugs/moddata/bug119 | 4 +- tests/bugs/moddata/bug12 | 2 +- tests/bugs/moddata/bug126 | 4 +- tests/bugs/moddata/bug130 | 2 +- tests/bugs/moddata/bug134_1 | 4 +- tests/bugs/moddata/bug134_2 | 4 +- tests/bugs/moddata/bug135 | 4 +- tests/bugs/moddata/bug15 | 2 +- tests/bugs/moddata/bug150_1 | 6 +- tests/bugs/moddata/bug150_2 | 6 +- tests/bugs/moddata/bug151_1 | 6 +- tests/bugs/moddata/bug151_2 | 6 +- tests/bugs/moddata/bug152_1 | 6 +- tests/bugs/moddata/bug152_2 | 6 +- tests/bugs/moddata/bug160_1 | 6 +- tests/bugs/moddata/bug160_2 | 6 +- tests/bugs/moddata/bug160_3 | 6 +- tests/bugs/moddata/bug160_4 | 6 +- tests/bugs/moddata/bug160_5 | 6 +- tests/bugs/moddata/bug160_6 | 6 +- tests/bugs/moddata/bug163 | 2 +- tests/bugs/moddata/bug164_1 | 6 +- tests/bugs/moddata/bug164_2 | 6 +- tests/bugs/moddata/bug165_1 | 4 +- tests/bugs/moddata/bug165_2 | 12 +- tests/bugs/moddata/bug165_3 | 14 +-- tests/bugs/moddata/bug17 | 2 +- tests/bugs/moddata/bug175 | 2 +- tests/bugs/moddata/bug183_1 | 6 +- tests/bugs/moddata/bug183_2 | 6 +- tests/bugs/moddata/bug183_3 | 6 +- tests/bugs/moddata/bug183_4 | 6 +- tests/bugs/moddata/bug183_5 | 6 +- tests/bugs/moddata/bug183_6 | 6 +- tests/bugs/moddata/bug188 | 6 +- tests/bugs/moddata/bug188_1 | 6 +- tests/bugs/moddata/bug20 | 2 +- tests/bugs/moddata/bug211_1 | 2 +- tests/bugs/moddata/bug211_2 | 2 +- tests/bugs/moddata/bug217 | 2 +- tests/bugs/moddata/bug227_1 | 6 +- tests/bugs/moddata/bug227_2 | 6 +- tests/bugs/moddata/bug228 | 4 +- tests/bugs/moddata/bug252_1 | 2 +- tests/bugs/moddata/bug252_2 | 2 +- tests/bugs/moddata/bug252_3 | 2 +- tests/bugs/moddata/bug254 | 6 +- tests/bugs/moddata/bug256 | 2 +- tests/bugs/moddata/bug257 | 2 +- tests/bugs/moddata/bug258_1 | 2 +- tests/bugs/moddata/bug258_2 | 2 +- tests/bugs/moddata/bug259 | 2 +- tests/bugs/moddata/bug266 | 4 +- tests/bugs/moddata/bug268 | 2 +- tests/bugs/moddata/bug26_1 | 4 +- tests/bugs/moddata/bug26_2 | 4 +- tests/bugs/moddata/bug276 | 2 +- tests/bugs/moddata/bug278_1 | 2 +- tests/bugs/moddata/bug278_2 | 2 +- tests/bugs/moddata/bug27_1 | 2 +- tests/bugs/moddata/bug27_2 | 2 +- tests/bugs/moddata/bug28_1 | 6 +- tests/bugs/moddata/bug28_2 | 6 +- tests/bugs/moddata/bug31 | 8 +- tests/bugs/moddata/bug332 | 4 +- tests/bugs/moddata/bug354_1 | 2 +- tests/bugs/moddata/bug354_2 | 2 +- tests/bugs/moddata/bug368 | 2 +- tests/bugs/moddata/bug372 | 31 +++++ tests/bugs/moddata/bug37_1 | 6 +- tests/bugs/moddata/bug37_2 | 6 +- tests/bugs/moddata/bug3_1 | 6 +- tests/bugs/moddata/bug3_2 | 6 +- tests/bugs/moddata/bug4 | 4 +- tests/bugs/moddata/bug408 | 2 +- tests/bugs/moddata/bug42 | 4 +- tests/bugs/moddata/bug432 | 2 +- tests/bugs/moddata/bug466 | 2 +- tests/bugs/moddata/bug469 | 2 +- tests/bugs/moddata/bug486 | 33 ++++++ tests/bugs/moddata/bug496 | 4 +- tests/bugs/moddata/bug50 | 4 +- tests/bugs/moddata/bug505 | 4 +- tests/bugs/moddata/bug513 | 23 ++++ tests/bugs/moddata/bug515 | 27 +++++ tests/bugs/moddata/bug525 | 23 ++++ tests/bugs/moddata/bug531 | 16 +++ tests/bugs/moddata/bug537 | 27 +++++ tests/bugs/moddata/bug54 | 2 +- tests/bugs/moddata/bug541 | 20 ++++ tests/bugs/moddata/bug542 | 28 +++++ tests/bugs/moddata/bug565 | 53 +++++++++ tests/bugs/moddata/bug567 | 52 +++++++++ tests/bugs/moddata/bug569 | 33 ++++++ tests/bugs/moddata/bug593 | 54 +++++++++ tests/bugs/moddata/bug601 | 26 +++++ tests/bugs/moddata/bug604 | 35 ++++++ tests/bugs/moddata/bug611_1 | 21 ++++ tests/bugs/moddata/bug611_2 | 22 ++++ tests/bugs/moddata/bug611_3 | 21 ++++ tests/bugs/moddata/bug613_1 | 26 +++++ tests/bugs/moddata/bug613_2 | 26 +++++ tests/bugs/moddata/bug618 | 4 +- tests/bugs/moddata/bug65 | 4 +- tests/bugs/moddata/bug703 | 22 ++++ tests/bugs/moddata/bug726_3 | 24 ++++ tests/bugs/moddata/bug736 | 21 ++++ tests/bugs/moddata/bug747 | 20 ++++ tests/bugs/moddata/bug76 | 4 +- tests/bugs/moddata/bug766 | 21 ++++ tests/bugs/moddata/bug8 | 2 +- tests/bugs/moddata/bug813 | 24 ++++ tests/bugs/moddata/bug814 | 23 ++++ tests/bugs/moddata/bug862 | 21 ++++ tests/bugs/moddata/bug867 | 24 ++++ tests/bugs/moddata/bug88 | 4 +- tests/bugs/moddata/bug889 | 22 ++++ tests/bugs/moddata/bug909 | 27 +++++ tests/bugs/moddata/bug921 | 72 ++++++++++++ tests/bugs/moddata/bug935_1 | 33 ++++++ tests/bugs/moddata/bug935_2 | 32 ++++++ tests/bugs/moddata/bug943_1 | 36 ++++++ tests/bugs/moddata/bug943_2 | 36 ++++++ tests/bugs/moddata/bug956_1 | 25 +++++ tests/bugs/moddata/bug956_2 | 26 +++++ tests/bugs/moddata/fra62476_1 | 2 +- tests/bugs/moddata/fra62476_2 | 2 +- tests/bugs/moddata/ger61235 | 6 +- tests/bugs/moddata/pro19422_1 | 4 +- tests/bugs/moddata/pro19422_2 | 4 +- tests/bugs/moddata/pro20333 | 2 +- tests/bugs/step/buc60624 | 2 +- tests/bugs/step/buc60809 | 4 +- tests/bugs/step/buc60810 | 0 tests/bugs/step/buc60906 | 4 +- tests/bugs/step/buc60948 | 4 +- tests/bugs/step/bug272_7 | 2 +- tests/bugs/step/bug348_1 | 2 +- tests/bugs/step/bug348_2 | 2 +- tests/bugs/step/bug348_3 | 2 +- tests/bugs/step/bug348_4 | 2 +- tests/bugs/step/bug365_2 | 4 +- tests/bugs/step/bug51 | 2 +- tests/bugs/step/bug55 | 2 +- tests/bugs/step/bug609 | 28 +++++ tests/bugs/step/bug630 | 25 +++++ tests/bugs/step/bug725 | 14 +++ tests/bugs/step/bug725_1 | 26 +++++ tests/bugs/step/bug926 | 39 +++++++ tests/bugs/step/pro19854 | 8 +- tests/bugs/step/pro19895 | 4 +- tests/bugs/step/pro20361_1 | 0 tests/bugs/step/pro20361_2 | 4 +- tests/bugs/step/pro20361_3 | 4 +- tests/bugs/step/pro20362 | 8 +- tests/bugs/vis/buc60547 | 22 ++++ tests/bugs/vis/buc60574 | 36 ++++++ tests/bugs/vis/buc60587 | 31 +++++ tests/bugs/vis/buc60614 | 16 +++ tests/bugs/vis/buc60632_1 | 32 ++++++ tests/bugs/vis/buc60632_2 | 32 ++++++ tests/bugs/vis/buc60659 | 16 +++ tests/bugs/vis/buc60661 | 48 ++++++++ tests/bugs/vis/buc60688 | 37 ++++++ tests/bugs/vis/buc60701 | 11 ++ tests/bugs/vis/buc60738 | 35 ++++++ tests/bugs/vis/buc60740 | 29 +++++ tests/bugs/vis/buc60747 | 25 +++++ tests/bugs/vis/buc60753 | 20 ++++ tests/bugs/vis/buc60774 | 14 +++ tests/bugs/vis/buc60814 | 31 +++++ tests/bugs/vis/buc60818 | 9 ++ tests/bugs/vis/buc60821 | 23 ++++ tests/bugs/vis/buc60830_1 | 17 +++ tests/bugs/vis/buc60830_2 | 15 +++ tests/bugs/vis/buc60830_3 | 16 +++ tests/bugs/vis/buc60832 | 21 ++++ tests/bugs/vis/buc60851 | 14 +++ tests/bugs/vis/buc60857 | 89 +++++++++++++++ tests/bugs/vis/buc60858 | 37 ++++++ tests/bugs/vis/buc60876 | 21 ++++ tests/bugs/vis/buc60887 | 20 ++++ tests/bugs/vis/buc60915 | 31 +++++ tests/bugs/vis/buc60920 | 22 ++++ tests/bugs/vis/bug112_1 | 2 +- tests/bugs/vis/bug173_1 | 2 +- tests/bugs/vis/bug173_2 | 2 +- tests/bugs/vis/bug173_3 | 2 +- tests/bugs/vis/bug19_1 | 2 +- tests/bugs/vis/bug19_2 | 2 +- tests/bugs/vis/bug288_1 | 2 +- tests/bugs/vis/bug288_2 | 2 +- tests/bugs/vis/bug288_3 | 2 +- tests/bugs/vis/bug288_4 | 2 +- tests/bugs/vis/bug288_5 | 2 +- tests/bugs/vis/bug344 | 2 +- tests/bugs/vis/bug364 | 2 +- tests/bugs/vis/bug378 | 23 ++++ tests/bugs/vis/bug443 | 22 ++++ tests/bugs/vis/bug451 | 34 ++++++ tests/bugs/vis/bug591 | 25 +++++ tests/bugs/vis/bug597_1 | 52 +++++++++ tests/bugs/vis/bug597_2 | 41 +++++++ tests/bugs/vis/bug597_3 | 46 ++++++++ tests/bugs/vis/bug597_4 | 56 +++++++++ tests/bugs/vis/bug597_5 | 59 ++++++++++ tests/bugs/vis/bug597_6 | 49 ++++++++ tests/bugs/vis/bug597_7 | 51 +++++++++ tests/bugs/vis/bug641 | 28 +++++ tests/bugs/vis/bug708 | 18 +++ tests/bugs/vis/bug727 | 38 +++++++ tests/bugs/vis/bug872 | 21 ++++ tests/bugs/vis/ger61351_1 | 20 ++++ tests/bugs/vis/ger61351_2 | 24 ++++ tests/bugs/vis/ger61351_3 | 22 ++++ tests/bugs/vis/ger61351_4 | 30 +++++ tests/bugs/vis/ger61351_5 | 30 +++++ tests/bugs/vis/ger61351_6 | 22 ++++ tests/bugs/vis/pro20342 | 24 ++++ tests/bugs/xde/bug125_1 | 2 +- tests/bugs/xde/bug125_2 | 2 +- tests/bugs/xde/bug168 | 2 +- tests/bugs/xde/bug169 | 2 +- tests/bugs/xde/bug184 | 4 +- tests/bugs/xde/bug2 | 2 +- tests/bugs/xde/bug23384 | 0 tests/bugs/xde/bug321 | 6 +- tests/bugs/xde/bug34 | 2 +- tests/bugs/xde/bug445 | 2 +- tests/bugs/xde/bug547_1 | 33 ++++++ tests/bugs/xde/bug547_2 | 32 ++++++ tests/bugs/xde/bug659 | 42 +++++++ tests/bugs/xde/bug660 | 23 ++++ tests/bugs/xde/bug810 | 17 +++ tests/bugs/xde/bug816_1 | 24 ++++ tests/bugs/xde/bug816_2 | 23 ++++ tests/bugs/xde/bug859 | 23 ++++ tests/bugs/xde/bug861 | 22 ++++ tests/bugs/xde/bug901 | 58 ++++++++++ tests/bugs/xde/bug904 | 26 +++++ tests/bugs/xde/bug991 | 18 +++ 711 files changed, 7152 insertions(+), 975 deletions(-) mode change 100644 => 100755 tests/bugs/caf/buc60921 create mode 100755 tests/bugs/caf/bug1029 create mode 100755 tests/bugs/caf/bug1030 create mode 100755 tests/bugs/caf/bug1031 create mode 100755 tests/bugs/caf/bug1032 create mode 100755 tests/bugs/caf/bug1033 create mode 100755 tests/bugs/caf/bug1034 mode change 100644 => 100755 tests/bugs/caf/bug114 create mode 100755 tests/bugs/caf/bug170_3 create mode 100755 tests/bugs/caf/bug5023 create mode 100755 tests/bugs/caf/bug669 create mode 100755 tests/bugs/caf/bug738_1 create mode 100755 tests/bugs/caf/bug738_2 create mode 100755 tests/bugs/caf/bug739 mode change 100644 => 100755 tests/bugs/demo/bug23409 mode change 100644 => 100755 tests/bugs/demo/bug23416 create mode 100755 tests/bugs/fclasses/bug11568_1 create mode 100755 tests/bugs/fclasses/bug11568_2 mode change 100644 => 100755 tests/bugs/fclasses/bug23237 mode change 100644 => 100755 tests/bugs/fclasses/bug23403 create mode 100755 tests/bugs/fclasses/bug670 create mode 100755 tests/bugs/fclasses/bug6794 create mode 100755 tests/bugs/fclasses/bug710 create mode 100755 tests/bugs/fclasses/bug7287_1 create mode 100755 tests/bugs/fclasses/bug7287_2 create mode 100755 tests/bugs/fclasses/bug7287_3 create mode 100755 tests/bugs/fclasses/bug7287_4 create mode 100755 tests/bugs/fclasses/bug7287_5 create mode 100755 tests/bugs/fclasses/bug7287_6 create mode 100755 tests/bugs/fclasses/bug7639 create mode 100755 tests/bugs/fclasses/bug902 create mode 100755 tests/bugs/fclasses/bug984 create mode 100755 tests/bugs/fclasses/bug9848_1 create mode 100755 tests/bugs/fclasses/bug9848_2 create mode 100755 tests/bugs/fclasses/bug984_1 mode change 100644 => 100755 tests/bugs/heal/buc60940 mode change 100644 => 100755 tests/bugs/heal/buc60950 create mode 100755 tests/bugs/heal/bug1642 create mode 100755 tests/bugs/heal/bug210 create mode 100755 tests/bugs/heal/bug22 create mode 100755 tests/bugs/heal/bug518 create mode 100755 tests/bugs/heal/bug884 mode change 100644 => 100755 tests/bugs/iges/buc60591_1 mode change 100644 => 100755 tests/bugs/iges/buc60591_2 mode change 100644 => 100755 tests/bugs/iges/buc60591_3 mode change 100644 => 100755 tests/bugs/iges/buc60591_4 mode change 100644 => 100755 tests/bugs/iges/buc60594 mode change 100644 => 100755 tests/bugs/iges/buc60595_1 mode change 100644 => 100755 tests/bugs/iges/buc60595_2 mode change 100644 => 100755 tests/bugs/iges/buc60595_3 mode change 100644 => 100755 tests/bugs/iges/buc60610 mode change 100644 => 100755 tests/bugs/iges/buc60625 mode change 100644 => 100755 tests/bugs/iges/buc60646 mode change 100644 => 100755 tests/bugs/iges/buc60686 mode change 100644 => 100755 tests/bugs/iges/buc60687 mode change 100644 => 100755 tests/bugs/iges/buc60820_1 mode change 100644 => 100755 tests/bugs/iges/buc60820_2 mode change 100644 => 100755 tests/bugs/iges/buc60823 mode change 100644 => 100755 tests/bugs/iges/buc60850 mode change 100644 => 100755 tests/bugs/iges/buc60894 mode change 100644 => 100755 tests/bugs/iges/buc60949 mode change 100644 => 100755 tests/bugs/iges/bug22888 mode change 100644 => 100755 tests/bugs/iges/bug23377 create mode 100755 tests/bugs/iges/bug514 create mode 100755 tests/bugs/iges/bug700 mode change 100644 => 100755 tests/bugs/iges/fra62523 mode change 100644 => 100755 tests/bugs/iges/ger61337 mode change 100644 => 100755 tests/bugs/modalg/buc60409_1 mode change 100644 => 100755 tests/bugs/modalg/buc60409_2 mode change 100644 => 100755 tests/bugs/modalg/buc60409_3 mode change 100644 => 100755 tests/bugs/modalg/buc60523 mode change 100644 => 100755 tests/bugs/modalg/buc60531_1 mode change 100644 => 100755 tests/bugs/modalg/buc60531_2 mode change 100644 => 100755 tests/bugs/modalg/buc60532 mode change 100644 => 100755 tests/bugs/modalg/buc60532_1 mode change 100644 => 100755 tests/bugs/modalg/buc60532_2 mode change 100644 => 100755 tests/bugs/modalg/buc60533 mode change 100644 => 100755 tests/bugs/modalg/buc60555_1 mode change 100644 => 100755 tests/bugs/modalg/buc60585_2 mode change 100644 => 100755 tests/bugs/modalg/buc60623_1 mode change 100644 => 100755 tests/bugs/modalg/buc60623_2 mode change 100644 => 100755 tests/bugs/modalg/buc60635 mode change 100644 => 100755 tests/bugs/modalg/buc60663_1 mode change 100644 => 100755 tests/bugs/modalg/buc60668 mode change 100644 => 100755 tests/bugs/modalg/buc60684 mode change 100644 => 100755 tests/bugs/modalg/buc60703_2 mode change 100644 => 100755 tests/bugs/modalg/buc60703_3 mode change 100644 => 100755 tests/bugs/modalg/buc60703_4 mode change 100644 => 100755 tests/bugs/modalg/buc60704 mode change 100644 => 100755 tests/bugs/modalg/buc60714 mode change 100644 => 100755 tests/bugs/modalg/buc60728 mode change 100644 => 100755 tests/bugs/modalg/buc60776_1 mode change 100644 => 100755 tests/bugs/modalg/buc60776_2 mode change 100644 => 100755 tests/bugs/modalg/buc60782_1 mode change 100644 => 100755 tests/bugs/modalg/buc60782_3 mode change 100644 => 100755 tests/bugs/modalg/buc60788_1 mode change 100644 => 100755 tests/bugs/modalg/buc60801 mode change 100644 => 100755 tests/bugs/modalg/buc60803 mode change 100644 => 100755 tests/bugs/modalg/buc60839 mode change 100644 => 100755 tests/bugs/modalg/buc60841 mode change 100644 => 100755 tests/bugs/modalg/buc60849 mode change 100644 => 100755 tests/bugs/modalg/buc60865 mode change 100644 => 100755 tests/bugs/modalg/buc60881 mode change 100644 => 100755 tests/bugs/modalg/buc60899_1 mode change 100644 => 100755 tests/bugs/modalg/buc60899_2 mode change 100644 => 100755 tests/bugs/modalg/buc60901 mode change 100644 => 100755 tests/bugs/modalg/buc60905 mode change 100644 => 100755 tests/bugs/modalg/buc60909 mode change 100644 => 100755 tests/bugs/modalg/buc60927 mode change 100644 => 100755 tests/bugs/modalg/buc60930 mode change 100644 => 100755 tests/bugs/modalg/buc60934 mode change 100644 => 100755 tests/bugs/modalg/buc60942 mode change 100644 => 100755 tests/bugs/modalg/buc60971 create mode 100755 tests/bugs/modalg/bug118 create mode 100755 tests/bugs/modalg/bug1665 create mode 100755 tests/bugs/modalg/bug212 create mode 100755 tests/bugs/modalg/bug212_3 create mode 100755 tests/bugs/modalg/bug213 mode change 100644 => 100755 tests/bugs/modalg/bug23137_1 mode change 100644 => 100755 tests/bugs/modalg/bug23137_2 mode change 100644 => 100755 tests/bugs/modalg/bug23394 mode change 100644 => 100755 tests/bugs/modalg/bug23429 create mode 100755 tests/bugs/modalg/bug426 create mode 100755 tests/bugs/modalg/bug4717_1 create mode 100755 tests/bugs/modalg/bug4717_2 create mode 100755 tests/bugs/modalg/bug4717_3 create mode 100755 tests/bugs/modalg/bug4717_4 create mode 100755 tests/bugs/modalg/bug4717_5 create mode 100755 tests/bugs/modalg/bug4717_6 create mode 100755 tests/bugs/modalg/bug4717_7 create mode 100755 tests/bugs/modalg/bug4717_8 create mode 100755 tests/bugs/modalg/bug476_1 create mode 100755 tests/bugs/modalg/bug476_2 create mode 100755 tests/bugs/modalg/bug476_3 create mode 100755 tests/bugs/modalg/bug476_4 create mode 100755 tests/bugs/modalg/bug476_5 create mode 100755 tests/bugs/modalg/bug476_6 create mode 100755 tests/bugs/modalg/bug476_7 create mode 100755 tests/bugs/modalg/bug476_8 create mode 100755 tests/bugs/modalg/bug4993_1 create mode 100755 tests/bugs/modalg/bug4993_2 create mode 100755 tests/bugs/modalg/bug526 create mode 100755 tests/bugs/modalg/bug527 create mode 100755 tests/bugs/modalg/bug528 create mode 100755 tests/bugs/modalg/bug530 create mode 100755 tests/bugs/modalg/bug534_1 create mode 100755 tests/bugs/modalg/bug534_2 create mode 100755 tests/bugs/modalg/bug534_3 create mode 100755 tests/bugs/modalg/bug534_4 create mode 100755 tests/bugs/modalg/bug534_5 create mode 100755 tests/bugs/modalg/bug534_6 create mode 100755 tests/bugs/modalg/bug535 create mode 100755 tests/bugs/modalg/bug548 create mode 100755 tests/bugs/modalg/bug693_1 create mode 100755 tests/bugs/modalg/bug745_13 create mode 100755 tests/bugs/modalg/bug745_3 create mode 100755 tests/bugs/modalg/bug745_5 create mode 100755 tests/bugs/modalg/bug817_1 create mode 100755 tests/bugs/modalg/bug817_2 create mode 100755 tests/bugs/modalg/bug817_3 create mode 100755 tests/bugs/modalg/bug827_3 rename tests/bugs/modalg/{dxf906 => bug889} (99%) create mode 100755 tests/bugs/modalg/bug951_1 create mode 100755 tests/bugs/modalg/bug951_2 create mode 100755 tests/bugs/modalg/bug951_3 create mode 100755 tests/bugs/modalg/bug951_4 mode change 100644 => 100755 tests/bugs/modalg/fra62369 mode change 100644 => 100755 tests/bugs/modalg/pro16983 mode change 100644 => 100755 tests/bugs/modalg/pro19424 mode change 100644 => 100755 tests/bugs/modalg/pro19626 mode change 100644 => 100755 tests/bugs/modalg/pro19653 create mode 100755 tests/bugs/moddata/buc60609 mode change 100644 => 100755 tests/bugs/moddata/buc60637 mode change 100644 => 100755 tests/bugs/moddata/buc60652_1 mode change 100644 => 100755 tests/bugs/moddata/buc60652_2 mode change 100644 => 100755 tests/bugs/moddata/buc60652_3 mode change 100644 => 100755 tests/bugs/moddata/buc60652_4 mode change 100644 => 100755 tests/bugs/moddata/buc60667 mode change 100644 => 100755 tests/bugs/moddata/buc60707 mode change 100644 => 100755 tests/bugs/moddata/buc60729 mode change 100644 => 100755 tests/bugs/moddata/buc60755 mode change 100644 => 100755 tests/bugs/moddata/buc60769 mode change 100644 => 100755 tests/bugs/moddata/buc60825 mode change 100644 => 100755 tests/bugs/moddata/buc60828 mode change 100644 => 100755 tests/bugs/moddata/buc60842 mode change 100644 => 100755 tests/bugs/moddata/buc60848 mode change 100644 => 100755 tests/bugs/moddata/buc60852 mode change 100644 => 100755 tests/bugs/moddata/buc60854 mode change 100644 => 100755 tests/bugs/moddata/buc60868 mode change 100644 => 100755 tests/bugs/moddata/buc60870 mode change 100644 => 100755 tests/bugs/moddata/buc60889 mode change 100644 => 100755 tests/bugs/moddata/buc60895 mode change 100644 => 100755 tests/bugs/moddata/buc60897 mode change 100644 => 100755 tests/bugs/moddata/buc60911 mode change 100644 => 100755 tests/bugs/moddata/buc60924 mode change 100644 => 100755 tests/bugs/moddata/buc60955 mode change 100644 => 100755 tests/bugs/moddata/buc60960 mode change 100644 => 100755 tests/bugs/moddata/buc60965 mode change 100644 => 100755 tests/bugs/moddata/buc60967 mode change 100644 => 100755 tests/bugs/moddata/buc60968 mode change 100644 => 100755 tests/bugs/moddata/buc61006 create mode 100755 tests/bugs/moddata/bug1048 create mode 100755 tests/bugs/moddata/bug372 create mode 100755 tests/bugs/moddata/bug486 create mode 100755 tests/bugs/moddata/bug513 create mode 100755 tests/bugs/moddata/bug515 create mode 100755 tests/bugs/moddata/bug525 create mode 100755 tests/bugs/moddata/bug531 create mode 100755 tests/bugs/moddata/bug537 create mode 100755 tests/bugs/moddata/bug541 create mode 100755 tests/bugs/moddata/bug542 create mode 100755 tests/bugs/moddata/bug565 create mode 100755 tests/bugs/moddata/bug567 create mode 100755 tests/bugs/moddata/bug569 create mode 100755 tests/bugs/moddata/bug593 create mode 100755 tests/bugs/moddata/bug601 create mode 100755 tests/bugs/moddata/bug604 create mode 100755 tests/bugs/moddata/bug611_1 create mode 100755 tests/bugs/moddata/bug611_2 create mode 100755 tests/bugs/moddata/bug611_3 create mode 100755 tests/bugs/moddata/bug613_1 create mode 100755 tests/bugs/moddata/bug613_2 create mode 100755 tests/bugs/moddata/bug703 create mode 100755 tests/bugs/moddata/bug726_3 create mode 100755 tests/bugs/moddata/bug736 create mode 100755 tests/bugs/moddata/bug747 create mode 100755 tests/bugs/moddata/bug766 create mode 100755 tests/bugs/moddata/bug813 create mode 100755 tests/bugs/moddata/bug814 create mode 100755 tests/bugs/moddata/bug862 create mode 100755 tests/bugs/moddata/bug867 create mode 100755 tests/bugs/moddata/bug889 create mode 100755 tests/bugs/moddata/bug909 create mode 100755 tests/bugs/moddata/bug921 create mode 100755 tests/bugs/moddata/bug935_1 create mode 100755 tests/bugs/moddata/bug935_2 create mode 100755 tests/bugs/moddata/bug943_1 create mode 100755 tests/bugs/moddata/bug943_2 create mode 100755 tests/bugs/moddata/bug956_1 create mode 100755 tests/bugs/moddata/bug956_2 mode change 100644 => 100755 tests/bugs/moddata/fra62476_1 mode change 100644 => 100755 tests/bugs/moddata/fra62476_2 mode change 100644 => 100755 tests/bugs/moddata/pro20333 mode change 100644 => 100755 tests/bugs/step/buc60624 mode change 100644 => 100755 tests/bugs/step/buc60809 mode change 100644 => 100755 tests/bugs/step/buc60810 mode change 100644 => 100755 tests/bugs/step/buc60906 mode change 100644 => 100755 tests/bugs/step/buc60948 create mode 100755 tests/bugs/step/bug609 create mode 100755 tests/bugs/step/bug630 create mode 100755 tests/bugs/step/bug725 create mode 100755 tests/bugs/step/bug725_1 create mode 100755 tests/bugs/step/bug926 mode change 100644 => 100755 tests/bugs/step/pro19854 mode change 100644 => 100755 tests/bugs/step/pro19895 mode change 100644 => 100755 tests/bugs/step/pro20361_1 mode change 100644 => 100755 tests/bugs/step/pro20361_2 mode change 100644 => 100755 tests/bugs/step/pro20361_3 mode change 100644 => 100755 tests/bugs/step/pro20362 create mode 100755 tests/bugs/vis/buc60547 create mode 100755 tests/bugs/vis/buc60574 create mode 100755 tests/bugs/vis/buc60587 create mode 100755 tests/bugs/vis/buc60614 create mode 100755 tests/bugs/vis/buc60632_1 create mode 100755 tests/bugs/vis/buc60632_2 create mode 100755 tests/bugs/vis/buc60659 create mode 100755 tests/bugs/vis/buc60661 create mode 100755 tests/bugs/vis/buc60688 create mode 100755 tests/bugs/vis/buc60701 create mode 100755 tests/bugs/vis/buc60738 create mode 100755 tests/bugs/vis/buc60740 create mode 100755 tests/bugs/vis/buc60747 create mode 100755 tests/bugs/vis/buc60753 create mode 100755 tests/bugs/vis/buc60774 create mode 100755 tests/bugs/vis/buc60814 create mode 100755 tests/bugs/vis/buc60818 create mode 100755 tests/bugs/vis/buc60821 create mode 100755 tests/bugs/vis/buc60830_1 create mode 100755 tests/bugs/vis/buc60830_2 create mode 100755 tests/bugs/vis/buc60830_3 create mode 100755 tests/bugs/vis/buc60832 create mode 100755 tests/bugs/vis/buc60851 create mode 100755 tests/bugs/vis/buc60857 create mode 100755 tests/bugs/vis/buc60858 create mode 100755 tests/bugs/vis/buc60876 create mode 100755 tests/bugs/vis/buc60887 create mode 100755 tests/bugs/vis/buc60915 create mode 100755 tests/bugs/vis/buc60920 create mode 100755 tests/bugs/vis/bug378 create mode 100755 tests/bugs/vis/bug443 create mode 100755 tests/bugs/vis/bug451 create mode 100755 tests/bugs/vis/bug591 create mode 100755 tests/bugs/vis/bug597_1 create mode 100755 tests/bugs/vis/bug597_2 create mode 100755 tests/bugs/vis/bug597_3 create mode 100755 tests/bugs/vis/bug597_4 create mode 100755 tests/bugs/vis/bug597_5 create mode 100755 tests/bugs/vis/bug597_6 create mode 100755 tests/bugs/vis/bug597_7 create mode 100755 tests/bugs/vis/bug641 create mode 100755 tests/bugs/vis/bug708 create mode 100755 tests/bugs/vis/bug727 create mode 100755 tests/bugs/vis/bug872 create mode 100755 tests/bugs/vis/ger61351_1 create mode 100755 tests/bugs/vis/ger61351_2 create mode 100755 tests/bugs/vis/ger61351_3 create mode 100755 tests/bugs/vis/ger61351_4 create mode 100755 tests/bugs/vis/ger61351_5 create mode 100755 tests/bugs/vis/ger61351_6 create mode 100755 tests/bugs/vis/pro20342 mode change 100644 => 100755 tests/bugs/xde/bug23384 create mode 100755 tests/bugs/xde/bug547_1 create mode 100755 tests/bugs/xde/bug547_2 create mode 100755 tests/bugs/xde/bug659 create mode 100755 tests/bugs/xde/bug660 create mode 100755 tests/bugs/xde/bug810 create mode 100755 tests/bugs/xde/bug816_1 create mode 100755 tests/bugs/xde/bug816_2 create mode 100755 tests/bugs/xde/bug859 create mode 100755 tests/bugs/xde/bug861 create mode 100755 tests/bugs/xde/bug901 create mode 100755 tests/bugs/xde/bug904 create mode 100755 tests/bugs/xde/bug991 diff --git a/src/QABugs/QABugs_3.cxx b/src/QABugs/QABugs_3.cxx index 3e398ceb9a..6184282bc9 100644 --- a/src/QABugs/QABugs_3.cxx +++ b/src/QABugs/QABugs_3.cxx @@ -1364,7 +1364,6 @@ static Standard_Integer BUC60856(Draw_Interpretor& di, Standard_Integer /*argc*/ return 0; } -#if ! defined(WNT) //#include #ifdef HAVE_FSTREAM # include @@ -1420,7 +1419,6 @@ static Standard_Integer coordload (Draw_Interpretor& di, Standard_Integer argc, DBRep::Set (argv[1],Face); return 0; } -#endif static Standard_Integer TestMem (Draw_Interpretor& /*di*/, Standard_Integer /*nb*/, @@ -2254,9 +2252,7 @@ void QABugs::Commands_3(Draw_Interpretor& theCommands) { theCommands.Add("BUC60856","BUC60856",__FILE__,BUC60856,group); -#if ! defined(WNT) theCommands.Add("coordload","load coord from file",__FILE__,coordload); -#endif theCommands.Add("TestMem","TestMem",__FILE__,TestMem,group); theCommands.Add("BUC60945","BUC60945",__FILE__,TestMem,group); diff --git a/tests/bugs/caf/buc60921 b/tests/bugs/caf/buc60921 old mode 100644 new mode 100755 diff --git a/tests/bugs/caf/bug1029 b/tests/bugs/caf/bug1029 new file mode 100755 index 0000000000..6a2e49bf16 --- /dev/null +++ b/tests/bugs/caf/bug1029 @@ -0,0 +1,96 @@ +puts "================" +puts "OCC1029" +puts "================" +puts "" +# +# Note: Numerical control of setting transparency +# + +pload QAcommands + +NewDocument D MDTV-Standard +UndoLimit D 100 +NewCommand D + +# Create two boxis +box aBox1 100 200 300 +set aLabel1 0:2 +SetShape D ${aLabel1} aBox1 + +box aBox2 50 50 0 100 200 300 +set aLabel2 0:3 +SetShape D ${aLabel2} aBox2 + +# Initialize 3D viewer +AISInitViewer D + +# Add AISPresentation attribute with parameter NS +AISSet D ${aLabel1} NS +AISSet D ${aLabel2} NS + +# Set shading mode +vsetdispmode 1 + +# Set a color of the second shape as NOC_GREEN +AISColor D ${aLabel2} 229 + +# Display presentation of NamedShape in the viewer +AISDisplay D ${aLabel1} +AISDisplay D ${aLabel2} + +# Close/Open transaction +NewCommand D + +# Set a transparency of the second shape +set SetTransparency 0.9 +OCC1029_AISTransparency D ${aLabel2} ${SetTransparency} + +set list [OCC1029_AISTransparency D ${aLabel2}] +set Transparency1 [lindex ${list} [expr [llength ${list}] - 1] ] + +# Close/Open transaction +NewCommand D + +# Undo +Undo D + +# Update the viewer +AISRepaint D + +set list [OCC1029_AISTransparency D ${aLabel2}] +set Transparency2 [lindex ${list} [expr [llength ${list}] - 1] ] + +# Redo +Redo D + +# Update the viewer +AISRepaint D + +set list [OCC1029_AISTransparency D ${aLabel2}] +set Transparency3 [lindex ${list} [expr [llength ${list}] - 1] ] + +# Check the transparency +puts "Transparency1 = ${Transparency1}" +puts "Transparency2 = ${Transparency2}" +puts "Transparency3 = ${Transparency3}" + +set status 0 +if { ${Transparency1} != ${SetTransparency} } { + puts "OCC1029_Transparency command: Error (case 1)" + set status 1 +} + +if { ${Transparency2} != 0. } { + puts "OCC1029_Transparency command: Error (case 2)" + set status 1 +} + +if { ${Transparency3} != ${SetTransparency} } { + puts "OCC1029_Transparency command: Error (case 3)" + set status 1 +} + +if { ${status} == 0} { + puts "OCC1029_Transparency command: OK" +} + diff --git a/tests/bugs/caf/bug1030 b/tests/bugs/caf/bug1030 new file mode 100755 index 0000000000..2c6e965d90 --- /dev/null +++ b/tests/bugs/caf/bug1030 @@ -0,0 +1,94 @@ +puts "================" +puts "OCC1030" +puts "================" +# +# Note: Numerical control of setting color +# + +pload QAcommands + +NewDocument D MDTV-Standard +UndoLimit D 100 +NewCommand D + +# Set NamedShape attribute +box aBox1 100 200 300 +set aLabel 0:2 +SetShape D ${aLabel} aBox1 + +# Initialize 3D viewer +AISInitViewer D + +# Add AISPresentation attribute with parameter NS +AISSet D ${aLabel} NS + +# Display presentation of NamedShape in the viewer +AISDisplay D ${aLabel} + +# Close/Open transaction +NewCommand D + +set list [OCC1030_AISColor D ${aLabel}] +set AISColor1 [lindex ${list} [expr [llength ${list}] - 1] ] + +# Set a color of the shape as NOC_GREEN +set GreenColor 229 +AISColor D ${aLabel} ${GreenColor} + +set list [OCC1030_AISColor D ${aLabel}] +set AISColor2 [lindex ${list} [expr [llength ${list}] - 1] ] + +# Close/Open transaction +NewCommand D + +# Undo +Undo D + +# Update the viewer +AISRepaint D + +set list [OCC1030_AISColor D ${aLabel}] +set AISColor3 [lindex ${list} [expr [llength ${list}] - 1] ] + +# Redo +Redo D + +# Update the viewer +AISRepaint D + +set list [OCC1030_AISColor D ${aLabel}] +set AISColor4 [lindex ${list} [expr [llength ${list}] - 1] ] + +# Check the color +puts "AISColor1 = ${AISColor1}" +puts "AISColor2 = ${AISColor2}" +puts "AISColor3 = ${AISColor3}" +puts "AISColor4 = ${AISColor4}" + +set DefaultAISColor 516 +set status 0 +if { ${AISColor1} != ${DefaultAISColor} } { + puts "OCC1030_AISColor command: Error (case 1)" + set status 1 +} + +if { ${AISColor2} != ${GreenColor} } { + puts "OCC1030_AISColor command: Error (case 2)" + set status 1 +} + +if { ${AISColor3} != ${DefaultAISColor} } { + puts "OCC1030_AISColor command: Error (case 3)" + set status 1 +} + +if { ${AISColor4} != ${GreenColor} } { + puts "OCC1030_AISColor command: Error (case 4)" + set status 1 +} + +if { ${status} == 0} { + puts "OCC1030_AISColor command: OK" +} + + diff --git a/tests/bugs/caf/bug1031 b/tests/bugs/caf/bug1031 new file mode 100755 index 0000000000..a9003a0213 --- /dev/null +++ b/tests/bugs/caf/bug1031 @@ -0,0 +1,96 @@ +puts "================" +puts "OCC1031" +puts "================" +puts "" +# +# Note: Numerical control of setting material +# + +pload QAcommands + +NewDocument D MDTV-Standard +UndoLimit D 100 +NewCommand D + +# Set NamedShape attribute +box aBox1 100 200 300 +set aLabel 0:2 +SetShape D ${aLabel} aBox1 + +# Initialize 3D viewer +AISInitViewer D + +# Add AISPresentation attribute with parameter NS +AISSet D ${aLabel} NS + +# Set shading mode +vsetdispmode 1 + +# Display presentation of NamedShape in the viewer +AISDisplay D ${aLabel} + +# Close/Open transaction +NewCommand D + +set list [OCC1031_AISMaterial D ${aLabel}] +set AISMaterial1 [lindex ${list} [expr [llength ${list}] - 1] ] + +# Set a material of the shape as NOM_JADE +set JadeMaterial 18 +OCC1031_AISMaterial D ${aLabel} ${JadeMaterial} + +set list [OCC1031_AISMaterial D ${aLabel}] +set AISMaterial2 [lindex ${list} [expr [llength ${list}] - 1] ] + +# Close/Open transaction +NewCommand D + +# Undo +Undo D + +# Update the viewer +AISRepaint D + +set list [OCC1031_AISMaterial D ${aLabel}] +set AISMaterial3 [lindex ${list} [expr [llength ${list}] - 1] ] + +# Redo +Redo D + +# Update the viewer +AISRepaint D + +set list [OCC1031_AISMaterial D ${aLabel}] +set AISMaterial4 [lindex ${list} [expr [llength ${list}] - 1] ] + +# Check the material +puts "AISMaterial1 = ${AISMaterial1}" +puts "AISMaterial2 = ${AISMaterial2}" +puts "AISMaterial3 = ${AISMaterial3}" +puts "AISMaterial4 = ${AISMaterial4}" + +set status 0 +if { ${AISMaterial1} != 0 } { + puts "OCC1031_AISMaterial command: Error (case 1)" + set status 1 +} + +if { ${AISMaterial2} != ${JadeMaterial} } { + puts "OCC1031_AISMaterial command: Error (case 2)" + set status 1 +} + +if { ${AISMaterial3} != 0 } { + puts "OCC1031_AISMaterial command: Error (case 3)" + set status 1 +} + +if { ${AISMaterial4} != ${JadeMaterial} } { + puts "OCC1031_AISMaterial command: Error (case 4)" + set status 1 +} + +if { ${status} == 0} { + puts "OCC1031_AISMaterial command: OK" +} + diff --git a/tests/bugs/caf/bug1032 b/tests/bugs/caf/bug1032 new file mode 100755 index 0000000000..d98eba3052 --- /dev/null +++ b/tests/bugs/caf/bug1032 @@ -0,0 +1,94 @@ +puts "================" +puts "OCC1032" +puts "================" +puts "" +# +# Note: Numerical control of setting width +# + +pload QAcommands + +NewDocument D MDTV-Standard +UndoLimit D 100 +NewCommand D + +# Set NamedShape attribute +box aBox1 100 200 300 +set aLabel1 0:2 +SetShape D ${aLabel1} aBox1 + +# Initialize 3D viewer +AISInitViewer D + +# Add AISPresentation attribute with parameter NS +AISSet D ${aLabel1} NS + +# Close/Open transaction +NewCommand D + +set list [OCC1032_AISWidth D ${aLabel1}] +set AISWidth1 [lindex ${list} [expr [llength ${list}] - 1] ] + +# Display presentation of NamedShape in the viewer +AISDisplay D ${aLabel1} + +# Close/Open transaction +NewCommand D + +# Set a width +set SetWidth 4.5 +OCC1032_AISWidth D ${aLabel1} ${SetWidth} + +set list [OCC1032_AISWidth D ${aLabel1}] +set AISWidth2 [lindex ${list} [expr [llength ${list}] - 1] ] + +# Close/Open transaction +NewCommand D + +# Undo +Undo D + +# Update the viewer +AISRepaint D + +set list [OCC1032_AISWidth D ${aLabel1}] +set AISWidth3 [lindex ${list} [expr [llength ${list}] - 1] ] + +# Redo +Redo D + +# Update the viewer +AISRepaint D + +set list [OCC1032_AISWidth D ${aLabel1}] +set AISWidth4 [lindex ${list} [expr [llength ${list}] - 1] ] + +# Check the mode +puts "AISWidth1 = ${AISWidth1}" +puts "AISWidth2 = ${AISWidth2}" +puts "AISWidth3 = ${AISWidth3}" +puts "AISWidth4 = ${AISWidth4}" + +set DefaultAISWidth 0 +set status 0 +if { ${AISWidth1} != ${DefaultAISWidth} } { + puts "OCC1032_AISWidth command: Error (case 1)" + set status 1 +} +if { ${AISWidth2} != ${SetWidth} } { + puts "OCC1032_AISWidth command: Error (case 2)" + set status 1 +} +if { ${AISWidth3} != ${DefaultAISWidth} } { + puts "OCC1032_AISWidth command: Error (case 3)" + set status 1 +} +if { ${AISWidth4} != ${SetWidth} } { + puts "OCC1032_AISWidth command: Error (case 4)" + set status 1 +} + +if { ${status} == 0} { + puts "OCC1032_AISWidth command: OK" +} + diff --git a/tests/bugs/caf/bug1033 b/tests/bugs/caf/bug1033 new file mode 100755 index 0000000000..4edeb2c8c2 --- /dev/null +++ b/tests/bugs/caf/bug1033 @@ -0,0 +1,94 @@ +puts "================" +puts "OCC1033" +puts "================" +puts "" +# +# Note: Numerical control of setting mode +# + +pload QAcommands + +NewDocument D MDTV-Standard +UndoLimit D 100 +NewCommand D + +# Set NamedShape attribute +box aBox1 100 200 300 +set aLabel1 0:2 +SetShape D ${aLabel1} aBox1 + +# Initialize 3D viewer +AISInitViewer D + +# Add AISPresentation attribute with parameter NS +AISSet D ${aLabel1} NS + +# Close/Open transaction +NewCommand D + +set list [OCC1033_AISMode D ${aLabel1}] +set AISMode1 [lindex ${list} [expr [llength ${list}] - 1] ] + +# Display presentation of NamedShape in the viewer +AISDisplay D ${aLabel1} + +# Close/Open transaction +NewCommand D + +# Set a mode +set SetMode 2 +OCC1033_AISMode D ${aLabel1} ${SetMode} + +set list [OCC1033_AISMode D ${aLabel1}] +set AISMode2 [lindex ${list} [expr [llength ${list}] - 1] ] + +# Close/Open transaction +NewCommand D + +# Undo +Undo D + +# Update the viewer +AISRepaint D + +set list [OCC1033_AISMode D ${aLabel1}] +set AISMode3 [lindex ${list} [expr [llength ${list}] - 1] ] + +# Redo +Redo D + +# Update the viewer +AISRepaint D + +set list [OCC1033_AISMode D ${aLabel1}] +set AISMode4 [lindex ${list} [expr [llength ${list}] - 1] ] + +# Check the mode +puts "AISMode1 = ${AISMode1}" +puts "AISMode2 = ${AISMode2}" +puts "AISMode3 = ${AISMode3}" +puts "AISMode4 = ${AISMode4}" + +set DefaultAISMode 0 +set status 0 +if { ${AISMode1} != ${DefaultAISMode} } { + puts "OCC1033_AISMode command: Error (case 1)" + set status 1 +} +if { ${AISMode2} != ${SetMode} } { + puts "OCC1033_AISMode command: Error (case 2)" + set status 1 +} +if { ${AISMode3} != ${DefaultAISMode} } { + puts "OCC1033_AISMode command: Error (case 3)" + set status 1 +} +if { ${AISMode4} != ${SetMode} } { + puts "OCC1033_AISMode command: Error (case 4)" + set status 1 +} + +if { ${status} == 0} { + puts "OCC1033_AISMode command: OK" +} + diff --git a/tests/bugs/caf/bug1034 b/tests/bugs/caf/bug1034 new file mode 100755 index 0000000000..3d342b797a --- /dev/null +++ b/tests/bugs/caf/bug1034 @@ -0,0 +1,94 @@ +puts "================" +puts "OCC1034" +puts "================" +puts "" +# +# Note: Numerical control of setting selection mode +# + +pload QAcommands + +NewDocument D MDTV-Standard +UndoLimit D 100 +NewCommand D + +# Set NamedShape attribute +box aBox1 100 200 300 +set aLabel1 0:2 +SetShape D ${aLabel1} aBox1 + +# Initialize 3D viewer +AISInitViewer D + +# Add AISPresentation attribute with parameter NS +AISSet D ${aLabel1} NS + +# Close/Open transaction +NewCommand D + +set list [OCC1034_AISSelectionMode D ${aLabel1}] +set AISSelectionMode1 [lindex ${list} [expr [llength ${list}] - 1] ] + +# Display presentation of NamedShape in the viewer +AISDisplay D ${aLabel1} + +# Close/Open transaction +NewCommand D + +# Set a mode +set SetSelectionMode 2 +OCC1034_AISSelectionMode D ${aLabel1} ${SetSelectionMode} + +set list [OCC1034_AISSelectionMode D ${aLabel1}] +set AISSelectionMode2 [lindex ${list} [expr [llength ${list}] - 1] ] + +# Close/Open transaction +NewCommand D + +# Undo +Undo D + +# Update the viewer +AISRepaint D + +set list [OCC1034_AISSelectionMode D ${aLabel1}] +set AISSelectionMode3 [lindex ${list} [expr [llength ${list}] - 1] ] + +# Redo +Redo D + +# Update the viewer +AISRepaint D + +set list [OCC1034_AISSelectionMode D ${aLabel1}] +set AISSelectionMode4 [lindex ${list} [expr [llength ${list}] - 1] ] + +# Check the mode +puts "AISSelectionMode1 = ${AISSelectionMode1}" +puts "AISSelectionMode2 = ${AISSelectionMode2}" +puts "AISSelectionMode3 = ${AISSelectionMode3}" +puts "AISSelectionMode4 = ${AISSelectionMode4}" + +set DefaultAISSelectionMode 0 +set status 0 +if { ${AISSelectionMode1} != ${DefaultAISSelectionMode} } { + puts "OCC1034_AISSelectionMode command: Error (case 1)" + set status 1 +} +if { ${AISSelectionMode2} != ${SetSelectionMode} } { + puts "OCC1034_AISSelectionMode command: Error (case 2)" + set status 1 +} +if { ${AISSelectionMode3} != ${DefaultAISSelectionMode} } { + puts "OCC1034_AISSelectionMode command: Error (case 3)" + set status 1 +} +if { ${AISSelectionMode4} != ${SetSelectionMode} } { + puts "OCC1034_AISSelectionMode command: Error (case 4)" + set status 1 +} + +if { ${status} == 0} { + puts "OCC1034_AISSelectionMode command: OK" +} + diff --git a/tests/bugs/caf/bug114 b/tests/bugs/caf/bug114 old mode 100644 new mode 100755 diff --git a/tests/bugs/caf/bug170_3 b/tests/bugs/caf/bug170_3 new file mode 100755 index 0000000000..8cbabed88d --- /dev/null +++ b/tests/bugs/caf/bug170_3 @@ -0,0 +1,35 @@ +puts "TODO OCC12345 ALL: OCC170 Error" + +puts "========================" +puts "OCC170" +puts "(case 3)" +puts "========================" + +set docName OCC170 +set newDocName OCC170_2 +set str1 "~!@#$%^&*():;'{}\|?/.>,<~!@#$%^&*():;'{}\|?/.>,<#$%#$%$%^&*():;'{}\|$%^&*(@#$%^&*():;'{}\|¦/" + +NewDocument $docName XmlOcaf +Label $docName 0:2 +SetComment $docName 0:2 $str1 + +file delete ${imagedir}/${docName}.xml + +if [ catch {SaveAs $docName ${imagedir}/${docName}.xml} ] { + puts "Error : (SaveAs)" +} else { + puts "OK : (SaveAs)" +} + +exec cp ${imagedir}/${docName}.xml ${imagedir}/${newDocName}.xml + +Open ${imagedir}/${newDocName}.xml $newDocName + +# Retrieve string from document and compare it with initial value +set str2 [GetComment $newDocName 0:2] +if {$str1 == $str2} {puts "OCC170 OK"} else { + puts "str1=${str1}" + puts "str2=${str2}" + puts "OCC170 Error" +} + diff --git a/tests/bugs/caf/bug5023 b/tests/bugs/caf/bug5023 new file mode 100755 index 0000000000..4f255adf8d --- /dev/null +++ b/tests/bugs/caf/bug5023 @@ -0,0 +1,39 @@ +puts "================" +puts "OCC5023" +puts "================" +puts "" +###################################################### +# Performance regression in opening OCAF file +###################################################### + +set aFile [locate_data_file OCC5023.std] + +puts "Info: Restore the document" + +if [info exists DD] { + catch {Close DD}; unset DD +} + +dchrono h reset +dchrono h start + +Open ${aFile} DD +dchrono h stop +set list [dchrono h show] +Close DD + +regexp {CPU user time: +([-0-9.+eE]+)} $list full CPU_user_time + +set Good_CPU_user_time 2. + +set CPU_user_time_percent [expr (${CPU_user_time} - ${Good_CPU_user_time}) / ${Good_CPU_user_time} * 100.] +set percent_max 0.1 + +puts "CPU_user_time = ${CPU_user_time}" +puts "Good_CPU_user_time = ${Good_CPU_user_time}" +puts "CPU_user_time_percent = ${CPU_user_time_percent}" + +if {${CPU_user_time_percent} > ${percent_max}} { + puts "Faulty OCC5023 : CPU user time is wrong" +} + diff --git a/tests/bugs/caf/bug669 b/tests/bugs/caf/bug669 new file mode 100755 index 0000000000..4851cae612 --- /dev/null +++ b/tests/bugs/caf/bug669 @@ -0,0 +1,162 @@ +puts "All exceptions is OK" +puts "TODO OCC12345 ALL: An exception was caught" +puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*" + +puts "========" +puts "OCC669" +puts "========" +puts "" +######################################### +## Standard_GUID("HoleFeature") cause stack overwrite +######################################### + +pload QAcommands + +set GoodGUIDList [list 00000000-0000-0000-0000-000000000000 \ + \ + 0000000A-0000-0000-0000-000000000000 \ + 0000000B-0000-0000-0000-000000000000 \ + 0000000C-0000-0000-0000-000000000000 \ + 0000000D-0000-0000-0000-000000000000 \ + 0000000E-0000-0000-0000-000000000000 \ + 0000000F-0000-0000-0000-000000000000 \ + \ + 0000000a-0000-0000-0000-000000000000 \ + 0000000b-0000-0000-0000-000000000000 \ + 0000000c-0000-0000-0000-000000000000 \ + 0000000d-0000-0000-0000-000000000000 \ + 0000000e-0000-0000-0000-000000000000 \ + 0000000f-0000-0000-0000-000000000000 \ + \ + 00000000-000A-0000-0000-000000000000 \ + 00000000-000B-0000-0000-000000000000 \ + 00000000-000C-0000-0000-000000000000 \ + 00000000-000D-0000-0000-000000000000 \ + 00000000-000E-0000-0000-000000000000 \ + 00000000-000F-0000-0000-000000000000 \ + \ + 00000000-000a-0000-0000-000000000000 \ + 00000000-000b-0000-0000-000000000000 \ + 00000000-000c-0000-0000-000000000000 \ + 00000000-000d-0000-0000-000000000000 \ + 00000000-000e-0000-0000-000000000000 \ + 00000000-000f-0000-0000-000000000000 \ + \ + 00000000-0000-000A-0000-000000000000 \ + 00000000-0000-000B-0000-000000000000 \ + 00000000-0000-000C-0000-000000000000 \ + 00000000-0000-000D-0000-000000000000 \ + 00000000-0000-000E-0000-000000000000 \ + 00000000-0000-000F-0000-000000000000 \ + \ + 00000000-0000-000a-0000-000000000000 \ + 00000000-0000-000b-0000-000000000000 \ + 00000000-0000-000c-0000-000000000000 \ + 00000000-0000-000d-0000-000000000000 \ + 00000000-0000-000e-0000-000000000000 \ + 00000000-0000-000f-0000-000000000000 \ + \ + 00000000-0000-0000-000A-000000000000 \ + 00000000-0000-0000-000B-000000000000 \ + 00000000-0000-0000-000C-000000000000 \ + 00000000-0000-0000-000D-000000000000 \ + 00000000-0000-0000-000E-000000000000 \ + 00000000-0000-0000-000F-000000000000 \ + \ + 00000000-0000-0000-000a-000000000000 \ + 00000000-0000-0000-000b-000000000000 \ + 00000000-0000-0000-000c-000000000000 \ + 00000000-0000-0000-000d-000000000000 \ + 00000000-0000-0000-000e-000000000000 \ + 00000000-0000-0000-000f-000000000000 \ + \ + 00000000-0000-0000-0000-00000000000A \ + 00000000-0000-0000-0000-00000000000B \ + 00000000-0000-0000-0000-00000000000C \ + 00000000-0000-0000-0000-00000000000D \ + 00000000-0000-0000-0000-00000000000E \ + 00000000-0000-0000-0000-00000000000F \ + \ + 00000000-0000-0000-0000-00000000000a \ + 00000000-0000-0000-0000-00000000000b \ + 00000000-0000-0000-0000-00000000000c \ + 00000000-0000-0000-0000-00000000000d \ + 00000000-0000-0000-0000-00000000000e \ + 00000000-0000-0000-0000-00000000000f ] + +set BadGUIDList [list \ + \ + 0000000G-0000-0000-0000-000000000000 \ + 0000000g-0000-0000-0000-000000000000 \ + \ + 00000000-000G-0000-0000-000000000000 \ + 00000000-000g-0000-0000-000000000000 \ + \ + 00000000-0000-000G-0000-000000000000 \ + 00000000-0000-000g-0000-000000000000 \ + \ + 00000000-0000-0000-000G-000000000000 \ + 00000000-0000-0000-000g-000000000000 \ + \ + 00000000-0000-0000-0000-00000000000G \ + 00000000-0000-0000-0000-00000000000g \ + \ + 000000000000000000000000000000000000 \ + 0000000000000000000000000000000000000 \ + 00000000000000000000000000000000000 \ + \ + 0000000000000-0000-0000-000000000000 \ + 00000000-000000000-0000-000000000000 \ + 00000000-0000-000000000-000000000000 \ + 00000000-0000-0000-00000000000000000 \ + \ + 000000000-0000-0000-0000-000000000000 \ + 0000000-0000-0000-0000-000000000000 \ + \ + 00000000-00000-0000-0000-000000000000 \ + 00000000-000-0000-0000-000000000000 \ + \ + 00000000-0000-00000-0000-000000000000 \ + 00000000-0000-000-0000-000000000000 \ + \ + 00000000-0000-0000-00000-000000000000 \ + 00000000-0000-0000-000-000000000000 \ + \ + 00000000-0000-0000-0000-0000000000000 \ + 00000000-0000-0000-0000-00000000000 \ + \ + "" ] + +set IsOK 1 + +set i 0 + +foreach GUID ${GoodGUIDList} { + incr i + if [catch { OCC669 ${GUID} }] then { + set IsOK 0 + puts "GUID=\"${GUID}\"" + puts "Faulty OCC669 (case ${i})" + } else { + puts "OCC669 OK (case ${i})" + } +} + + +foreach GUID ${BadGUIDList} { + incr i + if [catch { OCC669 ${GUID} }] then { + puts "OCC669 OK (case ${i})" + } else { + set IsOK 0 + puts "GUID=\"${GUID}\"" + puts "Faulty OCC669 (case ${i})" + } +} + +if { ${IsOK} == 1} { + puts "OCC669 OK" +} else { + puts "Faulty OCC669" +} + diff --git a/tests/bugs/caf/bug738_1 b/tests/bugs/caf/bug738_1 new file mode 100755 index 0000000000..2a93f5087c --- /dev/null +++ b/tests/bugs/caf/bug738_1 @@ -0,0 +1,17 @@ +puts "========" +puts "OCC738" +puts "========" +puts "" +################################### +## The GUIDs in XCAFDoc have incorrect format. +################################### + +pload QAcommands + +if [catch { OCC738_Assembly }] then { + puts "Faulty OCC738" +} else { + puts "OCC738 OK" +} + + diff --git a/tests/bugs/caf/bug738_2 b/tests/bugs/caf/bug738_2 new file mode 100755 index 0000000000..b24ae07060 --- /dev/null +++ b/tests/bugs/caf/bug738_2 @@ -0,0 +1,17 @@ +puts "========" +puts "OCC738" +puts "========" +puts "" +################################## +##The GUIDs in XCAFDoc have incorrect format. +################################## + +pload QAcommands + +if [catch { OCC738_ShapeRef }] then { + puts "Faulty OCC738" +} else { + puts "OCC738 OK" +} + + diff --git a/tests/bugs/caf/bug739 b/tests/bugs/caf/bug739 new file mode 100755 index 0000000000..a1b020fb56 --- /dev/null +++ b/tests/bugs/caf/bug739 @@ -0,0 +1,19 @@ +puts "TODO OCC12345 ALL: Faulty OCC739" + +puts "========" +puts "OCC739" +puts "========" +puts "" +################################################### +## Invalid GUIDs in DDataStd_DrawPresentation and DDataStd_Sample. +################################################### + +pload QAcommands + +if [catch { OCC739_DrawPresentation }] then { + puts "Faulty OCC739" +} else { + puts "OCC739 OK" +} + + diff --git a/tests/bugs/demo/bug23409 b/tests/bugs/demo/bug23409 old mode 100644 new mode 100755 diff --git a/tests/bugs/demo/bug23416 b/tests/bugs/demo/bug23416 old mode 100644 new mode 100755 diff --git a/tests/bugs/end b/tests/bugs/end index f9b9af6c2d..9178db6b3e 100755 --- a/tests/bugs/end +++ b/tests/bugs/end @@ -12,6 +12,7 @@ if { [isdraw result] } { vdisplay result vsetdispmode 1 vfit + vzfit vdump $imagedir/${test_image}.png } } diff --git a/tests/bugs/fclasses/bug11568_1 b/tests/bugs/fclasses/bug11568_1 new file mode 100755 index 0000000000..914c94cbcb --- /dev/null +++ b/tests/bugs/fclasses/bug11568_1 @@ -0,0 +1,19 @@ +puts "============" +puts "OCC11568" +puts "============" +puts "" +####################################################################### +# UnitsAPI package uses incorrect symbol for minutes: mn instead of min +####################################################################### + +set BugNumber OCC11568 + +set UnitString "mn" +set result "Token word : min\n" + +if { [unitparsing ${UnitString}] == ${result} } { + puts "${BugNumber}: OK" +} else { + puts "${BugNumber}: Faulty" +} + diff --git a/tests/bugs/fclasses/bug11568_2 b/tests/bugs/fclasses/bug11568_2 new file mode 100755 index 0000000000..544b1c6c03 --- /dev/null +++ b/tests/bugs/fclasses/bug11568_2 @@ -0,0 +1,18 @@ +puts "============" +puts "OCC11568" +puts "============" +puts "" +####################################################################### +# UnitsAPI package uses incorrect symbol for minutes: mn instead of min +####################################################################### + +set BugNumber OCC11568 + +set UnitString "mn" +set result "result: 60\n" + +if { [unitconvtoSI 1 ${UnitString}] == ${result} } { + puts "${BugNumber}: OK" +} else { + puts "${BugNumber}: Faulty" +} diff --git a/tests/bugs/fclasses/bug23237 b/tests/bugs/fclasses/bug23237 old mode 100644 new mode 100755 diff --git a/tests/bugs/fclasses/bug23403 b/tests/bugs/fclasses/bug23403 old mode 100644 new mode 100755 diff --git a/tests/bugs/fclasses/bug63 b/tests/bugs/fclasses/bug63 index 1f4f94a886..1a7ec4a6b1 100755 --- a/tests/bugs/fclasses/bug63 +++ b/tests/bugs/fclasses/bug63 @@ -12,7 +12,7 @@ puts "================" puts "" restore [locate_data_file box__simplifiée.brep] result -puts [checkshape result] +checkshape result set 2dviewer 0 diff --git a/tests/bugs/fclasses/bug670 b/tests/bugs/fclasses/bug670 new file mode 100755 index 0000000000..8b029d5d8b --- /dev/null +++ b/tests/bugs/fclasses/bug670 @@ -0,0 +1,16 @@ +puts "TODO ?OCC12345 ALL: An exception was caught" +puts "TODO ?OCC12345 ALL: \\*\\* Exception \\*\\*.*" + +puts "========" +puts "OCC670" +puts "========" +puts "" +######################### +## Problem with the Print method. +######################### + +pload QAcommands + +catch { OCC670 } + +puts "OCC670 OK" diff --git a/tests/bugs/fclasses/bug6794 b/tests/bugs/fclasses/bug6794 new file mode 100755 index 0000000000..45379663d0 --- /dev/null +++ b/tests/bugs/fclasses/bug6794 @@ -0,0 +1,26 @@ +puts "============" +puts "OCC6794" +puts "============" +puts "" +###################################################### +# AsciiString corrputs memory in case of MMGT_OPT equal to 0 +###################################################### + +pload QAcommands +set BugNumber OCC6794 +set nb 40009 +set env(MMGT_OPT) 0 +set OPT $env(MMGT_OPT) + +if { ${OPT} != 0 } { + puts "env(MMGT_OPT) = $env(MMGT_OPT)" + puts "Faulty ${BugNumber}" +} else { + set result [OCC6794 ${nb}] + regexp {Use nb += +([-0-9.+eE]+)} $result full use_nb + regexp {aLength += +([-0-9.+eE]+)} $result full length + + if { ${use_nb} != ${nb} || ${length} != ${nb} } { + puts "Faulty ${BugNumber}" + } +} diff --git a/tests/bugs/fclasses/bug710 b/tests/bugs/fclasses/bug710 new file mode 100755 index 0000000000..63df4e84d4 --- /dev/null +++ b/tests/bugs/fclasses/bug710 @@ -0,0 +1,18 @@ +puts "========" +puts "OCC710" +puts "========" +puts "" +######################################################## +## If the the file pathname is empty, the Standard_Boolean OSD_FileNode::Exists() +## raises an exception +######################################################## + +pload QAcommands + +set Path "" + +if [catch {OCC710 ${Path} } result] { + puts "Faulty OCC710" +} else { + puts "OCC710 OK" +} diff --git a/tests/bugs/fclasses/bug7287_1 b/tests/bugs/fclasses/bug7287_1 new file mode 100755 index 0000000000..2fed9a9deb --- /dev/null +++ b/tests/bugs/fclasses/bug7287_1 @@ -0,0 +1,29 @@ +puts "============" +puts "OCC7287" +puts "============" +puts "" +###################################################### +# Problem of Memory Leak +###################################################### + +# +# Result is Null shape +# + +set BugNumber OCC7287 + +set NCycles 1000 +box b1 100 100 100 +box b2 50 50 50 +bop b1 b2 + +set listmem {} +for {set i 1} {${i} <= ${NCycles}} {incr i } { + bopcut r + + lappend listmem [expr [meminfo w] / 1024] + if { [checktrend $listmem 0 1 "Memory leak detected"] } { + puts "No memory leak, $i iterations" + break + } +} diff --git a/tests/bugs/fclasses/bug7287_2 b/tests/bugs/fclasses/bug7287_2 new file mode 100755 index 0000000000..4dc4f3918e --- /dev/null +++ b/tests/bugs/fclasses/bug7287_2 @@ -0,0 +1,28 @@ +puts "============" +puts "OCC7287" +puts "============" +puts "" +###################################################### +# Problem of Memory Leak +###################################################### + +# +# Result is not Null shape +# + +set BugNumber OCC7287 + +set NCycles 1000 +box b1 10 10 10 100 100 100 +box b2 50 50 50 +bop b1 b2 + +set listmem {} +for {set i 1} {${i} <= ${NCycles}} {incr i } { + bopcut r + lappend listmem [expr [meminfo w] / 1024] + if { [checktrend $listmem 0 1 "Memory leak detected"] } { + puts "No memory leak, $i iterations" + break + } +} diff --git a/tests/bugs/fclasses/bug7287_3 b/tests/bugs/fclasses/bug7287_3 new file mode 100755 index 0000000000..b97a709c0d --- /dev/null +++ b/tests/bugs/fclasses/bug7287_3 @@ -0,0 +1,31 @@ +puts "============" +puts "OCC7287" +puts "============" +puts "" +###################################################### +# Problem of Memory Leak +###################################################### + +# +# Result is not Null shape +# + +set BugNumber OCC7287 + + +set NCycles 1000 +box b1 10 10 10 100 100 100 +box b2 50 50 50 +bop b1 b2 + +set listmem {} +for {set i 1} {${i} <= ${NCycles}} {incr i } { + boptuc r + + lappend listmem [expr [meminfo w] / 1024] + if { [checktrend $listmem 0 1 "Memory leak detected"] } { + puts "No memory leak, $i iterations" + break + } +} + diff --git a/tests/bugs/fclasses/bug7287_4 b/tests/bugs/fclasses/bug7287_4 new file mode 100755 index 0000000000..413e15969f --- /dev/null +++ b/tests/bugs/fclasses/bug7287_4 @@ -0,0 +1,29 @@ +puts "============" +puts "OCC7287" +puts "============" +puts "" +###################################################### +# Problem of Memory Leak +###################################################### + +# +# Result is not Null shape +# + +set BugNumber OCC7287 + +set NCycles 1000 +box b1 10 10 10 100 100 100 +box b2 50 50 50 +bop b1 b2 + +set listmem {} +for {set i 1} {${i} <= ${NCycles}} {incr i } { + bopcommon r + + lappend listmem [expr [meminfo w] / 1024] + if { [checktrend $listmem 0 1 "Memory leak detected"] } { + puts "No memory leak, $i iterations" + break + } +} diff --git a/tests/bugs/fclasses/bug7287_5 b/tests/bugs/fclasses/bug7287_5 new file mode 100755 index 0000000000..61140a4490 --- /dev/null +++ b/tests/bugs/fclasses/bug7287_5 @@ -0,0 +1,28 @@ +puts "============" +puts "OCC7287" +puts "============" +puts "" +###################################################### +# Problem of Memory Leak +###################################################### + +# +# Result is not Null shape +# + +set BugNumber OCC7287 + +set NCycles 1000 +box b1 10 10 10 100 100 100 +box b2 50 50 50 +bop b1 b2 + +for {set i 1} {${i} <= ${NCycles}} {incr i } { + bopfuse r + + lappend listmem [expr [meminfo w] / 1024] + if { [checktrend $listmem 0 1 "Memory leak detected"] } { + puts "No memory leak, $i iterations" + break + } +} diff --git a/tests/bugs/fclasses/bug7287_6 b/tests/bugs/fclasses/bug7287_6 new file mode 100755 index 0000000000..4b409a1fcc --- /dev/null +++ b/tests/bugs/fclasses/bug7287_6 @@ -0,0 +1,29 @@ +puts "============" +puts "OCC7287" +puts "============" +puts "" +###################################################### +# Problem of Memory Leak +###################################################### + +# +# Result is not Null shape +# + +set BugNumber OCC7287 + +set NCycles 1000 +box b1 10 10 10 100 100 100 +box b2 50 50 50 +bop b1 b2 + +for {set i 1} {${i} <= ${NCycles}} {incr i } { + bopsection r + + lappend listmem [expr [meminfo w] / 1024] + if { [checktrend $listmem 0 1 "Memory leak detected"] } { + puts "No memory leak, $i iterations" + break + } +} + diff --git a/tests/bugs/fclasses/bug7639 b/tests/bugs/fclasses/bug7639 new file mode 100755 index 0000000000..36af027dc5 --- /dev/null +++ b/tests/bugs/fclasses/bug7639 @@ -0,0 +1,27 @@ +puts "============" +puts "OCC7639" +puts "============" +puts "" +####################################################################### +# NCollection_Vector works incorrectly with rare data +####################################################################### + +pload QAcommands +set BugNumber OCC7639 + +set List [OCC7639 0 1 2 500 1 2] + +set Length [llength $List] +if { ${Length} != 6} { + puts "Faulty (1) ${BugNumber}" +} else { + if { [regexp "1" $List] != 1 } { + puts "Faulty (2) ${BugNumber}" + } + if { [regexp "2" $List] != 1 } { + puts "Faulty (3) ${BugNumber}" + } + if { [regexp "500" $List] != 1 } { + puts "Faulty (4) ${BugNumber}" + } +} diff --git a/tests/bugs/fclasses/bug902 b/tests/bugs/fclasses/bug902 new file mode 100755 index 0000000000..d12d79f48e --- /dev/null +++ b/tests/bugs/fclasses/bug902 @@ -0,0 +1,33 @@ +puts "TODO OCC12345 ALL: OCC902 Faulty" + +puts "=======" +puts "OCC902" +puts "=======" +puts "" +############### +## bad derivative +############### + +pload QAcommands + +set arg 5 +set list [OCC902 $arg] + +set we_have [lindex $list 8] +puts "we_have = $we_have" + +set must_be_1 "Exp($arg)*$arg" +puts "must_be_1 = $must_be_1" +set must_be_2 "$arg*Exp($arg)" +puts "must_be_2 = $must_be_2" + +if {[string compare $we_have $must_be_1] == 0} { + puts "OCC902 OK" +} else { + if { [string compare $we_have $must_be_2] == 0} { + puts "OCC902 OK" + } else { + puts "OCC902 Faulty" + } +} + diff --git a/tests/bugs/fclasses/bug984 b/tests/bugs/fclasses/bug984 new file mode 100755 index 0000000000..d45dd94929 --- /dev/null +++ b/tests/bugs/fclasses/bug984 @@ -0,0 +1,14 @@ +puts "================" +puts "OCC984" +puts "================" +puts "" + +pload QAcommands + +set list [OCC984 [locate_data_file OCC984.xml]] + +if { [regexp "Document parsed" $list] == 1 } { + puts "OCC984: OK" +} else { + puts "OCC984: Error" +} diff --git a/tests/bugs/fclasses/bug9848_1 b/tests/bugs/fclasses/bug9848_1 new file mode 100755 index 0000000000..182dc9c2d7 --- /dev/null +++ b/tests/bugs/fclasses/bug9848_1 @@ -0,0 +1,24 @@ +puts "============" +puts "OCC9848" +puts "============" +puts "" +####################################################################### +# Specififying invalid name of unit produces exception.(for example tonne instead ton) +####################################################################### + +set BugNumber OCC9848 + +set UnitString "tonne/(mm*s**2)" + +set List "" +set result "" + +if [catch { set List [unitparsing ${UnitString}] } result] { + if { ${result} == "can not create a sentence\n"} { + puts "${BugNumber}: OK" + } else { + puts "${BugNumber}: Faulty (2)" + } +} else { + puts "${BugNumber}: Faulty (1)" +} diff --git a/tests/bugs/fclasses/bug9848_2 b/tests/bugs/fclasses/bug9848_2 new file mode 100755 index 0000000000..1e43ea0a31 --- /dev/null +++ b/tests/bugs/fclasses/bug9848_2 @@ -0,0 +1,25 @@ +puts "============" +puts "OCC9848" +puts "============" +puts "" +####################################################################### +# Specififying invalid name of unit produces exception.(for example tonne instead ton) +####################################################################### + +set BugNumber OCC9848 + +set UnitString "ton/(m*s**2)" + +set List "" +set result "" +set GoodResult "Token word : (ton)/((m)*((s)**(2)))" + +if [catch { set List [unitparsing ${UnitString}] } result] { + puts "${BugNumber}: Faulty (1)" +} else { + if { ${List} == "${GoodResult}\n"} { + puts "${BugNumber}: OK" + } else { + puts "${BugNumber}: Faulty (2)" + } +} diff --git a/tests/bugs/fclasses/bug984_1 b/tests/bugs/fclasses/bug984_1 new file mode 100755 index 0000000000..f49c121c29 --- /dev/null +++ b/tests/bugs/fclasses/bug984_1 @@ -0,0 +1,18 @@ +puts "========" +puts "OCC984" +puts "========" +puts "" +#################################################### +## LDOM hangs-up attempting to read a file which contains a reference to "*dtd"file +#################################################### + +pload DCAF +set BugNumber OCC984 +cpulimit 60 + +# Open the document +if { [catch { Open [locate_data_file OCC984.xml] D } aResult] != 0 } { + puts "Faulty ${BugNumber}" +} else { + puts "OK ${BugNumber}" +} diff --git a/tests/bugs/heal/buc60940 b/tests/bugs/heal/buc60940 old mode 100644 new mode 100755 index 04ff551045..307354a01e --- a/tests/bugs/heal/buc60940 +++ b/tests/bugs/heal/buc60940 @@ -5,6 +5,6 @@ puts "========================" restore [locate_data_file buc60940.rle] a fixshape result a 1e-7 1 -puts [checkshape result] +checkshape result set 2dviewer 1 diff --git a/tests/bugs/heal/buc60950 b/tests/bugs/heal/buc60950 old mode 100644 new mode 100755 index 6d7f171d90..aaae282a9c --- a/tests/bugs/heal/buc60950 +++ b/tests/bugs/heal/buc60950 @@ -7,7 +7,7 @@ checkshape a fixshape result a 1e-7 -puts [checkshape result] +checkshape result set 2dviewer 1 diff --git a/tests/bugs/heal/bug1642 b/tests/bugs/heal/bug1642 new file mode 100755 index 0000000000..61f99c5014 --- /dev/null +++ b/tests/bugs/heal/bug1642 @@ -0,0 +1,49 @@ +puts "========================" +puts " OCC1642 " +puts "========================" +puts "" +########################################################### +puts " ShapeFix_Wire::FixSelfIntersectingEdge does not remove a loop" +########################################################### + +pload QAcommands +cpulimit 2000 + +restore [locate_data_file OCC1642.brep] shape + +set list [OCC1642 result FinalFace InitWare InitFace shape FixReorder FixDegenerated FixConnected FixSelfIntersection] + +set FixSelfIntersection [string last "FixSelfIntersection" $list] +set Intersectingpt [string last "Intersecting pt :" $list] + +puts "FixSelfIntersection=${FixSelfIntersection}" +puts "Intersectingpt=${Intersectingpt}" +if { ${Intersectingpt} == -1} { + puts "Warning: There are not intersecting points" +} + +set list [lprops result] +regexp {Mass +: +([-0-9.+eE]+)} $list full pcurve_length + +set good_pcurve_length 3880.52 +set percent_max 0.1 +set percent [expr abs(${pcurve_length} - ${good_pcurve_length}) / double(${good_pcurve_length}) * 100.] + +puts "good_pcurve_length = ${good_pcurve_length}" +puts "pcurve_length = ${pcurve_length}" +puts "percent = ${percent}" + +if {${percent} > ${percent_max}} { + puts "OCC1642 Faulty length: function FixShape works WRONGLY !!" +} else { + puts "OCC1642 length: function FixShape works CORRECTLY" +} + +if { ${Intersectingpt} > ${FixSelfIntersection} } { + puts "OCC1642 Faulty" +} else { + puts "OCC1642 OK" +} + +set 2dviewer 0 + diff --git a/tests/bugs/heal/bug208 b/tests/bugs/heal/bug208 index 0905902d76..35ea345138 100755 --- a/tests/bugs/heal/bug208 +++ b/tests/bugs/heal/bug208 @@ -10,7 +10,7 @@ restore [locate_data_file OCC208.brep] a fixshape result a 0.01 0.01 -puts [checkshape result] +checkshape result set 2dviewer 0 diff --git a/tests/bugs/heal/bug209 b/tests/bugs/heal/bug209 index 359d81d58e..e5d8527dfc 100755 --- a/tests/bugs/heal/bug209 +++ b/tests/bugs/heal/bug209 @@ -13,6 +13,6 @@ checkshape a_4 fixshape result a 0.01 0.01 explode result f -puts [checkshape result_4] +checkshape result_4 set 2dviewer 1 diff --git a/tests/bugs/heal/bug210 b/tests/bugs/heal/bug210 new file mode 100755 index 0000000000..eb008a6793 --- /dev/null +++ b/tests/bugs/heal/bug210 @@ -0,0 +1,24 @@ +puts "=========" +puts " OCC210 " +puts "=========" +puts "" +################################################## +# Improve FixShape to correct case of touching wires +################################################## + +pload XDE + +cpulimit 2500 + +set BugNumber OCC210 + +if [catch { stepread [locate_data_file UKI60591.stp] a * } result] { + puts "Faulty ${BugNumber}: here is reading problem" +} else { + puts "Reading ${BugNumber} OK" + tpcompound r + fixshape result r + checkshape result +} + +set 2dviewer 0 diff --git a/tests/bugs/heal/bug210_2 b/tests/bugs/heal/bug210_2 index 906bada862..a19c8c4d69 100755 --- a/tests/bugs/heal/bug210_2 +++ b/tests/bugs/heal/bug210_2 @@ -11,6 +11,6 @@ restore [locate_data_file OCC210b.brep] a fixshape result a 0.01 0.01 -puts [checkshape result] +checkshape result set 2dviewer 1 diff --git a/tests/bugs/heal/bug22 b/tests/bugs/heal/bug22 new file mode 100755 index 0000000000..e8f08f0110 --- /dev/null +++ b/tests/bugs/heal/bug22 @@ -0,0 +1,36 @@ +puts "=======" +puts "OCC22" +puts "=======" +puts "" +##################################################################### +##Locations are not correctly processed by ShapeBuild_ReShape (and base class BRepTools_ReShape) +##################################################################### + +pload QAcommands + +restore [locate_data_file OCC21.brep] shape +explode shape f +compound shape_1 shape_2 compoundToBeDivided + +# Case A of the bug is reproduced. Resulting shape must have 5 faces instead of 3 + +if [catch { OCC22 result shape compoundToBeDivided 0 } ] { + puts "OCC22 ERROR; (case 1)" +} else { + puts "OCC22 OK; (case 1)" +} + +regexp {([-0-9.+eE]+)\s FACE} [statshape result] full nbFaces +if {$nbFaces != 5} { + puts "OCC22 FAULTY: Initial shape was not splitted" +} + +# Case B of the bug is reproduced. Result must be valid +if [catch { OCC22 res shape compoundToBeDivided 1 } ] { + puts "OCC22 ERROR; (case 2)" +} else { + puts "OCC22 OK; (case 2)" +} + +set 2dviewer 0 + diff --git a/tests/bugs/heal/bug329 b/tests/bugs/heal/bug329 index eea3fca1d6..4e2baea625 100755 --- a/tests/bugs/heal/bug329 +++ b/tests/bugs/heal/bug329 @@ -10,7 +10,7 @@ puts "" restore [locate_data_file OCC329.brep] a -puts [checkshape a] +checkshape a set tol1 [maxtolerance a] regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full face1 regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full edge1 @@ -18,7 +18,7 @@ regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full vert1 fixshape result a 1.e-7 0.1 -puts [checkshape result] +checkshape result set tol2 [ maxtolerance result] regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full face2 regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full edge2 diff --git a/tests/bugs/heal/bug482 b/tests/bugs/heal/bug482 index d7ef5ab82c..e6f6b6d9ec 100755 --- a/tests/bugs/heal/bug482 +++ b/tests/bugs/heal/bug482 @@ -10,7 +10,7 @@ restore [locate_data_file OCC482.brep] a fixsmall result a 0.05 -puts [checkshape result] +checkshape result set 2dviewer 1 diff --git a/tests/bugs/heal/bug518 b/tests/bugs/heal/bug518 new file mode 100755 index 0000000000..0ba3ff2d3a --- /dev/null +++ b/tests/bugs/heal/bug518 @@ -0,0 +1,18 @@ +puts "========" +puts "OCC518" +puts "========" +puts "" +################################ +## Checkshape reports problem in C40, none in DEV +################################ + +pload XDE + +restore [locate_data_file OCC518.brep] a + +fixshape result a .001 1. + +checkshape result + +set 2dviewer 0 + diff --git a/tests/bugs/heal/bug884 b/tests/bugs/heal/bug884 new file mode 100755 index 0000000000..eb2e3ea3cc --- /dev/null +++ b/tests/bugs/heal/bug884 @@ -0,0 +1,40 @@ +puts "============" +puts "OCC884" +puts "============" +puts "" +################################################### +## ShapeFix_Wire::FixSelfIntersection does not fix 3d curves on planes +################################################### + +pload QAcommands + +restore [locate_data_file OCC884.brep] a + +OCC884 res a 1.1 1.1 + +explode res e +mkplane p res +pcurve c2d res_1 p +mkcurve c3d res_1 + +set list_3 [length $c3d] +set list_4 [length $c2d] + +# len2 is the length of 3d curve +regexp {The length c3d is +([-0-9.+eE]+)} $list_3 full len2 + +# len1 is the length of 2d curve +regexp {The length c2d is +([-0-9.+eE]+)} $list_4 full len1 + +set percent_max 0.1 +set percent [expr abs(${len2} - ${len1}) / double(${len1}) * 100.] + +puts "len1 = ${len1}" +puts "len2 = ${len2}" +puts "percent = ${percent}" + +if {${percent} > ${percent_max}} { + puts "OCC884: Error" +} else { + puts "OCC884: OK" +} diff --git a/tests/bugs/iges/buc60591_1 b/tests/bugs/iges/buc60591_1 old mode 100644 new mode 100755 index 47f52dfed8..4ea9ec846f --- a/tests/bugs/iges/buc60591_1 +++ b/tests/bugs/iges/buc60591_1 @@ -14,7 +14,7 @@ igesbrep [locate_data_file buc60591a.igs] a * tpcompound buc60591a -puts [checkshape buc60591a r] +checkshape buc60591a r ###################################################################### @@ -31,11 +31,11 @@ dall igesbrep ${imagedir}/buc60591a_brep.igs a_brep_iges * tpcompound buc60591a_brep_iges -puts [checkshape buc60591a_brep_iges] +checkshape buc60591a_brep_iges igesbrep ${imagedir}/buc60591a_iges.igs a_iges * tpcompound buc60591a_iges -puts [checkshape buc60591a_iges] +checkshape buc60591a_iges renamevar buc60591a_iges result diff --git a/tests/bugs/iges/buc60591_2 b/tests/bugs/iges/buc60591_2 old mode 100644 new mode 100755 index 05aedb168d..a5dad57e44 --- a/tests/bugs/iges/buc60591_2 +++ b/tests/bugs/iges/buc60591_2 @@ -13,7 +13,7 @@ igesbrep [locate_data_file buc60591b.igs] a * tpcompound buc60591b -puts [checkshape buc60591b r] +checkshape buc60591b r ###################################################################### @@ -30,11 +30,11 @@ dall igesbrep ${imagedir}/buc60591b_brep.igs b_brep_iges * tpcompound buc60591b_brep_iges -puts [checkshape buc60591b_brep_iges] +checkshape buc60591b_brep_iges igesbrep ${imagedir}/buc60591b_iges.igs b_iges * tpcompound buc60591b_iges -puts [checkshape buc60591b_iges] +checkshape buc60591b_iges renamevar buc60591b_iges result diff --git a/tests/bugs/iges/buc60591_3 b/tests/bugs/iges/buc60591_3 old mode 100644 new mode 100755 index 5afef3b6f8..3d17511fd9 --- a/tests/bugs/iges/buc60591_3 +++ b/tests/bugs/iges/buc60591_3 @@ -12,7 +12,7 @@ puts "consideration of \"buc60591c\" model" igesbrep [locate_data_file buc60591c.igs] a * tpcompound buc60591c -puts [checkshape buc60591c r] +checkshape buc60591c r ###################################################################### @@ -29,11 +29,11 @@ dall igesbrep ${imagedir}/buc60591c_brep.igs c_brep_iges * tpcompound buc60591c_brep_iges -puts [checkshape buc60591c_brep_iges] +checkshape buc60591c_brep_iges igesbrep ${imagedir}/buc60591c_iges.igs c_iges * tpcompound buc60591c_iges -puts [checkshape buc60591c_iges] +checkshape buc60591c_iges renamevar buc60591c_iges result diff --git a/tests/bugs/iges/buc60591_4 b/tests/bugs/iges/buc60591_4 old mode 100644 new mode 100755 index 6860b88a7f..8aae3abb87 --- a/tests/bugs/iges/buc60591_4 +++ b/tests/bugs/iges/buc60591_4 @@ -11,7 +11,7 @@ puts "consideration of \"buc60591d\" model" igesbrep [locate_data_file buc60591d.igs] a * tpcompound buc60591d -puts [checkshape buc60591d r] +checkshape buc60591d r ###################################################################### @@ -28,11 +28,11 @@ dall igesbrep ${imagedir}/buc60591d_brep.igs d_brep_iges * tpcompound buc60591d_brep_iges -puts [checkshape buc60591d_brep_iges] +checkshape buc60591d_brep_iges igesbrep ${imagedir}/buc60591d_iges.igs d_iges * tpcompound buc60591d_iges -puts [checkshape buc60591d_iges] +checkshape buc60591d_iges renamevar buc60591d_iges result diff --git a/tests/bugs/iges/buc60594 b/tests/bugs/iges/buc60594 old mode 100644 new mode 100755 index 54e7f12ff5..a85ff0d245 --- a/tests/bugs/iges/buc60594 +++ b/tests/bugs/iges/buc60594 @@ -9,7 +9,7 @@ puts "" igesbrep [locate_data_file buc60594a.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/iges/buc60595_1 b/tests/bugs/iges/buc60595_1 old mode 100644 new mode 100755 diff --git a/tests/bugs/iges/buc60595_2 b/tests/bugs/iges/buc60595_2 old mode 100644 new mode 100755 diff --git a/tests/bugs/iges/buc60595_3 b/tests/bugs/iges/buc60595_3 old mode 100644 new mode 100755 diff --git a/tests/bugs/iges/buc60610 b/tests/bugs/iges/buc60610 old mode 100644 new mode 100755 index 8a257347be..eb85c1d1fd --- a/tests/bugs/iges/buc60610 +++ b/tests/bugs/iges/buc60610 @@ -7,8 +7,8 @@ puts "========================" igesbrep [locate_data_file buc60610a.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/iges/buc60625 b/tests/bugs/iges/buc60625 old mode 100644 new mode 100755 index 37e49d3953..292c782f29 --- a/tests/bugs/iges/buc60625 +++ b/tests/bugs/iges/buc60625 @@ -10,7 +10,7 @@ cpulimit 1500 set l [igesbrep [locate_data_file BUC60625-1.igs] a xst-transferrable-roots] tpcompound result -puts [checkshape result r] +checkshape result r set start [lindex $l 60] set bug_list_numb [ llength $l ] diff --git a/tests/bugs/iges/buc60646 b/tests/bugs/iges/buc60646 old mode 100644 new mode 100755 index f32f8f864e..8327db4661 --- a/tests/bugs/iges/buc60646 +++ b/tests/bugs/iges/buc60646 @@ -8,7 +8,7 @@ puts "==================================" set l [igesbrep [locate_data_file BUC60625-1.igs] a xst-transferrable-roots] tpcompound res -puts [checkshape res r] +checkshape res r tcopy res result diff --git a/tests/bugs/iges/buc60685 b/tests/bugs/iges/buc60685 index 195116e3c8..073899d86e 100755 --- a/tests/bugs/iges/buc60685 +++ b/tests/bugs/iges/buc60685 @@ -8,7 +8,7 @@ cpulimit 1500 set l [igesbrep [locate_data_file buc60685a.igs] a xst-transferrable-roots] tpcompound result -puts [checkshape result r] +checkshape result r regexp {List given by xst-transferrable-roots : Nb entities selected : +([-0-9+eE]+)} ${l} full start regexp {List given by xst-transferrable-roots : Nb entities selected : +([-0-9+eE]+)} ${l} full end diff --git a/tests/bugs/iges/buc60686 b/tests/bugs/iges/buc60686 old mode 100644 new mode 100755 diff --git a/tests/bugs/iges/buc60687 b/tests/bugs/iges/buc60687 old mode 100644 new mode 100755 index d6ccd82d5d..9e0e9e3f24 --- a/tests/bugs/iges/buc60687 +++ b/tests/bugs/iges/buc60687 @@ -5,7 +5,7 @@ puts "==========" igesbrep [locate_data_file buc40130.igs] a xst-transferrable-roots tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/iges/buc60820_1 b/tests/bugs/iges/buc60820_1 old mode 100644 new mode 100755 index fa64f37ffe..99a02a8b6c --- a/tests/bugs/iges/buc60820_1 +++ b/tests/bugs/iges/buc60820_1 @@ -6,7 +6,7 @@ igesbrep [locate_data_file buc60820.igs] a * tpcompound result -puts [checkshape result r] +checkshape result r tclean result incmesh result 0.1 diff --git a/tests/bugs/iges/buc60820_2 b/tests/bugs/iges/buc60820_2 old mode 100644 new mode 100755 index cb644f3366..8920a0410a --- a/tests/bugs/iges/buc60820_2 +++ b/tests/bugs/iges/buc60820_2 @@ -5,7 +5,7 @@ puts "========================" igesbrep [locate_data_file buc60820.igs] a * tpcompound result -puts [checkshape result r] +checkshape result r tclean result vinit diff --git a/tests/bugs/iges/buc60823 b/tests/bugs/iges/buc60823 old mode 100644 new mode 100755 index 039531d9df..c699df5dde --- a/tests/bugs/iges/buc60823 +++ b/tests/bugs/iges/buc60823 @@ -13,8 +13,8 @@ puts "========================" igesbrep [locate_data_file buc60823.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r tclean result vinit diff --git a/tests/bugs/iges/buc60850 b/tests/bugs/iges/buc60850 old mode 100644 new mode 100755 index 3fbc4a34fc..98a00986cb --- a/tests/bugs/iges/buc60850 +++ b/tests/bugs/iges/buc60850 @@ -5,7 +5,7 @@ puts "===========" igesbrep [locate_data_file BUC60850.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/iges/buc60894 b/tests/bugs/iges/buc60894 old mode 100644 new mode 100755 diff --git a/tests/bugs/iges/buc60949 b/tests/bugs/iges/buc60949 old mode 100644 new mode 100755 index 788453aabc..d7fd2f2ea4 --- a/tests/bugs/iges/buc60949 +++ b/tests/bugs/iges/buc60949 @@ -9,8 +9,8 @@ puts "===========" igesbrep [locate_data_file buc60949.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/iges/bug111_1 b/tests/bugs/iges/bug111_1 index e9e4518742..9e072a8e7e 100755 --- a/tests/bugs/iges/bug111_1 +++ b/tests/bugs/iges/bug111_1 @@ -7,8 +7,8 @@ puts "========" igesbrep [locate_data_file OCC111a.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/iges/bug111_2 b/tests/bugs/iges/bug111_2 index 072a9862fd..2f683d0519 100755 --- a/tests/bugs/iges/bug111_2 +++ b/tests/bugs/iges/bug111_2 @@ -7,8 +7,8 @@ puts "========" igesbrep [locate_data_file OCC111b.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/iges/bug131_1 b/tests/bugs/iges/bug131_1 index 7d8ea867ff..0e94610840 100755 --- a/tests/bugs/iges/bug131_1 +++ b/tests/bugs/iges/bug131_1 @@ -6,8 +6,8 @@ puts "" igesbrep [locate_data_file OCC131-1.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/iges/bug131_2 b/tests/bugs/iges/bug131_2 index a91603e357..1516b99d80 100755 --- a/tests/bugs/iges/bug131_2 +++ b/tests/bugs/iges/bug131_2 @@ -6,7 +6,7 @@ puts "" igesbrep [locate_data_file OCC131-2.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/iges/bug131_3 b/tests/bugs/iges/bug131_3 index b40f2cf20e..fc9249fede 100755 --- a/tests/bugs/iges/bug131_3 +++ b/tests/bugs/iges/bug131_3 @@ -6,7 +6,7 @@ puts "" igesbrep [locate_data_file OCC131-3.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/iges/bug131_4 b/tests/bugs/iges/bug131_4 index 0c2184c845..ae090205e8 100755 --- a/tests/bugs/iges/bug131_4 +++ b/tests/bugs/iges/bug131_4 @@ -8,7 +8,7 @@ puts "" igesbrep [locate_data_file OCC131-4.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/iges/bug131_5 b/tests/bugs/iges/bug131_5 index 6abd109038..b20e4cee78 100755 --- a/tests/bugs/iges/bug131_5 +++ b/tests/bugs/iges/bug131_5 @@ -6,7 +6,7 @@ puts "" igesbrep [locate_data_file OCC131-5.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/iges/bug131_6 b/tests/bugs/iges/bug131_6 index a4c6e5dde9..8ba7461a32 100755 --- a/tests/bugs/iges/bug131_6 +++ b/tests/bugs/iges/bug131_6 @@ -6,7 +6,7 @@ puts "" igesbrep [locate_data_file OCC131-6.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/iges/bug131_7 b/tests/bugs/iges/bug131_7 index 03648f453a..40ba7244e3 100755 --- a/tests/bugs/iges/bug131_7 +++ b/tests/bugs/iges/bug131_7 @@ -6,7 +6,7 @@ puts "" igesbrep [locate_data_file OCC131-7.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/iges/bug131_8 b/tests/bugs/iges/bug131_8 index ff6dfd58d2..a185355c1d 100755 --- a/tests/bugs/iges/bug131_8 +++ b/tests/bugs/iges/bug131_8 @@ -8,7 +8,7 @@ puts "" igesbrep [locate_data_file OCC131-8.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/iges/bug133_1 b/tests/bugs/iges/bug133_1 index d399d3d3b1..d4575d081a 100755 --- a/tests/bugs/iges/bug133_1 +++ b/tests/bugs/iges/bug133_1 @@ -11,8 +11,8 @@ puts "" igesbrep [locate_data_file igsBF5.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/iges/bug133_10 b/tests/bugs/iges/bug133_10 index e4474e99de..4218d4539c 100755 --- a/tests/bugs/iges/bug133_10 +++ b/tests/bugs/iges/bug133_10 @@ -12,8 +12,8 @@ puts "" igesbrep [locate_data_file Cover.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/iges/bug133_5 b/tests/bugs/iges/bug133_5 index 2dbee07275..ef0fa98e7a 100755 --- a/tests/bugs/iges/bug133_5 +++ b/tests/bugs/iges/bug133_5 @@ -11,8 +11,8 @@ puts "========================" igesbrep [locate_data_file Case.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/iges/bug133_7 b/tests/bugs/iges/bug133_7 index ab0dfaca54..0bb5ce47f6 100755 --- a/tests/bugs/iges/bug133_7 +++ b/tests/bugs/iges/bug133_7 @@ -14,8 +14,8 @@ cpulimit 3000 igesbrep [locate_data_file igsBF1.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/iges/bug133_8 b/tests/bugs/iges/bug133_8 index 3c8f876efa..4d488d571f 100755 --- a/tests/bugs/iges/bug133_8 +++ b/tests/bugs/iges/bug133_8 @@ -11,8 +11,8 @@ puts "" igesbrep [locate_data_file Rich.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/iges/bug201 b/tests/bugs/iges/bug201 index 7522d716a3..a944e00bcf 100755 --- a/tests/bugs/iges/bug201 +++ b/tests/bugs/iges/bug201 @@ -9,8 +9,8 @@ puts "" igesbrep [locate_data_file OCC201.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/iges/bug22888 b/tests/bugs/iges/bug22888 old mode 100644 new mode 100755 diff --git a/tests/bugs/iges/bug23377 b/tests/bugs/iges/bug23377 old mode 100644 new mode 100755 diff --git a/tests/bugs/iges/bug272_1 b/tests/bugs/iges/bug272_1 index 5a9aecaba1..8c0b08c7fb 100755 --- a/tests/bugs/iges/bug272_1 +++ b/tests/bugs/iges/bug272_1 @@ -5,8 +5,8 @@ puts "========" igesbrep [locate_data_file 919-001-T02-04-CP-VL.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r if { [llength [whatis result]] == 3 } { puts "Error : There is no result" diff --git a/tests/bugs/iges/bug272_2 b/tests/bugs/iges/bug272_2 index 01b916cc33..0e0508c31b 100755 --- a/tests/bugs/iges/bug272_2 +++ b/tests/bugs/iges/bug272_2 @@ -5,8 +5,8 @@ puts "========" igesbrep [locate_data_file 919-001-T02-04-FT-VL.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r if { [llength [whatis result]] == 3 } { puts "Error : There is no result" diff --git a/tests/bugs/iges/bug272_3 b/tests/bugs/iges/bug272_3 index 7886471f7c..66c7815c31 100755 --- a/tests/bugs/iges/bug272_3 +++ b/tests/bugs/iges/bug272_3 @@ -5,8 +5,8 @@ puts "========" igesbrep [locate_data_file 919-004-T02-01-FT-VL.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r if { [llength [whatis result]] == 3 } { puts "Error : There is no result" diff --git a/tests/bugs/iges/bug283 b/tests/bugs/iges/bug283 index 2fdc0cdcca..9973a43cf1 100755 --- a/tests/bugs/iges/bug283 +++ b/tests/bugs/iges/bug283 @@ -6,7 +6,7 @@ puts "" igesbrep [locate_data_file BUC50030.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/iges/bug285 b/tests/bugs/iges/bug285 index e77d0e81ed..fe126e02c3 100755 --- a/tests/bugs/iges/bug285 +++ b/tests/bugs/iges/bug285 @@ -5,8 +5,8 @@ puts "========" igesbrep [locate_data_file OCC285.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/iges/bug306 b/tests/bugs/iges/bug306 index 1995795f68..7e505aca04 100755 --- a/tests/bugs/iges/bug306 +++ b/tests/bugs/iges/bug306 @@ -13,7 +13,7 @@ tclean a sewing result a -puts [checkshape result] +checkshape result vinit vsetdispmode result 1 diff --git a/tests/bugs/iges/bug365_1 b/tests/bugs/iges/bug365_1 index 0c514ddd6e..fab0839959 100755 --- a/tests/bugs/iges/bug365_1 +++ b/tests/bugs/iges/bug365_1 @@ -6,7 +6,7 @@ puts "" igesbrep [locate_data_file BUC61004-1.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/iges/bug365_3 b/tests/bugs/iges/bug365_3 index bd57997482..c2a775d725 100755 --- a/tests/bugs/iges/bug365_3 +++ b/tests/bugs/iges/bug365_3 @@ -6,7 +6,7 @@ puts "" igesbrep [locate_data_file BUC61004-2.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/iges/bug365_4 b/tests/bugs/iges/bug365_4 index 7046bb15b9..c3741b682f 100755 --- a/tests/bugs/iges/bug365_4 +++ b/tests/bugs/iges/bug365_4 @@ -6,7 +6,7 @@ puts "" igesbrep [locate_data_file BUC61004-3.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/iges/bug365_5 b/tests/bugs/iges/bug365_5 index 882fd5069f..4434aa7a3c 100755 --- a/tests/bugs/iges/bug365_5 +++ b/tests/bugs/iges/bug365_5 @@ -6,7 +6,7 @@ puts "" igesbrep [locate_data_file BUC61004-4.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/iges/bug386 b/tests/bugs/iges/bug386 index 8a533fe353..18d1db66b0 100755 --- a/tests/bugs/iges/bug386 +++ b/tests/bugs/iges/bug386 @@ -9,8 +9,8 @@ puts "" igesbrep [locate_data_file So5571b.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/iges/bug514 b/tests/bugs/iges/bug514 new file mode 100755 index 0000000000..209f6da4c1 --- /dev/null +++ b/tests/bugs/iges/bug514 @@ -0,0 +1,13 @@ +puts "========" +puts "OCC514" +puts "========" + +igesbrep [locate_data_file OCC514a.igs] a * + +tpcompound result + +checkshape result +checkshape result r + +set 2dviewer 0 + diff --git a/tests/bugs/iges/bug58_1 b/tests/bugs/iges/bug58_1 index 1080b54fbe..b1bd700f08 100755 --- a/tests/bugs/iges/bug58_1 +++ b/tests/bugs/iges/bug58_1 @@ -9,8 +9,8 @@ puts "" igesbrep [locate_data_file OCC58a.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/iges/bug58_2 b/tests/bugs/iges/bug58_2 index 3a4c159c91..bfad546aab 100755 --- a/tests/bugs/iges/bug58_2 +++ b/tests/bugs/iges/bug58_2 @@ -11,8 +11,8 @@ cpulimit 3000 igesbrep [locate_data_file OCC58b.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/iges/bug58_3 b/tests/bugs/iges/bug58_3 index 82c830217c..26d2244ea2 100755 --- a/tests/bugs/iges/bug58_3 +++ b/tests/bugs/iges/bug58_3 @@ -11,8 +11,8 @@ cpulimit 3000 igesbrep [locate_data_file OCC58c.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/iges/bug700 b/tests/bugs/iges/bug700 new file mode 100755 index 0000000000..381a1b310e --- /dev/null +++ b/tests/bugs/iges/bug700 @@ -0,0 +1,25 @@ +puts "TODO OCC12345 ALL: An exception was caught" +puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*" +puts "TODO OCC12345 ALL: Faulty OCC700" + +puts "=======" +puts "OCC700" +puts "=======" +puts "" +########################################################## +## The attached file calnnot be read with OCC4.0, while read successfully with OCC3.0 +########################################################## + +if [ catch {igesbrep [locate_data_file OCC700.igs]} res ] { + puts "Faulty OCC700" +} else { + set index [lsearch $res Faulty] + set index1 [lsearch $res error.] + if {$index > -1 || $index1 > -1} { + puts "Faulty OCC700" + } else { + puts "OCC700 OK" + } +} + + diff --git a/tests/bugs/iges/bug89 b/tests/bugs/iges/bug89 index 3f092b03df..c68cc2a1e6 100755 --- a/tests/bugs/iges/bug89 +++ b/tests/bugs/iges/bug89 @@ -10,8 +10,8 @@ puts "========================" igesbrep [locate_data_file BUC60800.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/iges/fra62523 b/tests/bugs/iges/fra62523 old mode 100644 new mode 100755 diff --git a/tests/bugs/iges/ger61337 b/tests/bugs/iges/ger61337 old mode 100644 new mode 100755 index 584022a5aa..7895ccedf6 --- a/tests/bugs/iges/ger61337 +++ b/tests/bugs/iges/ger61337 @@ -7,8 +7,8 @@ cpulimit 3000 igesbrep [locate_data_file ger61337a.igs] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/mesh/end b/tests/bugs/mesh/end index 2bb293b5b5..769221ae43 100755 --- a/tests/bugs/mesh/end +++ b/tests/bugs/mesh/end @@ -17,7 +17,7 @@ if { [string compare ${TheFileName} ""] != 0 } { } } -puts [checkshape res] +checkshape res tclean res diff --git a/tests/bugs/modalg/buc60409_1 b/tests/bugs/modalg/buc60409_1 old mode 100644 new mode 100755 diff --git a/tests/bugs/modalg/buc60409_2 b/tests/bugs/modalg/buc60409_2 old mode 100644 new mode 100755 diff --git a/tests/bugs/modalg/buc60409_3 b/tests/bugs/modalg/buc60409_3 old mode 100644 new mode 100755 diff --git a/tests/bugs/modalg/buc60462_1 b/tests/bugs/modalg/buc60462_1 index faa1e299dd..bb20c30538 100755 --- a/tests/bugs/modalg/buc60462_1 +++ b/tests/bugs/modalg/buc60462_1 @@ -8,9 +8,9 @@ puts "Section" puts "" restore [locate_data_file buc60462a.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file buc60462b.brep] b -puts [checkshape b] +checkshape b bsection result a b regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full cs diff --git a/tests/bugs/modalg/buc60462_2 b/tests/bugs/modalg/buc60462_2 index c3a7fe1432..32b9d90abb 100755 --- a/tests/bugs/modalg/buc60462_2 +++ b/tests/bugs/modalg/buc60462_2 @@ -8,9 +8,9 @@ puts "BUC60462" puts "==========" restore [locate_data_file buc60462c.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file buc60462d.brep] b -puts [checkshape b] +checkshape b puts "Fuse begin" bfuse result a b puts "Fuse end" diff --git a/tests/bugs/modalg/buc60463 b/tests/bugs/modalg/buc60463 index 7a1fbd67ad..3980770778 100755 --- a/tests/bugs/modalg/buc60463 +++ b/tests/bugs/modalg/buc60463 @@ -8,9 +8,9 @@ puts "Section" puts "" cpulimit 1400 restore [locate_data_file buc60463a.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file buc60463b.brep] b -puts [checkshape b] +checkshape b bsection result a b regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full cs diff --git a/tests/bugs/modalg/buc60523 b/tests/bugs/modalg/buc60523 old mode 100644 new mode 100755 index 9a248998e6..a1d1cb238b --- a/tests/bugs/modalg/buc60523 +++ b/tests/bugs/modalg/buc60523 @@ -4,7 +4,7 @@ puts "BUC60523" puts "========================" restore [locate_data_file buc60523a.brep] a -puts [checkshape a] +checkshape a sewing result 1.e-7 a set square 156.919 set 2dviewer 0 diff --git a/tests/bugs/modalg/buc60531_1 b/tests/bugs/modalg/buc60531_1 old mode 100644 new mode 100755 index 4a8870fb65..6bc69bb76a --- a/tests/bugs/modalg/buc60531_1 +++ b/tests/bugs/modalg/buc60531_1 @@ -4,9 +4,9 @@ puts "BUC60531" puts "========================" restore [locate_data_file buc60531a.brep] r1 -puts [checkshape r1] +checkshape r1 restore [locate_data_file buc60531b.brep] pl1 -puts [checkshape pl1] +checkshape pl1 bcut result r1 pl1 diff --git a/tests/bugs/modalg/buc60531_2 b/tests/bugs/modalg/buc60531_2 old mode 100644 new mode 100755 index ac3d913f92..c4e9dc329f --- a/tests/bugs/modalg/buc60531_2 +++ b/tests/bugs/modalg/buc60531_2 @@ -4,16 +4,16 @@ puts "BUC60531" puts "========================" restore [locate_data_file buc60531a.brep] r1 -puts [checkshape r1] +checkshape r1 restore [locate_data_file buc60531b.brep] pl1 -puts [checkshape pl1] +checkshape pl1 bcut r2 r1 pl1 -puts [checkshape r2] +checkshape r2 restore [locate_data_file buc60531c.brep] pl2 -puts [checkshape pl2] +checkshape pl2 bcut result r2 pl2 diff --git a/tests/bugs/modalg/buc60532 b/tests/bugs/modalg/buc60532 old mode 100644 new mode 100755 index b1f28cda92..936a35bbc6 --- a/tests/bugs/modalg/buc60532 +++ b/tests/bugs/modalg/buc60532 @@ -3,13 +3,13 @@ puts "BUC60532" puts "===========" restore [locate_data_file buc60532a.brep] p -puts [checkshape p] +checkshape p restore [locate_data_file buc60532b.brep] t1 -puts [checkshape t1] +checkshape t1 restore [locate_data_file buc60532c.brep] t2 -puts [checkshape t2] +checkshape t2 # create halfspace halfspace h1 t1 20 20 0 diff --git a/tests/bugs/modalg/buc60532_1 b/tests/bugs/modalg/buc60532_1 old mode 100644 new mode 100755 index 0ba7b8e206..be2eeff4fb --- a/tests/bugs/modalg/buc60532_1 +++ b/tests/bugs/modalg/buc60532_1 @@ -3,13 +3,13 @@ puts "BUC60532" puts "===========" restore [locate_data_file buc60532a.brep] p -puts [checkshape p] +checkshape p restore [locate_data_file buc60532b.brep] t1 -puts [checkshape t1] +checkshape t1 restore [locate_data_file buc60532c.brep] t2 -puts [checkshape t2] +checkshape t2 # create halfspace halfspace h1 t1 20 20 0 diff --git a/tests/bugs/modalg/buc60532_2 b/tests/bugs/modalg/buc60532_2 old mode 100644 new mode 100755 index 1e288a32ec..9d2b3735ae --- a/tests/bugs/modalg/buc60532_2 +++ b/tests/bugs/modalg/buc60532_2 @@ -3,13 +3,13 @@ puts "BUC60532" puts "==========" restore [locate_data_file buc60532a.brep] p -puts [checkshape p] +checkshape p restore [locate_data_file buc60532b.brep] t1 -puts [checkshape t1] +checkshape t1 restore [locate_data_file buc60532c.brep] t2 -puts [checkshape t2] +checkshape t2 # create halfspace #vertex v 20 20 0 @@ -26,13 +26,13 @@ mkcurve cu13 res1_3 mkcurve cu14 res1_4 mkcurve cu15 res1_5 -puts [checkshape res1] +checkshape res1 puts [computetolerance res1] # second cut bcut res2 res1 h2 tcopy res2 res -puts [checkshape res2] +checkshape res2 explode res2 e mkcurve cu21 res2_1 diff --git a/tests/bugs/modalg/buc60533 b/tests/bugs/modalg/buc60533 old mode 100644 new mode 100755 index df2d5434b4..8af03576d1 --- a/tests/bugs/modalg/buc60533 +++ b/tests/bugs/modalg/buc60533 @@ -3,12 +3,12 @@ puts "BUC60533" puts "==========" restore [locate_data_file buc60533a.brep] part -puts [checkshape part] +checkshape part #puts "Tolerance part" #computetolerance part restore [locate_data_file buc60533b.brep] trTool -puts [checkshape trTool] +checkshape trTool #puts "Tolerance trTool" #computetolerance trTool diff --git a/tests/bugs/modalg/buc60555_1 b/tests/bugs/modalg/buc60555_1 old mode 100644 new mode 100755 index 9fb65610d2..0f0ba0ff45 --- a/tests/bugs/modalg/buc60555_1 +++ b/tests/bugs/modalg/buc60555_1 @@ -5,13 +5,13 @@ puts "===========" #cpulim add aki 070704 cpulimit 1600 restore [locate_data_file buc60555a.brep] part -puts [checkshape part] +checkshape part restore [locate_data_file buc60555b.brep] trTool1 -puts [checkshape trTool1] +checkshape trTool1 halfspace hs1 trTool1 20000 10000 0 bcut cut1 part hs1 -puts [checkshape cut1] +checkshape cut1 tcopy cut1 result diff --git a/tests/bugs/modalg/buc60555_2 b/tests/bugs/modalg/buc60555_2 index 11a7c0bd10..7e55c72f3f 100755 --- a/tests/bugs/modalg/buc60555_2 +++ b/tests/bugs/modalg/buc60555_2 @@ -4,13 +4,13 @@ puts "CUT Case2" puts "=============" cpulimit 1400 restore [locate_data_file buc60555a.brep] part -puts [checkshape part] +checkshape part restore [locate_data_file buc60555b.brep] trTool1 -puts [checkshape trTool1] +checkshape trTool1 halfspace hs1 trTool1 20000 10000 0 bcut cut1 part hs1 -puts [checkshape cut1] +checkshape cut1 set che [checkshape cut1 r] if { [regexp {OK} $che] != 1 } { @@ -40,7 +40,7 @@ if { [regexp {OK} $che] != 1 } { puts "Checking by checkshape - OK" } -puts [checkshape cut2] +checkshape cut2 set tolerance [ maxtolerance cut2 ] regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance diff --git a/tests/bugs/modalg/buc60555_3 b/tests/bugs/modalg/buc60555_3 index 7552a71cf7..eee1c97b3f 100755 --- a/tests/bugs/modalg/buc60555_3 +++ b/tests/bugs/modalg/buc60555_3 @@ -4,13 +4,13 @@ puts "CUT Case 3" puts "==============" cpulimit 5000 restore [locate_data_file buc60555a.brep] part -puts [checkshape part] +checkshape part restore [locate_data_file buc60555b.brep] trTool1 -puts [checkshape trTool1] +checkshape trTool1 halfspace hs1 trTool1 20000 10000 0 bcut cut1 part hs1 -puts [checkshape cut1] +checkshape cut1 set che [checkshape cut1 r] if { [regexp {OK} $che] != 1 } { @@ -24,7 +24,7 @@ maxtolerance cut1 restore [locate_data_file buc60555c.brep] trTool2 halfspace hs2 trTool2 10000 10000 0 bcut cut2 cut1 hs2 -puts [checkshape cut2] +checkshape cut2 set che [checkshape cut2 r] if { [regexp {OK} $che] != 1 } { @@ -54,7 +54,7 @@ if { [regexp {OK} $che] != 1 } { puts "Checking by checkshape - OK" } -puts [checkshape cut3 ] +checkshape cut3 set tolerance [ maxtolerance cut3 ] regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance diff --git a/tests/bugs/modalg/buc60585_1 b/tests/bugs/modalg/buc60585_1 index e9bfd3606d..76fbd9590a 100755 --- a/tests/bugs/modalg/buc60585_1 +++ b/tests/bugs/modalg/buc60585_1 @@ -4,7 +4,7 @@ puts "BUC60585" puts "========================" restore [locate_data_file buc60585a.brep] s -puts [checkshape s] +checkshape s plane ps 2036.25 -97.5 -1460.499755859375 0.0 -0.75103523489975432 -0.66026212668838646 1.0 0.0 0.0 psection result s ps diff --git a/tests/bugs/modalg/buc60585_2 b/tests/bugs/modalg/buc60585_2 old mode 100644 new mode 100755 index 2647039a89..d37af3dee1 --- a/tests/bugs/modalg/buc60585_2 +++ b/tests/bugs/modalg/buc60585_2 @@ -4,7 +4,7 @@ puts "BUC60585" puts "========================" restore [locate_data_file buc60585b.brep] t -puts [checkshape t] +checkshape t plane pt 2036.25 -97.5 -1460.499755859375 0.0 -1.0 0.0 1.0 0.0 0.0 psection result t pt diff --git a/tests/bugs/modalg/buc60623_1 b/tests/bugs/modalg/buc60623_1 old mode 100644 new mode 100755 index be68670223..35906ca1d4 --- a/tests/bugs/modalg/buc60623_1 +++ b/tests/bugs/modalg/buc60623_1 @@ -4,9 +4,9 @@ puts "BUC60623" puts "========================" restore [locate_data_file buc60623a.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file buc60623b.brep] b -puts [checkshape b] +checkshape b bsection result a b diff --git a/tests/bugs/modalg/buc60623_2 b/tests/bugs/modalg/buc60623_2 old mode 100644 new mode 100755 index 501aba6ea4..25d0b279e6 --- a/tests/bugs/modalg/buc60623_2 +++ b/tests/bugs/modalg/buc60623_2 @@ -4,9 +4,9 @@ puts "BUC60623" puts "========================" restore [locate_data_file buc60623a.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file buc60623b.brep] b -puts [checkshape b] +checkshape b bsection result b a # checksection res diff --git a/tests/bugs/modalg/buc60635 b/tests/bugs/modalg/buc60635 old mode 100644 new mode 100755 index d33331fcb5..c477cdba39 --- a/tests/bugs/modalg/buc60635 +++ b/tests/bugs/modalg/buc60635 @@ -4,7 +4,7 @@ puts "BUC60635" puts "=============" restore [locate_data_file buc60635a.brep] a -puts [checkshape a] +checkshape a mkplane result a diff --git a/tests/bugs/modalg/buc60649 b/tests/bugs/modalg/buc60649 index 8cf1ac658b..313cc938cf 100755 --- a/tests/bugs/modalg/buc60649 +++ b/tests/bugs/modalg/buc60649 @@ -5,7 +5,7 @@ puts "==========" puts "" restore [locate_data_file buc60649a.brep] a -puts [checkshape a] +checkshape a set che [checkshape a rr] if { [regexp {OK} $che] != 1 } { diff --git a/tests/bugs/modalg/buc60663_1 b/tests/bugs/modalg/buc60663_1 old mode 100644 new mode 100755 index b688dca7e6..2cf7b73aac --- a/tests/bugs/modalg/buc60663_1 +++ b/tests/bugs/modalg/buc60663_1 @@ -8,9 +8,9 @@ puts "=====================================" puts "" restore [locate_data_file buc60663a.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file buc60663b.brep] b -puts [checkshape b] +checkshape b bsection result a b diff --git a/tests/bugs/modalg/buc60663_2 b/tests/bugs/modalg/buc60663_2 index e6a0c9cd22..3bf367be9f 100755 --- a/tests/bugs/modalg/buc60663_2 +++ b/tests/bugs/modalg/buc60663_2 @@ -10,9 +10,9 @@ puts "=====================================" puts "" restore [locate_data_file buc60663a.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file buc60663b.brep] b -puts [checkshape b] +checkshape b bsection result a b diff --git a/tests/bugs/modalg/buc60668 b/tests/bugs/modalg/buc60668 old mode 100644 new mode 100755 diff --git a/tests/bugs/modalg/buc60669 b/tests/bugs/modalg/buc60669 index 1e09f79488..ef4feb62a5 100755 --- a/tests/bugs/modalg/buc60669 +++ b/tests/bugs/modalg/buc60669 @@ -10,9 +10,9 @@ puts "" ############################################################# restore [locate_data_file buc60669a.brep] shell1 -puts [checkshape shell1] +checkshape shell1 restore [locate_data_file buc60669b.brep] shell2 -puts [checkshape shell2] +checkshape shell2 ksection result shell1 shell2 1000 0.0001 0.00001 0 diff --git a/tests/bugs/modalg/buc60684 b/tests/bugs/modalg/buc60684 old mode 100644 new mode 100755 index 72663b9b6b..487dc7748d --- a/tests/bugs/modalg/buc60684 +++ b/tests/bugs/modalg/buc60684 @@ -4,7 +4,7 @@ puts "BUC60684" puts "=============" restore [locate_data_file buc60684a.brep] w -puts [checkshape w] +checkshape w prism result w 0 0 10 diff --git a/tests/bugs/modalg/buc60703_1 b/tests/bugs/modalg/buc60703_1 index d03204630b..d213ff1b84 100755 --- a/tests/bugs/modalg/buc60703_1 +++ b/tests/bugs/modalg/buc60703_1 @@ -17,10 +17,10 @@ puts "=================================" restore [locate_data_file buc60703a.brep] a # maxtolerance a -puts [checkshape a] +checkshape a restore [locate_data_file buc60703b.brep] b # maxtolerance b -puts [checkshape b] +checkshape b if [catch {bfuse result a b } catch_result] { puts "Faulty BUC60703: here is problem with FUSE operation" diff --git a/tests/bugs/modalg/buc60703_2 b/tests/bugs/modalg/buc60703_2 old mode 100644 new mode 100755 index b2976f4c50..a8a4b772e2 --- a/tests/bugs/modalg/buc60703_2 +++ b/tests/bugs/modalg/buc60703_2 @@ -10,10 +10,10 @@ puts "" ############################################ restore [locate_data_file buc60703c.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file buc60703e.brep] b -puts [checkshape b] +checkshape b if [catch {bfuse result a b } catch_result] { diff --git a/tests/bugs/modalg/buc60703_3 b/tests/bugs/modalg/buc60703_3 old mode 100644 new mode 100755 index 1e1578a3f8..fc773b64cc --- a/tests/bugs/modalg/buc60703_3 +++ b/tests/bugs/modalg/buc60703_3 @@ -5,10 +5,10 @@ puts "========================" restore [locate_data_file buc60703e.brep] a #maxtolerance a -puts [checkshape a] +checkshape a restore [locate_data_file buc60703d.brep] b #maxtolerance b -puts [checkshape b] +checkshape b if [catch {bfuse result a b } catch_result] { puts "Faulty BUC60703: here is problem with FUSE operation" diff --git a/tests/bugs/modalg/buc60703_4 b/tests/bugs/modalg/buc60703_4 old mode 100644 new mode 100755 index ec7ad8f415..32f006487f --- a/tests/bugs/modalg/buc60703_4 +++ b/tests/bugs/modalg/buc60703_4 @@ -9,10 +9,10 @@ puts "" restore [locate_data_file buc60703d.brep] a #maxtolerance a -puts [checkshape a] +checkshape a restore [locate_data_file buc60703f.brep] b #maxtolerance b -puts [checkshape b] +checkshape b if [catch {bfuse result a b } catch_result] { puts "Faulty BUC60703: here is problem with FUSE operation" diff --git a/tests/bugs/modalg/buc60704 b/tests/bugs/modalg/buc60704 old mode 100644 new mode 100755 index 5757e017f8..85a5fed6d0 --- a/tests/bugs/modalg/buc60704 +++ b/tests/bugs/modalg/buc60704 @@ -5,9 +5,9 @@ puts "BUC60709" puts "========================" restore [locate_data_file buc60704a.brep] p -puts [checkshape p] +checkshape p restore [locate_data_file buc60704b.brep] s -puts [checkshape s] +checkshape s bfuse result p s diff --git a/tests/bugs/modalg/buc60708 b/tests/bugs/modalg/buc60708 index f92c581393..906f393778 100755 --- a/tests/bugs/modalg/buc60708 +++ b/tests/bugs/modalg/buc60708 @@ -4,9 +4,9 @@ puts "BUC60708" puts "===========" restore [locate_data_file buc60708a.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file buc60708b.brep] b -puts [checkshape b] +checkshape b bcommon result a b diff --git a/tests/bugs/modalg/buc60712 b/tests/bugs/modalg/buc60712 index 4e47b77e41..dfe87f1ddb 100755 --- a/tests/bugs/modalg/buc60712 +++ b/tests/bugs/modalg/buc60712 @@ -16,10 +16,10 @@ puts "==================================" # The Case chl/902/F3 should be removed or rewritten: restore [locate_data_file buc60712a.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file buc60712b.brep] b -puts [checkshape b] +checkshape b # Recompute "a" shape explode a f diff --git a/tests/bugs/modalg/buc60714 b/tests/bugs/modalg/buc60714 old mode 100644 new mode 100755 diff --git a/tests/bugs/modalg/buc60728 b/tests/bugs/modalg/buc60728 old mode 100644 new mode 100755 index b844711da5..278e19f85f --- a/tests/bugs/modalg/buc60728 +++ b/tests/bugs/modalg/buc60728 @@ -10,8 +10,8 @@ puts "" restore [locate_data_file buc60728a.brep] s1 restore [locate_data_file buc60728b.brep] s2 build3d s1 -puts [checkshape s1] -puts [checkshape s2] +checkshape s1 +checkshape s2 bsection result s1 s2 diff --git a/tests/bugs/modalg/buc60776_1 b/tests/bugs/modalg/buc60776_1 old mode 100644 new mode 100755 index 275a0c7d84..108307777a --- a/tests/bugs/modalg/buc60776_1 +++ b/tests/bugs/modalg/buc60776_1 @@ -4,9 +4,9 @@ puts "BUC60776" puts "========================" restore [locate_data_file buc60776a.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file buc60776b.brep] b -puts [checkshape b] +checkshape b bfuse result a b set square 60771.3 diff --git a/tests/bugs/modalg/buc60776_2 b/tests/bugs/modalg/buc60776_2 old mode 100644 new mode 100755 index ba3caef1cc..a8e30d8d1d --- a/tests/bugs/modalg/buc60776_2 +++ b/tests/bugs/modalg/buc60776_2 @@ -4,9 +4,9 @@ puts "BUC60776" puts "========================" restore [locate_data_file buc60776c.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file buc60776d.brep] b -puts [checkshape b] +checkshape b bsection result a b set length 111.405 diff --git a/tests/bugs/modalg/buc60782_1 b/tests/bugs/modalg/buc60782_1 old mode 100644 new mode 100755 diff --git a/tests/bugs/modalg/buc60782_3 b/tests/bugs/modalg/buc60782_3 old mode 100644 new mode 100755 diff --git a/tests/bugs/modalg/buc60787_1 b/tests/bugs/modalg/buc60787_1 index e7fd3c9330..527904acba 100755 --- a/tests/bugs/modalg/buc60787_1 +++ b/tests/bugs/modalg/buc60787_1 @@ -10,9 +10,9 @@ puts "========" #restore Common_Solid_Case2.brep S2 restore [locate_data_file buc60787a.brep] S1 -puts [checkshape S1] +checkshape S1 restore [locate_data_file buc60787b.brep] S2 -puts [checkshape S1] +checkshape S1 bcommon result S1 S2 diff --git a/tests/bugs/modalg/buc60787_2 b/tests/bugs/modalg/buc60787_2 index e65731c231..48e5ec78e1 100755 --- a/tests/bugs/modalg/buc60787_2 +++ b/tests/bugs/modalg/buc60787_2 @@ -10,9 +10,9 @@ puts "========" #restore Cut_Solid_Case2.brep S2 restore [locate_data_file buc60787c.brep] S1 -puts [checkshape S1] +checkshape S1 restore [locate_data_file buc60787d.brep] S2 -puts [checkshape S2] +checkshape S2 bcut result S1 S2 diff --git a/tests/bugs/modalg/buc60788_1 b/tests/bugs/modalg/buc60788_1 old mode 100644 new mode 100755 index 51f088d17a..bc6ba4bc1b --- a/tests/bugs/modalg/buc60788_1 +++ b/tests/bugs/modalg/buc60788_1 @@ -8,9 +8,9 @@ puts "============" #restore Intersection_Shell2_Case1.brep S2 restore [locate_data_file buc60788a.brep] S1 -puts [checkshape S1] +checkshape S1 restore [locate_data_file buc60788b.brep] S2 -puts [checkshape S2] +checkshape S2 bsection result S1 S2 diff --git a/tests/bugs/modalg/buc60788_2 b/tests/bugs/modalg/buc60788_2 index 8380af764f..5b9c8ff92c 100755 --- a/tests/bugs/modalg/buc60788_2 +++ b/tests/bugs/modalg/buc60788_2 @@ -10,9 +10,9 @@ puts "========" #restore Cut_Solid_Case2.brep S2 restore [locate_data_file buc60788e.brep] S1 -puts [checkshape S1] +checkshape S1 restore [locate_data_file buc60787d.brep] S2 -puts [checkshape S2] +checkshape S2 bcut result S1 S2 diff --git a/tests/bugs/modalg/buc60788_3 b/tests/bugs/modalg/buc60788_3 index 3b8085c05b..dbf3fd88dd 100755 --- a/tests/bugs/modalg/buc60788_3 +++ b/tests/bugs/modalg/buc60788_3 @@ -10,9 +10,9 @@ puts "========" #restore Common_Solid_Case2.brep S2 restore [locate_data_file buc60788c.brep] S1 -puts [checkshape S1] +checkshape S1 restore [locate_data_file buc60787b.brep] S2 -puts [checkshape S1] +checkshape S1 bcommon result S1 S2 diff --git a/tests/bugs/modalg/buc60789_1 b/tests/bugs/modalg/buc60789_1 index 59aa0cd380..6cd08871ed 100755 --- a/tests/bugs/modalg/buc60789_1 +++ b/tests/bugs/modalg/buc60789_1 @@ -7,9 +7,9 @@ puts "" #restore buc60789a.brep S1 restore [locate_data_file buc60787b.brep] S1 ### (by apn during classification) -puts [checkshape S1] +checkshape S1 restore [locate_data_file buc60789b.brep] S2 -puts [checkshape S2] +checkshape S2 bcommon result S1 S2 diff --git a/tests/bugs/modalg/buc60789_2 b/tests/bugs/modalg/buc60789_2 index eee4f3921a..8ae8dde94e 100755 --- a/tests/bugs/modalg/buc60789_2 +++ b/tests/bugs/modalg/buc60789_2 @@ -7,9 +7,9 @@ puts "" #restore buc60789c.brep S1 ##by apn restore [locate_data_file buc60787b.brep] S1 -puts [checkshape S1] +checkshape S1 restore [locate_data_file buc60789d.brep] S2 -puts [checkshape S2] +checkshape S2 bcut result S2 S1 diff --git a/tests/bugs/modalg/buc60801 b/tests/bugs/modalg/buc60801 old mode 100644 new mode 100755 diff --git a/tests/bugs/modalg/buc60803 b/tests/bugs/modalg/buc60803 old mode 100644 new mode 100755 index d97749af2a..78d48220fa --- a/tests/bugs/modalg/buc60803 +++ b/tests/bugs/modalg/buc60803 @@ -4,9 +4,9 @@ puts "BUC60803" puts "========================" restore [locate_data_file buc60803a.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file buc60803b.brep] b -puts [checkshape b] +checkshape b bfuse result a b diff --git a/tests/bugs/modalg/buc60826 b/tests/bugs/modalg/buc60826 index 893aaf595b..690d68b126 100755 --- a/tests/bugs/modalg/buc60826 +++ b/tests/bugs/modalg/buc60826 @@ -7,11 +7,11 @@ puts "========================" #restore Model2-a.brep a restore [locate_data_file BUC60826a.brep] a -puts [checkshape a] +checkshape a # restore Model2-b.brep b restore [locate_data_file BUC60826b.brep] b -puts [checkshape b] +checkshape b bsection result a b diff --git a/tests/bugs/modalg/buc60830_4 b/tests/bugs/modalg/buc60830_4 index 1ef45baf52..d0b5e69dcf 100755 --- a/tests/bugs/modalg/buc60830_4 +++ b/tests/bugs/modalg/buc60830_4 @@ -4,7 +4,7 @@ puts "BUC60829" puts "=============" restore [locate_data_file BUC60830-face2.brep] f -puts [checkshape f] +checkshape f set che [checkshape f rr] if { [regexp {OK} $che] != 1 } { diff --git a/tests/bugs/modalg/buc60839 b/tests/bugs/modalg/buc60839 old mode 100644 new mode 100755 index a76ba5b787..cad2dbf042 --- a/tests/bugs/modalg/buc60839 +++ b/tests/bugs/modalg/buc60839 @@ -5,9 +5,9 @@ puts "============" puts "" restore [locate_data_file BUC60839-1.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file BUC60839-2.brep] b -puts [checkshape b] +checkshape b puts "Starting fuse operation" diff --git a/tests/bugs/modalg/buc60841 b/tests/bugs/modalg/buc60841 old mode 100644 new mode 100755 index a619046d07..b12cccc345 --- a/tests/bugs/modalg/buc60841 +++ b/tests/bugs/modalg/buc60841 @@ -4,9 +4,9 @@ puts "BUC60841" puts "========" restore [locate_data_file buc60841a.brep] sh1 -puts [checkshape sh1] +checkshape sh1 restore [locate_data_file buc60841b.brep] sh2 -puts [checkshape sh2] +checkshape sh2 bfuse result sh1 sh2 diff --git a/tests/bugs/modalg/buc60849 b/tests/bugs/modalg/buc60849 old mode 100644 new mode 100755 index 2cdd50df9e..cf84ffe5ef --- a/tests/bugs/modalg/buc60849 +++ b/tests/bugs/modalg/buc60849 @@ -5,7 +5,7 @@ puts "============" puts "" restore [locate_data_file BUC60849.brep] result -puts [checkshape result] +checkshape result set bndb [ lindex [bounding result] 3 ] diff --git a/tests/bugs/modalg/buc60853 b/tests/bugs/modalg/buc60853 index 60ddd30505..e40cc1c55c 100755 --- a/tests/bugs/modalg/buc60853 +++ b/tests/bugs/modalg/buc60853 @@ -13,8 +13,8 @@ puts "" restore [locate_data_file BUC60853_face.brep] face restore [locate_data_file BUC60853_plane.brep] plane -puts [checkshape face] -puts [checkshape plane] +checkshape face +checkshape plane bsection result face plane -a diff --git a/tests/bugs/modalg/buc60865 b/tests/bugs/modalg/buc60865 old mode 100644 new mode 100755 index 00cb07d255..acdf0d8b43 --- a/tests/bugs/modalg/buc60865 +++ b/tests/bugs/modalg/buc60865 @@ -9,7 +9,7 @@ puts "" ########################## restore [locate_data_file BUC60865_sh6.brep] sh -puts [checkshape sh] +checkshape sh plane pl 1.1 0.99999 1 0 1 0 mkface f pl diff --git a/tests/bugs/modalg/buc60878_1 b/tests/bugs/modalg/buc60878_1 index 68c7987224..c5fe7f4740 100755 --- a/tests/bugs/modalg/buc60878_1 +++ b/tests/bugs/modalg/buc60878_1 @@ -9,7 +9,7 @@ puts "=============" #checkshape res restore [locate_data_file BUC60878-wire1.brep] a -puts [checkshape a] +checkshape a set che [checkshape a rr] if { [regexp {OK} $che] != 1 } { diff --git a/tests/bugs/modalg/buc60878_2 b/tests/bugs/modalg/buc60878_2 index fe21133d21..f68c06d12d 100755 --- a/tests/bugs/modalg/buc60878_2 +++ b/tests/bugs/modalg/buc60878_2 @@ -9,7 +9,7 @@ puts "=============" #checkshape res restore [locate_data_file BUC60878-wire3.brep] a -puts [checkshape a] +checkshape a set che [checkshape a rr] if { [regexp {OK} $che] != 1 } { diff --git a/tests/bugs/modalg/buc60878_3 b/tests/bugs/modalg/buc60878_3 index f51378ebb7..a67e88e0e8 100755 --- a/tests/bugs/modalg/buc60878_3 +++ b/tests/bugs/modalg/buc60878_3 @@ -9,7 +9,7 @@ puts "=============" #checkshape res restore [locate_data_file BUC60878-wire5.brep] a -puts [checkshape a] +checkshape a set che [checkshape a rr] if { [regexp {OK} $che] != 1 } { diff --git a/tests/bugs/modalg/buc60880 b/tests/bugs/modalg/buc60880 index 42e3529fe9..e488e343ed 100755 --- a/tests/bugs/modalg/buc60880 +++ b/tests/bugs/modalg/buc60880 @@ -8,7 +8,7 @@ puts "" ########################################## restore [locate_data_file BUC60880_sec_error2.brep] sh -puts [checkshape sh] +checkshape sh plane pl 65000 19000 2600 1 0 0 mkface f pl diff --git a/tests/bugs/modalg/buc60881 b/tests/bugs/modalg/buc60881 old mode 100644 new mode 100755 index 3330cf49e6..0c4a2f7b2b --- a/tests/bugs/modalg/buc60881 +++ b/tests/bugs/modalg/buc60881 @@ -6,8 +6,8 @@ puts "" restore [locate_data_file BUC60881.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_1] +checkshape a_1 +checkshape a_1 bfuse result a_1 a_2 diff --git a/tests/bugs/modalg/buc60899_1 b/tests/bugs/modalg/buc60899_1 old mode 100644 new mode 100755 diff --git a/tests/bugs/modalg/buc60899_2 b/tests/bugs/modalg/buc60899_2 old mode 100644 new mode 100755 diff --git a/tests/bugs/modalg/buc60901 b/tests/bugs/modalg/buc60901 old mode 100644 new mode 100755 diff --git a/tests/bugs/modalg/buc60905 b/tests/bugs/modalg/buc60905 old mode 100644 new mode 100755 diff --git a/tests/bugs/modalg/buc60909 b/tests/bugs/modalg/buc60909 old mode 100644 new mode 100755 diff --git a/tests/bugs/modalg/buc60922 b/tests/bugs/modalg/buc60922 index 028506f469..81374aafea 100755 --- a/tests/bugs/modalg/buc60922 +++ b/tests/bugs/modalg/buc60922 @@ -8,7 +8,7 @@ puts "" ############################# restore [locate_data_file BUC60907_px1.rle] sh -puts [checkshape sh] +checkshape sh line l 40 0 5 0 1 0 mkedge e l diff --git a/tests/bugs/modalg/buc60926 b/tests/bugs/modalg/buc60926 index 48ee24c769..d5f8bfcc6b 100755 --- a/tests/bugs/modalg/buc60926 +++ b/tests/bugs/modalg/buc60926 @@ -9,10 +9,10 @@ puts "" ###################################################################### restore [locate_data_file shading_132.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file BUC60926-2.brep] b -puts [checkshape b] +checkshape b bfuse result a b diff --git a/tests/bugs/modalg/buc60927 b/tests/bugs/modalg/buc60927 old mode 100644 new mode 100755 index abf92dbfbf..2e32accb5a --- a/tests/bugs/modalg/buc60927 +++ b/tests/bugs/modalg/buc60927 @@ -6,8 +6,8 @@ puts "============" restore [locate_data_file BUC60927.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] +checkshape a_1 +checkshape a_2 bcut result a_2 a_1 diff --git a/tests/bugs/modalg/buc60930 b/tests/bugs/modalg/buc60930 old mode 100644 new mode 100755 index b25473f2ed..80d4a4df0b --- a/tests/bugs/modalg/buc60930 +++ b/tests/bugs/modalg/buc60930 @@ -9,8 +9,8 @@ puts "" restore [locate_data_file BUC60930_splitshape.brep] c explode c -puts [checkshape c_1] -puts [checkshape c_2] +checkshape c_1 +checkshape c_2 renamevar c_1 f renamevar c_2 e diff --git a/tests/bugs/modalg/buc60934 b/tests/bugs/modalg/buc60934 old mode 100644 new mode 100755 index c0ced12eef..5a6fff90bc --- a/tests/bugs/modalg/buc60934 +++ b/tests/bugs/modalg/buc60934 @@ -4,7 +4,7 @@ puts "BUC60934" puts "============" restore [locate_data_file BUC60934.brep] a -puts [checkshape a] +checkshape a mkplane result a diff --git a/tests/bugs/modalg/buc60942 b/tests/bugs/modalg/buc60942 old mode 100644 new mode 100755 index ad645da4d5..4cbddcdc50 --- a/tests/bugs/modalg/buc60942 +++ b/tests/bugs/modalg/buc60942 @@ -8,8 +8,8 @@ puts "============" restore [locate_data_file BUC60942_splitshape.brep] c explode c -puts [checkshape c_1] -puts [checkshape c_2] +checkshape c_1 +checkshape c_2 renamevar c_1 f renamevar c_2 w diff --git a/tests/bugs/modalg/buc60946 b/tests/bugs/modalg/buc60946 index 6815b2822a..4981868ff0 100755 --- a/tests/bugs/modalg/buc60946 +++ b/tests/bugs/modalg/buc60946 @@ -5,8 +5,8 @@ puts "============" restore [locate_data_file BUC60946_prism.brep] c explode c -puts [checkshape c_1] -puts [checkshape c_2] +checkshape c_1 +checkshape c_2 renamevar c_1 sh renamevar c_2 pr diff --git a/tests/bugs/modalg/buc60971 b/tests/bugs/modalg/buc60971 old mode 100644 new mode 100755 index fc2502f64d..b296845575 --- a/tests/bugs/modalg/buc60971 +++ b/tests/bugs/modalg/buc60971 @@ -7,8 +7,8 @@ puts "" restore [locate_data_file buc60971.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] +checkshape a_1 +checkshape a_2 bfuse result a_2 a_3 set square 93698.1 diff --git a/tests/bugs/modalg/bug100 b/tests/bugs/modalg/bug100 index 59fe558941..3a7fed6c16 100755 --- a/tests/bugs/modalg/bug100 +++ b/tests/bugs/modalg/bug100 @@ -8,10 +8,10 @@ puts "" ######################################## restore [locate_data_file OCC100_sp.brep] sh1 -puts [checkshape sh1] +checkshape sh1 restore [locate_data_file OCC100_cyl.brep] sh2 -puts [checkshape sh2] +checkshape sh2 #OCC100 : on WNT result is crushed when we make the next command: diff --git a/tests/bugs/modalg/bug101 b/tests/bugs/modalg/bug101 index 3abf8be6ee..00d25aa261 100755 --- a/tests/bugs/modalg/bug101 +++ b/tests/bugs/modalg/bug101 @@ -9,9 +9,9 @@ puts "" ## After restore c shell, section is incomplete ###################################### restore [locate_data_file buc60663a.brep] sh1 -puts [checkshape sh1] +checkshape sh1 restore [locate_data_file buc60663b.brep] sh2 -puts [checkshape sh2] +checkshape sh2 bsection result sh1 sh2 diff --git a/tests/bugs/modalg/bug1013 b/tests/bugs/modalg/bug1013 index 2314bb58ed..2cca8e0e1a 100755 --- a/tests/bugs/modalg/bug1013 +++ b/tests/bugs/modalg/bug1013 @@ -5,7 +5,7 @@ puts "================" puts "" restore [locate_data_file DXF906.rle] wire -puts [checkshape wire] +checkshape wire mkplane result wire diff --git a/tests/bugs/modalg/bug102_1 b/tests/bugs/modalg/bug102_1 index 6bd274c27d..90f0ed084f 100755 --- a/tests/bugs/modalg/bug102_1 +++ b/tests/bugs/modalg/bug102_1 @@ -6,9 +6,9 @@ puts "================" puts "" restore [locate_data_file buc60803a.brep] sh1 -puts [checkshape sh1] +checkshape sh1 restore [locate_data_file buc60803b.brep] sh2 -puts [checkshape sh2] +checkshape sh2 bfuse result sh1 sh2 diff --git a/tests/bugs/modalg/bug102_2 b/tests/bugs/modalg/bug102_2 index 6d59a5682a..c9dbb81e47 100755 --- a/tests/bugs/modalg/bug102_2 +++ b/tests/bugs/modalg/bug102_2 @@ -6,9 +6,9 @@ puts "================" puts "" restore [locate_data_file buc60803a.brep] sh1 -puts [checkshape sh1] +checkshape sh1 restore [locate_data_file buc60803b.brep] sh2 -puts [checkshape sh2] +checkshape sh2 bfuse result sh2 sh1 diff --git a/tests/bugs/modalg/bug108 b/tests/bugs/modalg/bug108 index cdb1f1239e..70b73d3b81 100755 --- a/tests/bugs/modalg/bug108 +++ b/tests/bugs/modalg/bug108 @@ -9,7 +9,7 @@ puts "" ##################################################################### restore [locate_data_file bug61037.brep] sh1 -puts [checkshape sh1] +checkshape sh1 set rr [bounding sh1] regexp { *([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+)} $rr full v1_x v1_y v1_z v2_x v2_y v2_z diff --git a/tests/bugs/modalg/bug109 b/tests/bugs/modalg/bug109 index 88342ea282..df88060a3d 100755 --- a/tests/bugs/modalg/bug109 +++ b/tests/bugs/modalg/bug109 @@ -11,7 +11,7 @@ puts "" restore [locate_data_file OCC109.brep] result -puts [checkshape result] +checkshape result vinit tclean result diff --git a/tests/bugs/modalg/bug110_1 b/tests/bugs/modalg/bug110_1 index d2a6868ab5..12eff3b10a 100755 --- a/tests/bugs/modalg/bug110_1 +++ b/tests/bugs/modalg/bug110_1 @@ -6,33 +6,33 @@ puts "(cases 1-3)" puts "========================" restore [locate_data_file buc60706a.brep] f -puts [checkshape f] +checkshape f restore [locate_data_file buc60706b.brep] w -puts [checkshape w] +checkshape w pipe t w f restore [locate_data_file buc60706c.brep] s -puts [checkshape s] +checkshape s bcut res_1 s t -puts [checkshape res_1] +checkshape res_1 restore [locate_data_file buc60706d.brep] f -puts [checkshape f] +checkshape f restore [locate_data_file buc60706e.brep] w -puts [checkshape w] +checkshape w pipe t w f bcut res_2 res_1 t -puts [checkshape res_2] +checkshape res_2 restore [locate_data_file buc60706g.brep] f -puts [checkshape f] +checkshape f restore [locate_data_file buc60706h.brep] w -puts [checkshape w] +checkshape w pipe t w f bcut result res_2 t diff --git a/tests/bugs/modalg/bug110_2 b/tests/bugs/modalg/bug110_2 index ecd845a5a5..523c69ac6e 100755 --- a/tests/bugs/modalg/bug110_2 +++ b/tests/bugs/modalg/bug110_2 @@ -6,33 +6,33 @@ puts "(case 4-6)" puts "========================" restore [locate_data_file buc60706j.brep] f -puts [checkshape f] +checkshape f restore [locate_data_file buc60706b.brep] w -puts [checkshape w] +checkshape w pipe t w f restore [locate_data_file buc60706l.brep] s -puts [checkshape s] +checkshape s bcut res_1 s t -puts [checkshape res_1] +checkshape res_1 restore [locate_data_file buc60706m.brep] f -puts [checkshape f] +checkshape f restore [locate_data_file buc60706e.brep] w -puts [checkshape w] +checkshape w pipe t w f bcut res_2 res_1 t -puts [checkshape res_2] +checkshape res_2 restore [locate_data_file buc60706p.brep] f -puts [checkshape f] +checkshape f restore [locate_data_file buc60706h.brep] w -puts [checkshape w] +checkshape w pipe t w f bcut result res_2 t diff --git a/tests/bugs/modalg/bug110_3 b/tests/bugs/modalg/bug110_3 index eaeeefcc4a..3d389aa1d4 100755 --- a/tests/bugs/modalg/bug110_3 +++ b/tests/bugs/modalg/bug110_3 @@ -6,33 +6,33 @@ puts "(case 7-9)" puts "========================" restore [locate_data_file buc60706s.brep] f -puts [checkshape f] +checkshape f restore [locate_data_file buc60706b.brep] w -puts [checkshape w] +checkshape w pipe t w f restore [locate_data_file buc60706l.brep] s -puts [checkshape s] +checkshape s bcut res_1 s t -puts [checkshape res_1] +checkshape res_1 restore [locate_data_file buc60706v.brep] f -puts [checkshape f] +checkshape f restore [locate_data_file buc60706e.brep] w -puts [checkshape w] +checkshape w pipe t w f bcut res_2 res_1 t -puts [checkshape res_2] +checkshape res_2 restore [locate_data_file buc60706x.brep] f -puts [checkshape f] +checkshape f restore [locate_data_file buc60706h.brep] w -puts [checkshape w] +checkshape w pipe t w f bcut result res_2 t diff --git a/tests/bugs/modalg/bug116 b/tests/bugs/modalg/bug116 index 53eb908091..072b9622f9 100755 --- a/tests/bugs/modalg/bug116 +++ b/tests/bugs/modalg/bug116 @@ -8,7 +8,7 @@ puts "" ############################################# restore [locate_data_file OCC116.brep] sh -puts [checkshape sh] +checkshape sh explode sh f explode sh_6 e diff --git a/tests/bugs/modalg/bug117_1 b/tests/bugs/modalg/bug117_1 index 7099cdbdb0..df5947b78e 100755 --- a/tests/bugs/modalg/bug117_1 +++ b/tests/bugs/modalg/bug117_1 @@ -6,8 +6,8 @@ puts "" restore [locate_data_file OCC117.brep] sh explode sh -puts [checkshape sh_1] -puts [checkshape sh_2] +checkshape sh_1 +checkshape sh_2 bfuse result sh_1 sh_2 diff --git a/tests/bugs/modalg/bug117_2 b/tests/bugs/modalg/bug117_2 index db8dcf3269..4847bb82c1 100755 --- a/tests/bugs/modalg/bug117_2 +++ b/tests/bugs/modalg/bug117_2 @@ -6,8 +6,8 @@ puts "" restore [locate_data_file OCC117.brep] sh explode sh -puts [checkshape sh_1] -puts [checkshape sh_2] +checkshape sh_1 +checkshape sh_2 bfuse result sh_2 sh_1 diff --git a/tests/bugs/modalg/bug118 b/tests/bugs/modalg/bug118 new file mode 100755 index 0000000000..936f184aad --- /dev/null +++ b/tests/bugs/modalg/bug118 @@ -0,0 +1,17 @@ +puts "========" +puts "OCC118" +puts "========" +######################################################## +## The Cone part of final fuse shape becomes invisible +######################################################## + +restore [locate_data_file OCC118-1.brep] a +checkshape a +restore [locate_data_file OCC118-2.brep] b +checkshape b + +bop a b +bopfuse result a b + +set square 4844.63 +set 2dviewer 0 diff --git a/tests/bugs/modalg/bug118_1 b/tests/bugs/modalg/bug118_1 index 1c71e4427f..069e6ea12c 100755 --- a/tests/bugs/modalg/bug118_1 +++ b/tests/bugs/modalg/bug118_1 @@ -6,9 +6,9 @@ puts "========" ######################################################## restore [locate_data_file OCC118-1.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file OCC118-2.brep] b -puts [checkshape b] +checkshape b bfuse result a b diff --git a/tests/bugs/modalg/bug118_2 b/tests/bugs/modalg/bug118_2 index 5498302a85..ea8056d799 100755 --- a/tests/bugs/modalg/bug118_2 +++ b/tests/bugs/modalg/bug118_2 @@ -6,9 +6,9 @@ puts "========" ######################################################## restore [locate_data_file OCC118-1.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file OCC118-2.brep] b -puts [checkshape b] +checkshape b bfuse result b a diff --git a/tests/bugs/modalg/bug122_1 b/tests/bugs/modalg/bug122_1 index 3f5d022c6d..3bf29a6fe4 100755 --- a/tests/bugs/modalg/bug122_1 +++ b/tests/bugs/modalg/bug122_1 @@ -7,8 +7,8 @@ puts "" restore [locate_data_file OCC122.brep] sh explode sh -puts [checkshape sh_1] -puts [checkshape sh_2] +checkshape sh_1 +checkshape sh_2 bfuse result sh_1 sh_2 diff --git a/tests/bugs/modalg/bug122_2 b/tests/bugs/modalg/bug122_2 index 8b08cc8a6a..1fbedc286e 100755 --- a/tests/bugs/modalg/bug122_2 +++ b/tests/bugs/modalg/bug122_2 @@ -6,8 +6,8 @@ puts "" restore [locate_data_file OCC122.brep] sh explode sh -puts [checkshape sh_1] -puts [checkshape sh_2] +checkshape sh_1 +checkshape sh_2 bfuse result sh_2 sh_1 diff --git a/tests/bugs/modalg/bug122_3 b/tests/bugs/modalg/bug122_3 index 800771db66..b92f668e11 100755 --- a/tests/bugs/modalg/bug122_3 +++ b/tests/bugs/modalg/bug122_3 @@ -6,8 +6,8 @@ puts "" restore [locate_data_file OCC122.brep] sh explode sh -puts [checkshape sh_1] -puts [checkshape sh_2] +checkshape sh_1 +checkshape sh_2 bcut result sh_1 sh_2 diff --git a/tests/bugs/modalg/bug122_4 b/tests/bugs/modalg/bug122_4 index d7f4bdeb09..7e892c3f91 100755 --- a/tests/bugs/modalg/bug122_4 +++ b/tests/bugs/modalg/bug122_4 @@ -7,8 +7,8 @@ puts "" restore [locate_data_file OCC122.brep] sh explode sh -puts [checkshape sh_1] -puts [checkshape sh_2] +checkshape sh_1 +checkshape sh_2 bcut result sh_2 sh_1 diff --git a/tests/bugs/modalg/bug123_1 b/tests/bugs/modalg/bug123_1 index 8c42b00952..ca0a6d22c5 100755 --- a/tests/bugs/modalg/bug123_1 +++ b/tests/bugs/modalg/bug123_1 @@ -5,7 +5,7 @@ puts "================" puts "" restore [locate_data_file OCC123.brep] sh -puts [checkshape sh] +checkshape sh explode sh diff --git a/tests/bugs/modalg/bug123_2 b/tests/bugs/modalg/bug123_2 index bb0f9ab3a4..edb5a8869b 100755 --- a/tests/bugs/modalg/bug123_2 +++ b/tests/bugs/modalg/bug123_2 @@ -5,7 +5,7 @@ puts "================" puts "" restore [locate_data_file OCC123.brep] sh -puts [checkshape sh] +checkshape sh explode sh diff --git a/tests/bugs/modalg/bug140 b/tests/bugs/modalg/bug140 index c132bc0cc7..9f342caf75 100755 --- a/tests/bugs/modalg/bug140 +++ b/tests/bugs/modalg/bug140 @@ -8,7 +8,7 @@ puts "" ######################################################### restore [locate_data_file shading_137.brep] s -puts [checkshape s] +checkshape s dset SCALE1 5 tscale s 0 0 0 SCALE1 diff --git a/tests/bugs/modalg/bug144 b/tests/bugs/modalg/bug144 index 0c521635a0..b10e67e68b 100755 --- a/tests/bugs/modalg/bug144 +++ b/tests/bugs/modalg/bug144 @@ -8,9 +8,9 @@ puts "================" puts "" restore [locate_data_file buc60663a.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file buc60663b.brep] b -puts [checkshape b] +checkshape b bsection result a b diff --git a/tests/bugs/modalg/bug1665 b/tests/bugs/modalg/bug1665 new file mode 100755 index 0000000000..f599daf38d --- /dev/null +++ b/tests/bugs/modalg/bug1665 @@ -0,0 +1,22 @@ +puts "========" +puts "OCC1665" +puts "========" +############################################################ +## Geom_BSplineSurface::SetVPeriodic throws an exception +############################################################ + +restore [locate_data_file OCC1665.draw] a + +if {[catch {setvperiodic a} message]} { + puts "OCC1665 FAULTY : setvperiodic" +} else { + if {[catch {mkface result a} message]} { + puts "OCC1665 FAULTY : mkface" + } else { + set nb_info [nbshapes result] + set nb_e_good 3 + } +} + +set square 12265.3 +set 3dviewer 2 diff --git a/tests/bugs/modalg/bug178_1 b/tests/bugs/modalg/bug178_1 index 8e286624b8..0e8e48e5e4 100755 --- a/tests/bugs/modalg/bug178_1 +++ b/tests/bugs/modalg/bug178_1 @@ -8,8 +8,8 @@ puts "================" restore [locate_data_file BUC60937.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] +checkshape a_1 +checkshape a_2 bcommon result a_1 a_2 diff --git a/tests/bugs/modalg/bug178_2 b/tests/bugs/modalg/bug178_2 index e681e48523..c71a9165d3 100755 --- a/tests/bugs/modalg/bug178_2 +++ b/tests/bugs/modalg/bug178_2 @@ -6,8 +6,8 @@ puts "================" restore [locate_data_file BUC60937.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] +checkshape a_1 +checkshape a_2 bfuse result a_1 a_2 diff --git a/tests/bugs/modalg/bug178_3 b/tests/bugs/modalg/bug178_3 index beb3466b00..081a3830c7 100755 --- a/tests/bugs/modalg/bug178_3 +++ b/tests/bugs/modalg/bug178_3 @@ -7,8 +7,8 @@ puts "================" restore [locate_data_file BUC60937.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] +checkshape a_1 +checkshape a_2 bcut result a_1 a_2 diff --git a/tests/bugs/modalg/bug21 b/tests/bugs/modalg/bug21 index 20a44e0211..bbf1721382 100755 --- a/tests/bugs/modalg/bug21 +++ b/tests/bugs/modalg/bug21 @@ -10,7 +10,7 @@ pload XDE catch { source $env(CSF_DrawPluginQADefaults)/QARebuildCommands } restore [locate_data_file OCC21.brep] sh -puts [checkshape sh] +checkshape sh puts "two faces in the compound share one edge" DT_SplitAngle result sh 90 diff --git a/tests/bugs/modalg/bug212 b/tests/bugs/modalg/bug212 new file mode 100755 index 0000000000..362dac5679 --- /dev/null +++ b/tests/bugs/modalg/bug212 @@ -0,0 +1,18 @@ +puts "========" +puts "OCC212" +puts "========" +################################################ +## Bug in Topological "Common" boolean operation +################################################ + +restore [locate_data_file OCC212-1.brep] S1 +checkshape S1 +restore [locate_data_file OCC212-2.brep] S2 +checkshape S2 + +bop S1 S2 +bopcommon result + +set square 314.301 +set 2dviewer 0 + diff --git a/tests/bugs/modalg/bug212_1 b/tests/bugs/modalg/bug212_1 index a6671c7da9..2bca2110f9 100755 --- a/tests/bugs/modalg/bug212_1 +++ b/tests/bugs/modalg/bug212_1 @@ -6,9 +6,9 @@ puts "========" ################################################ restore [locate_data_file OCC212-1.brep] S1 -puts [checkshape S1] +checkshape S1 restore [locate_data_file OCC212-2.brep] S2 -puts [checkshape S2] +checkshape S2 bcommon result S1 S2 diff --git a/tests/bugs/modalg/bug212_2 b/tests/bugs/modalg/bug212_2 index f0c5097a90..f7ae228d2a 100755 --- a/tests/bugs/modalg/bug212_2 +++ b/tests/bugs/modalg/bug212_2 @@ -6,9 +6,9 @@ puts "========" ################################################ restore [locate_data_file OCC212-1.brep] S1 -puts [checkshape S1] +checkshape S1 restore [locate_data_file OCC212-2.brep] S2 -puts [checkshape S2] +checkshape S2 bcommon result S2 S1 diff --git a/tests/bugs/modalg/bug212_3 b/tests/bugs/modalg/bug212_3 new file mode 100755 index 0000000000..a33f93429f --- /dev/null +++ b/tests/bugs/modalg/bug212_3 @@ -0,0 +1,18 @@ +puts "========" +puts "OCC212" +puts "========" +################################################ +## Bug in Topological "Common" boolean operation +################################################ + +restore [locate_data_file OCC212-1.brep] S1 +checkshape S1 +restore [locate_data_file OCC212-2.brep] S2 +checkshape S2 + +bop S1 S2 +bopcommon result + +set square 314.301 +set 2dviewer 1 + diff --git a/tests/bugs/modalg/bug213 b/tests/bugs/modalg/bug213 new file mode 100755 index 0000000000..7314139b6e --- /dev/null +++ b/tests/bugs/modalg/bug213 @@ -0,0 +1,20 @@ +puts "========" +puts "OCC213" +puts "========" +################################################ +## Bug in Topological "fuse" boolean operation +################################################ + +cpulimit 3500 + +restore [locate_data_file OCC213-1.brep] S1 +checkshape S1 +restore [locate_data_file OCC213-2.brep] S2 +checkshape S2 + +bop S1 S2 +bopfuse result + +set square 4835.45 +set 2dviewer 1 + diff --git a/tests/bugs/modalg/bug213_1 b/tests/bugs/modalg/bug213_1 index bd978a50bb..e03a1302a8 100755 --- a/tests/bugs/modalg/bug213_1 +++ b/tests/bugs/modalg/bug213_1 @@ -6,9 +6,9 @@ puts "========" ################################################ restore [locate_data_file OCC213-1.brep] S1 -puts [checkshape S1] +checkshape S1 restore [locate_data_file OCC213-2.brep] S2 -puts [checkshape S2] +checkshape S2 bfuse result S1 S2 set square 4835.45 diff --git a/tests/bugs/modalg/bug213_2 b/tests/bugs/modalg/bug213_2 index bb165190a0..91e347b23a 100755 --- a/tests/bugs/modalg/bug213_2 +++ b/tests/bugs/modalg/bug213_2 @@ -6,9 +6,9 @@ puts "========" ################################################ restore [locate_data_file OCC213-1.brep] S1 -puts [checkshape S1] +checkshape S1 restore [locate_data_file OCC213-2.brep] S2 -puts [checkshape S2] +checkshape S2 bfuse result S2 S1 set square 4835.45 diff --git a/tests/bugs/modalg/bug23137_1 b/tests/bugs/modalg/bug23137_1 old mode 100644 new mode 100755 diff --git a/tests/bugs/modalg/bug23137_2 b/tests/bugs/modalg/bug23137_2 old mode 100644 new mode 100755 diff --git a/tests/bugs/modalg/bug23394 b/tests/bugs/modalg/bug23394 old mode 100644 new mode 100755 diff --git a/tests/bugs/modalg/bug23429 b/tests/bugs/modalg/bug23429 old mode 100644 new mode 100755 diff --git a/tests/bugs/modalg/bug251_1 b/tests/bugs/modalg/bug251_1 index 991849dd60..938d0534a9 100755 --- a/tests/bugs/modalg/bug251_1 +++ b/tests/bugs/modalg/bug251_1 @@ -11,8 +11,8 @@ puts "" restore [locate_data_file OCC251.brep] f explode f -puts [checkshape f_1] -puts [checkshape f_2] +checkshape f_1 +checkshape f_2 bsection result f_1 f_2 explode result diff --git a/tests/bugs/modalg/bug251_2 b/tests/bugs/modalg/bug251_2 index a3ba58adfa..cf75ceb13f 100755 --- a/tests/bugs/modalg/bug251_2 +++ b/tests/bugs/modalg/bug251_2 @@ -11,8 +11,8 @@ puts "" restore [locate_data_file OCC251.brep] f explode f -puts [checkshape f_1] -puts [checkshape f_2] +checkshape f_1 +checkshape f_2 bsection result f_2 f_1 explode result diff --git a/tests/bugs/modalg/bug264_0 b/tests/bugs/modalg/bug264_0 index c03c8ee0df..91e2a859f6 100755 --- a/tests/bugs/modalg/bug264_0 +++ b/tests/bugs/modalg/bug264_0 @@ -5,7 +5,7 @@ puts " (case 0)" puts "========" restore [locate_data_file OCC264_00.rle] result -puts [checkshape result] +checkshape result tclean result vinit diff --git a/tests/bugs/modalg/bug264_1 b/tests/bugs/modalg/bug264_1 index 16bc617dd3..83974cb1b2 100755 --- a/tests/bugs/modalg/bug264_1 +++ b/tests/bugs/modalg/bug264_1 @@ -7,7 +7,7 @@ puts " (case 1)" puts "========" restore [locate_data_file OCC264_01.brep] result -puts [checkshape result] +checkshape result tclean result vinit diff --git a/tests/bugs/modalg/bug264_10 b/tests/bugs/modalg/bug264_10 index cab6419d13..452842d098 100755 --- a/tests/bugs/modalg/bug264_10 +++ b/tests/bugs/modalg/bug264_10 @@ -7,7 +7,7 @@ puts " (case 10)" puts "========" restore [locate_data_file OCC264_10.brep] result -puts [checkshape result] +checkshape result tclean result vinit diff --git a/tests/bugs/modalg/bug264_11 b/tests/bugs/modalg/bug264_11 index 6fd7bcbd94..0d0348eb7a 100755 --- a/tests/bugs/modalg/bug264_11 +++ b/tests/bugs/modalg/bug264_11 @@ -7,7 +7,7 @@ puts " (case 11)" puts "========" restore [locate_data_file OCC264_11.brep] result -puts [checkshape result] +checkshape result tclean result vinit diff --git a/tests/bugs/modalg/bug264_2 b/tests/bugs/modalg/bug264_2 index 53839af6a6..89ac94994e 100755 --- a/tests/bugs/modalg/bug264_2 +++ b/tests/bugs/modalg/bug264_2 @@ -7,7 +7,7 @@ puts " (case 2)" puts "========" restore [locate_data_file OCC264_02.brep] result -puts [checkshape result] +checkshape result tclean result vinit diff --git a/tests/bugs/modalg/bug264_3 b/tests/bugs/modalg/bug264_3 index a437673599..08ab1a75a9 100755 --- a/tests/bugs/modalg/bug264_3 +++ b/tests/bugs/modalg/bug264_3 @@ -7,7 +7,7 @@ puts " (case 3)" puts "========" restore [locate_data_file OCC264_03.brep] result -puts [checkshape result] +checkshape result tclean result vinit diff --git a/tests/bugs/modalg/bug264_4 b/tests/bugs/modalg/bug264_4 index 67ae1651fe..397dc2a181 100755 --- a/tests/bugs/modalg/bug264_4 +++ b/tests/bugs/modalg/bug264_4 @@ -7,7 +7,7 @@ puts " (case 4)" puts "========" restore [locate_data_file OCC264_04.brep] result -puts [checkshape result] +checkshape result tclean result vinit diff --git a/tests/bugs/modalg/bug264_5 b/tests/bugs/modalg/bug264_5 index 394e04ed8d..3b9ca4cbde 100755 --- a/tests/bugs/modalg/bug264_5 +++ b/tests/bugs/modalg/bug264_5 @@ -7,7 +7,7 @@ puts " (case 5)" puts "========" restore [locate_data_file OCC264_05.brep] result -puts [checkshape result] +checkshape result tclean result vinit diff --git a/tests/bugs/modalg/bug264_6 b/tests/bugs/modalg/bug264_6 index 061eda8b03..94b6954c33 100755 --- a/tests/bugs/modalg/bug264_6 +++ b/tests/bugs/modalg/bug264_6 @@ -5,7 +5,7 @@ puts " (case 6)" puts "========" restore [locate_data_file OCC264_06.brep] result -puts [checkshape result] +checkshape result tclean result vinit diff --git a/tests/bugs/modalg/bug264_7 b/tests/bugs/modalg/bug264_7 index 74ce81bb38..f129ed91c0 100755 --- a/tests/bugs/modalg/bug264_7 +++ b/tests/bugs/modalg/bug264_7 @@ -5,7 +5,7 @@ puts " (case 7)" puts "========" restore [locate_data_file OCC264_07.brep] result -puts [checkshape result] +checkshape result tclean result vinit diff --git a/tests/bugs/modalg/bug264_8 b/tests/bugs/modalg/bug264_8 index 6b92c702af..0c5dada804 100755 --- a/tests/bugs/modalg/bug264_8 +++ b/tests/bugs/modalg/bug264_8 @@ -7,7 +7,7 @@ puts " (case 8)" puts "========" restore [locate_data_file OCC264_08.brep] result -puts [checkshape result] +checkshape result tclean result vinit diff --git a/tests/bugs/modalg/bug264_9 b/tests/bugs/modalg/bug264_9 index f5487a20b2..7aafec0e74 100755 --- a/tests/bugs/modalg/bug264_9 +++ b/tests/bugs/modalg/bug264_9 @@ -7,7 +7,7 @@ puts " (case 9)" puts "========" restore [locate_data_file OCC264_09.brep] result -puts [checkshape result] +checkshape result tclean result vinit diff --git a/tests/bugs/modalg/bug269_1 b/tests/bugs/modalg/bug269_1 index e3c90f22b3..db76719f71 100755 --- a/tests/bugs/modalg/bug269_1 +++ b/tests/bugs/modalg/bug269_1 @@ -2,7 +2,7 @@ puts "======== OCC269 ========" restore [locate_data_file OCC269-1.brep] result -puts [checkshape result] +checkshape result isos result 0 tclean result diff --git a/tests/bugs/modalg/bug269_2 b/tests/bugs/modalg/bug269_2 index e7120ec038..f56d53058e 100755 --- a/tests/bugs/modalg/bug269_2 +++ b/tests/bugs/modalg/bug269_2 @@ -2,7 +2,7 @@ puts "======== OCC269 ========" restore [locate_data_file OCC269-2.brep] result -puts [checkshape result] +checkshape result isos result 0 tclean result diff --git a/tests/bugs/modalg/bug269_3 b/tests/bugs/modalg/bug269_3 index 420cab311e..0c73a2ee92 100755 --- a/tests/bugs/modalg/bug269_3 +++ b/tests/bugs/modalg/bug269_3 @@ -2,7 +2,7 @@ puts "======== OCC269 ========" restore [locate_data_file OCC269-3.brep] result -puts [checkshape result] +checkshape result isos result 0 tclean result diff --git a/tests/bugs/modalg/bug269_4 b/tests/bugs/modalg/bug269_4 index 22a8f96f92..434633696c 100755 --- a/tests/bugs/modalg/bug269_4 +++ b/tests/bugs/modalg/bug269_4 @@ -2,7 +2,7 @@ puts "======== OCC269 ========" restore [locate_data_file OCC269-4.brep] result -puts [checkshape result] +checkshape result isos result 0 tclean result diff --git a/tests/bugs/modalg/bug287 b/tests/bugs/modalg/bug287 index e6c45140a3..e7d41ac308 100755 --- a/tests/bugs/modalg/bug287 +++ b/tests/bugs/modalg/bug287 @@ -6,7 +6,7 @@ puts " OCC287 " puts "========================" restore [locate_data_file shading_170.brep] result -puts [checkshape result] +checkshape result tclean result isos result 0 diff --git a/tests/bugs/modalg/bug291 b/tests/bugs/modalg/bug291 index bf086bbde5..e73a69e18a 100755 --- a/tests/bugs/modalg/bug291 +++ b/tests/bugs/modalg/bug291 @@ -6,7 +6,7 @@ puts "================= OCC291 ===================" ################################################################# restore [locate_data_file shading_171.brep] result -puts [checkshape result] +checkshape result tclean result vinit diff --git a/tests/bugs/modalg/bug292 b/tests/bugs/modalg/bug292 index 87a777b727..e9b2f8a58b 100755 --- a/tests/bugs/modalg/bug292 +++ b/tests/bugs/modalg/bug292 @@ -9,7 +9,7 @@ puts "" ################################################################# restore [locate_data_file OCC292.brep] result -puts [checkshape result] +checkshape result tclean result vinit diff --git a/tests/bugs/modalg/bug293 b/tests/bugs/modalg/bug293 index 99291bd0d5..692dba4e36 100755 --- a/tests/bugs/modalg/bug293 +++ b/tests/bugs/modalg/bug293 @@ -10,7 +10,7 @@ puts "" restore [locate_data_file OCC293.brep] a tclean a -puts [checkshape a] +checkshape a vinit #vdisplay a @@ -23,28 +23,28 @@ renamevar edge face explode face f chamf result1 face edge_26 face_5 A 1 45 -puts [checkshape result1] +checkshape result1 chamf result2 face edge_30 face_5 A 1 45 -puts [checkshape result2] +checkshape result2 chamf result3 face edge_34 face_5 A 1 45 -puts [checkshape result3] +checkshape result3 chamf result4 face edge_39 face_5 A 1 45 -puts [checkshape result4] +checkshape result4 chamf result5 face edge_35 face_5 A 1 45 -puts [checkshape result5] +checkshape result5 chamf result6 face edge_31 face_5 A 1 45 -puts [checkshape result6] +checkshape result6 chamf result7 face edge_27 face_5 A 1 45 -puts [checkshape result7] +checkshape result7 chamf result8 face edge_24 face_5 A 1 45 -puts [checkshape result8] +checkshape result8 # all contour is : #chamf result face edge_26 face_5 A 1 45 edge_28 face_5 A 1 45 edge_30 face_5 A 1 45 edge_32 face_5 A 1 45 edge_34 face_5 A 1 45 edge_36 face_5 A 1 45 edge_38 face_5 A 1 45 edge_40 face_5 A 1 45 edge_13 face_5 A 1 45 edge_14 face_5 A 1 45 edge_39 face_5 A 1 45 edge_37 face_5 A 1 45 edge_35 face_5 A 1 45 edge_33 face_5 A 1 45 edge_31 face_5 A 1 45 edge_29 face_5 A 1 45 edge_27 face_5 A 1 45 edge_6 face_5 A 1 45 edge_4 face_5 A 1 45 edge_19 face_5 A 1 45 edge_22 face_5 A 1 45 edge_23 face_5 A 1 45 edge_24 face_5 A 1 45 edge_25 face_5 A 1 45 edge_26 face_5 A 1 45 diff --git a/tests/bugs/modalg/bug298 b/tests/bugs/modalg/bug298 index 1865f6e936..75d0e848b3 100755 --- a/tests/bugs/modalg/bug298 +++ b/tests/bugs/modalg/bug298 @@ -8,7 +8,7 @@ puts "" ################################################################# restore [locate_data_file OCC298.brep] result -puts [checkshape result] +checkshape result if [catch {tcopy result a } result] { puts "Faulty OCC298: function TCOPY works wrongly" diff --git a/tests/bugs/modalg/bug305 b/tests/bugs/modalg/bug305 index ece2dd4152..18958b02e2 100755 --- a/tests/bugs/modalg/bug305 +++ b/tests/bugs/modalg/bug305 @@ -64,7 +64,7 @@ puts "" catch {pload XDE} restore [locate_data_file OCC305.brep] a -puts [checkshape a] +checkshape a if [catch {mkoffset result a 1 0.5 } catch_result] { puts "Faulty OCC305 : function MKOFFSET works wrongly" diff --git a/tests/bugs/modalg/bug307_1 b/tests/bugs/modalg/bug307_1 index 3a78e9243e..2e9110ce2c 100755 --- a/tests/bugs/modalg/bug307_1 +++ b/tests/bugs/modalg/bug307_1 @@ -27,7 +27,7 @@ explode w w OCC307 result1 f_4 w_6 0 OCC307 result2 f_5 result1 0 -puts [checkshape result1] +checkshape result1 renamevar result2 result set square 0 diff --git a/tests/bugs/modalg/bug307_2 b/tests/bugs/modalg/bug307_2 index 64045ce4df..98fa95a354 100755 --- a/tests/bugs/modalg/bug307_2 +++ b/tests/bugs/modalg/bug307_2 @@ -27,7 +27,7 @@ explode w w OCC307 result1 f_4 w_6 1 OCC307 result2 f_5 result1 1 -puts [checkshape result1] +checkshape result1 renamevar result2 result set square 0 diff --git a/tests/bugs/modalg/bug315 b/tests/bugs/modalg/bug315 index b16f723092..411b1818db 100755 --- a/tests/bugs/modalg/bug315 +++ b/tests/bugs/modalg/bug315 @@ -6,8 +6,8 @@ puts "" restore [locate_data_file OCC315-1.brep] f1 restore [locate_data_file OCC315-2.brep] f2 -puts [checkshape f1] -puts [checkshape f2] +checkshape f1 +checkshape f2 bcut result f1 f2 diff --git a/tests/bugs/modalg/bug322 b/tests/bugs/modalg/bug322 index ac66c96178..e8e39e022d 100755 --- a/tests/bugs/modalg/bug322 +++ b/tests/bugs/modalg/bug322 @@ -6,7 +6,7 @@ puts "" pload QAcommands restore [locate_data_file OCC322.brep] a -puts [checkshape a] +checkshape a sewing result a diff --git a/tests/bugs/modalg/bug323 b/tests/bugs/modalg/bug323 index 87a1c60e30..a2b10acc70 100755 --- a/tests/bugs/modalg/bug323 +++ b/tests/bugs/modalg/bug323 @@ -29,7 +29,7 @@ if { [regexp {Faulty} $che ] == 1 } { } bsection r f_1 f_2 -puts [checkshape r] +checkshape r puts [checksection r] decho off diff --git a/tests/bugs/modalg/bug334 b/tests/bugs/modalg/bug334 index 0c81a9495d..42f6932ba7 100755 --- a/tests/bugs/modalg/bug334 +++ b/tests/bugs/modalg/bug334 @@ -7,8 +7,8 @@ puts "============" restore [locate_data_file BUC60928.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] +checkshape a_1 +checkshape a_2 bcut result a_2 a_1 diff --git a/tests/bugs/modalg/bug335 b/tests/bugs/modalg/bug335 index 72684ccd2b..cd19995f86 100755 --- a/tests/bugs/modalg/bug335 +++ b/tests/bugs/modalg/bug335 @@ -11,8 +11,8 @@ puts "" restore [locate_data_file BUC60931.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] +checkshape a_1 +checkshape a_2 bcommon result a_1 a_2 diff --git a/tests/bugs/modalg/bug336 b/tests/bugs/modalg/bug336 index 83cbaba94c..a61d42abae 100755 --- a/tests/bugs/modalg/bug336 +++ b/tests/bugs/modalg/bug336 @@ -7,8 +7,8 @@ puts "============" restore [locate_data_file BUC60939.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] +checkshape a_1 +checkshape a_2 bfuse result a_1 a_2 diff --git a/tests/bugs/modalg/bug338 b/tests/bugs/modalg/bug338 index 9b35e2b004..6531b2f515 100755 --- a/tests/bugs/modalg/bug338 +++ b/tests/bugs/modalg/bug338 @@ -7,11 +7,11 @@ puts "" restore [locate_data_file buc60996.brep] b explode b -puts [checkshape b_1] -puts [checkshape b_2] +checkshape b_1 +checkshape b_2 bfuse f1 b_1 b_2 -puts [checkshape f1] +checkshape f1 bfuse result b_2 b_1 set square 73561.9 diff --git a/tests/bugs/modalg/bug340 b/tests/bugs/modalg/bug340 index ed474b753d..1ed717a5d3 100755 --- a/tests/bugs/modalg/bug340 +++ b/tests/bugs/modalg/bug340 @@ -6,7 +6,7 @@ puts "========" puts "" restore [locate_data_file buc61005.brep] w -puts [checkshape w] +checkshape w revol result w 0 0 0 0 0 1 360 1 set square 55795.4 diff --git a/tests/bugs/modalg/bug341 b/tests/bugs/modalg/bug341 index eafc0ff0ae..12cf04e767 100755 --- a/tests/bugs/modalg/bug341 +++ b/tests/bugs/modalg/bug341 @@ -6,7 +6,7 @@ puts "========" puts "" restore [locate_data_file buc61008.brep] w -puts [checkshape w] +checkshape w mkplane f w prism result f 0 0 100 diff --git a/tests/bugs/modalg/bug347_1 b/tests/bugs/modalg/bug347_1 index 3d5bc2bbe0..3471512529 100755 --- a/tests/bugs/modalg/bug347_1 +++ b/tests/bugs/modalg/bug347_1 @@ -6,7 +6,7 @@ puts " (case 1) " puts "========================" restore [locate_data_file OCC347a.brep] result -puts [checkshape result] +checkshape result tclean result vinit diff --git a/tests/bugs/modalg/bug347_2 b/tests/bugs/modalg/bug347_2 index c371a4c1b4..635521d079 100755 --- a/tests/bugs/modalg/bug347_2 +++ b/tests/bugs/modalg/bug347_2 @@ -6,7 +6,7 @@ puts " (case 2) " puts "========================" restore [locate_data_file OCC347b.brep] result -puts [checkshape result] +checkshape result tclean result vinit diff --git a/tests/bugs/modalg/bug356 b/tests/bugs/modalg/bug356 index 17da7dd844..86563ed5d4 100755 --- a/tests/bugs/modalg/bug356 +++ b/tests/bugs/modalg/bug356 @@ -8,7 +8,7 @@ puts "" ####################################################### restore [locate_data_file OCC356.brep] result -puts [checkshape result] +checkshape result explode result w diff --git a/tests/bugs/modalg/bug357 b/tests/bugs/modalg/bug357 index 739946b99d..6477a5567c 100755 --- a/tests/bugs/modalg/bug357 +++ b/tests/bugs/modalg/bug357 @@ -5,10 +5,10 @@ puts "BUC60970" puts "========" restore [locate_data_file buc60970a.brep] a -puts [checkshape a] +checkshape a ## small/brep/OCC358a.brep - second shape restore [locate_data_file OCC358a.brep] b -puts [checkshape b] +checkshape b if { [catch { pipe result a b } catch_result] } { puts "$catch_result" diff --git a/tests/bugs/modalg/bug358 b/tests/bugs/modalg/bug358 index d4d56526ca..086df9f7b2 100755 --- a/tests/bugs/modalg/bug358 +++ b/tests/bugs/modalg/bug358 @@ -7,10 +7,10 @@ puts "The helical pipe is not shaded in AISViewer" ##### restore [locate_data_file OCC358a.brep] f -puts [checkshape f] +checkshape f restore [locate_data_file OCC358b.brep] w -puts [checkshape w] +checkshape w pipe result w f diff --git a/tests/bugs/modalg/bug397 b/tests/bugs/modalg/bug397 index 1e1f65b05b..005092f46d 100755 --- a/tests/bugs/modalg/bug397 +++ b/tests/bugs/modalg/bug397 @@ -5,7 +5,7 @@ puts "========================" pload QAcommands restore [locate_data_file OCC397.brep] a -puts [checkshape a] +checkshape a tclean a explode a f diff --git a/tests/bugs/modalg/bug409 b/tests/bugs/modalg/bug409 index 4b4ab61a0c..f7e42168cf 100755 --- a/tests/bugs/modalg/bug409 +++ b/tests/bugs/modalg/bug409 @@ -5,10 +5,10 @@ puts "========================" puts "" restore [locate_data_file f2] b1 -puts [checkshape b1] +checkshape b1 restore [locate_data_file f6] b2 -puts [checkshape b2] +checkshape b2 bcommon result b1 b2 diff --git a/tests/bugs/modalg/bug410_1 b/tests/bugs/modalg/bug410_1 index 2e2816c2cf..80d03e0dc2 100755 --- a/tests/bugs/modalg/bug410_1 +++ b/tests/bugs/modalg/bug410_1 @@ -6,10 +6,10 @@ puts "========================" puts "" restore [locate_data_file f7] b1 -puts [checkshape b1] +checkshape b1 restore [locate_data_file f3] b2 -puts [checkshape b2] +checkshape b2 bcommon result b1 b2 diff --git a/tests/bugs/modalg/bug410_2 b/tests/bugs/modalg/bug410_2 index 61b7625e30..3e4a1d3bda 100755 --- a/tests/bugs/modalg/bug410_2 +++ b/tests/bugs/modalg/bug410_2 @@ -6,10 +6,10 @@ puts "========================" puts "" restore [locate_data_file f7] b1 -puts [checkshape b1] +checkshape b1 restore [locate_data_file f3] b2 -puts [checkshape b2] +checkshape b2 bfuse result b1 b2 diff --git a/tests/bugs/modalg/bug410_3 b/tests/bugs/modalg/bug410_3 index 49c90691a9..15426fb5a4 100755 --- a/tests/bugs/modalg/bug410_3 +++ b/tests/bugs/modalg/bug410_3 @@ -6,10 +6,10 @@ puts "========================" puts "" restore [locate_data_file f7] b1 -puts [checkshape b1] +checkshape b1 restore [locate_data_file f3] b2 -puts [checkshape b2] +checkshape b2 bcut result b1 b2 diff --git a/tests/bugs/modalg/bug410_4 b/tests/bugs/modalg/bug410_4 index 12715380ab..7e71d71212 100755 --- a/tests/bugs/modalg/bug410_4 +++ b/tests/bugs/modalg/bug410_4 @@ -6,10 +6,10 @@ puts "========================" puts "" restore [locate_data_file f7] b1 -puts [checkshape b1] +checkshape b1 restore [locate_data_file f3] b2 -puts [checkshape b2] +checkshape b2 if [catch {bcut result b2 b1 } result] { diff --git a/tests/bugs/modalg/bug411 b/tests/bugs/modalg/bug411 index 9d051c73ae..f409769c0f 100755 --- a/tests/bugs/modalg/bug411 +++ b/tests/bugs/modalg/bug411 @@ -5,10 +5,10 @@ puts "========================" puts "" restore [locate_data_file f4] b1 -puts [checkshape b1] +checkshape b1 restore [locate_data_file f5] b2 -puts [checkshape b2] +checkshape b2 bfuse result b1 b2 diff --git a/tests/bugs/modalg/bug412 b/tests/bugs/modalg/bug412 index ec3e684043..613ffa282a 100755 --- a/tests/bugs/modalg/bug412 +++ b/tests/bugs/modalg/bug412 @@ -5,10 +5,10 @@ puts "========================" puts "" restore [locate_data_file f2] b1 -puts [checkshape b1] +checkshape b1 restore [locate_data_file f3] b2 -puts [checkshape b2] +checkshape b2 bcut result b1 b2 diff --git a/tests/bugs/modalg/bug413_1 b/tests/bugs/modalg/bug413_1 index 0c61f3abf8..1d86ff3986 100755 --- a/tests/bugs/modalg/bug413_1 +++ b/tests/bugs/modalg/bug413_1 @@ -6,10 +6,10 @@ puts "========================" puts "" restore [locate_data_file so1] b1 -puts [checkshape b1] +checkshape b1 restore [locate_data_file so4] b2 -puts [checkshape b2] +checkshape b2 bcommon result b1 b2 diff --git a/tests/bugs/modalg/bug413_2 b/tests/bugs/modalg/bug413_2 index 39b5bd1d3b..09c35acdfc 100755 --- a/tests/bugs/modalg/bug413_2 +++ b/tests/bugs/modalg/bug413_2 @@ -6,10 +6,10 @@ puts "========================" puts "" restore [locate_data_file so1] b1 -puts [checkshape b1] +checkshape b1 restore [locate_data_file so4] b2 -puts [checkshape b2] +checkshape b2 bcut result b1 b2 diff --git a/tests/bugs/modalg/bug415 b/tests/bugs/modalg/bug415 index 5a2b3e281d..ed71398f33 100755 --- a/tests/bugs/modalg/bug415 +++ b/tests/bugs/modalg/bug415 @@ -6,9 +6,9 @@ puts "========================" puts "" restore [locate_data_file pro5557_revol.brep] revol1 -puts [checkshape revol1] +checkshape revol1 restore [locate_data_file pro5557_bsurf.brep] bsurf2 -puts [checkshape bsurf2] +checkshape bsurf2 zoom 660 normals bsurf2 0.27 diff --git a/tests/bugs/modalg/bug416 b/tests/bugs/modalg/bug416 index 2ae60303b4..82e9091d50 100755 --- a/tests/bugs/modalg/bug416 +++ b/tests/bugs/modalg/bug416 @@ -6,10 +6,10 @@ puts "========================" puts "" restore [locate_data_file CTO900_cts19305-part.rle] part -puts [checkshape part] +checkshape part restore [locate_data_file CTO900_cts19305-tool.rle] tool -puts [checkshape tool] +checkshape tool bcut result part tool diff --git a/tests/bugs/modalg/bug417 b/tests/bugs/modalg/bug417 index c6fd6110e3..4fc8bbce44 100755 --- a/tests/bugs/modalg/bug417 +++ b/tests/bugs/modalg/bug417 @@ -6,10 +6,10 @@ puts "========================" puts "" restore [locate_data_file cts21128c.rle] c -puts [checkshape c] +checkshape c restore [locate_data_file cts21128d.rle] d -puts [checkshape d] +checkshape d bcut result c d diff --git a/tests/bugs/modalg/bug418_1 b/tests/bugs/modalg/bug418_1 index f9aef020ef..5eca381a1a 100755 --- a/tests/bugs/modalg/bug418_1 +++ b/tests/bugs/modalg/bug418_1 @@ -7,16 +7,16 @@ puts "========================" puts "" restore [locate_data_file CTO904_cts20370-part.rle] part -puts [checkshape part] +checkshape part restore [locate_data_file cts20370-tool.rle] tool -puts [checkshape tool] +checkshape tool bsection sec part tool -puts [checkshape -top sec] +checkshape -top sec bcut result part tool -puts [checkshape -top result] +checkshape -top result set square 273365. set 2dviewer 0 diff --git a/tests/bugs/modalg/bug418_2 b/tests/bugs/modalg/bug418_2 index 67c9b3409c..4ddd04b4c8 100755 --- a/tests/bugs/modalg/bug418_2 +++ b/tests/bugs/modalg/bug418_2 @@ -7,15 +7,15 @@ puts "========================" puts "" restore [locate_data_file CTO904_cts20370-part.rle] a -puts [checkshape a] +checkshape a restore [locate_data_file cts20370-tool.rle] b -puts [checkshape b] +checkshape b bsection sec a b bfuse result a b -puts [checkshape -top result] +checkshape -top result set square 261265. set 2dviewer 0 diff --git a/tests/bugs/modalg/bug419 b/tests/bugs/modalg/bug419 index 6952e27a75..dc8e9d4a15 100755 --- a/tests/bugs/modalg/bug419 +++ b/tests/bugs/modalg/bug419 @@ -7,16 +7,16 @@ puts "========================" puts "" restore [locate_data_file CTO904_fra50047a.rle] a -puts [checkshape a] +checkshape a restore [locate_data_file fra50047b.rle] b -puts [checkshape b] +checkshape b bsection sec a b -puts [checkshape -top sec] +checkshape -top sec bfuse result a b -puts [checkshape -top result] +checkshape -top result set square 508496. set 2dviewer 0 diff --git a/tests/bugs/modalg/bug420 b/tests/bugs/modalg/bug420 index de8f7e51f4..580852589e 100755 --- a/tests/bugs/modalg/bug420 +++ b/tests/bugs/modalg/bug420 @@ -8,14 +8,14 @@ puts "========================" puts "" restore [locate_data_file CTO909_objects.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file CTO909_tool_4.brep] b -puts [checkshape b] +checkshape b bsection sec a b puts [checksection sec] -puts [checkshape sec] +checkshape sec explode a so renamevar a_1 a diff --git a/tests/bugs/modalg/bug423_1 b/tests/bugs/modalg/bug423_1 index ff302a5519..be5b56e832 100755 --- a/tests/bugs/modalg/bug423_1 +++ b/tests/bugs/modalg/bug423_1 @@ -6,10 +6,10 @@ puts "========================" puts "" restore [locate_data_file cylindre.rle] cyl -puts [checkshape cyl] +checkshape cyl restore [locate_data_file contour.rle] cont -puts [checkshape cont] +checkshape cont mkplane cont cont nexplode cyl F diff --git a/tests/bugs/modalg/bug423_2 b/tests/bugs/modalg/bug423_2 index a60ae4254d..b56c0977d0 100755 --- a/tests/bugs/modalg/bug423_2 +++ b/tests/bugs/modalg/bug423_2 @@ -6,10 +6,10 @@ puts "========================" puts "" restore [locate_data_file pro15515_base.rle] base -puts [checkshape base] +checkshape base restore [locate_data_file pro15515_face.rle] cont -puts [checkshape cont] +checkshape cont explode base face copy base_4 ffrom diff --git a/tests/bugs/modalg/bug426 b/tests/bugs/modalg/bug426 new file mode 100755 index 0000000000..7f335447f8 --- /dev/null +++ b/tests/bugs/modalg/bug426 @@ -0,0 +1,34 @@ +if {[array get env os_type] != ""} { + set os $env(os_type) +} +if {[string compare $os "windows"] != 0 } { + puts "TODO OCC12345 ALL: Exception" + puts "TODO OCC12345 ALL: An exception was caught" + puts "TODO OCC12345 ALL: TEST INCOMPLETE" +} + +pload QAcommands + +puts "========" +puts "OCC426" +puts "OCC50" +puts "========" +############################################################################# +## The result of fuse operation is invalid +############################################################################# +## BRepFilletAPI_MakeFillet presents a bug on fillet computation (build()) +############################################################################# +## (old topology) +############################################################################# + +OCC426 result rs1 rs2 rs3 fuse32 fuse321 0 + +checkshape rs1 +checkshape rs2 +checkshape rs3 +checkshape fuse32 +checkshape fuse321 + +set square 7507.61 +set 2dviewer 1 + diff --git a/tests/bugs/modalg/bug439 b/tests/bugs/modalg/bug439 index 63c6656d3d..91c43ffc1b 100755 --- a/tests/bugs/modalg/bug439 +++ b/tests/bugs/modalg/bug439 @@ -10,8 +10,8 @@ puts "" restore [locate_data_file OCC439.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] +checkshape a_1 +checkshape a_2 bcut result a_1 a_2 diff --git a/tests/bugs/modalg/bug442 b/tests/bugs/modalg/bug442 index 67147dc9b6..6007de9782 100755 --- a/tests/bugs/modalg/bug442 +++ b/tests/bugs/modalg/bug442 @@ -9,7 +9,7 @@ puts "" ######################################################## restore [locate_data_file OCC442.brep] a -puts [checkshape a] +checkshape a explode a v diff --git a/tests/bugs/modalg/bug449 b/tests/bugs/modalg/bug449 index ef5b99cdd9..fab38a52da 100755 --- a/tests/bugs/modalg/bug449 +++ b/tests/bugs/modalg/bug449 @@ -8,10 +8,10 @@ puts "" ####################### restore [locate_data_file OCC449a.brep] b1 -puts [checkshape b1] +checkshape b1 restore [locate_data_file OCC449b.brep] b2 -puts [checkshape b2] +checkshape b2 bcut result b1 b2 diff --git a/tests/bugs/modalg/bug4717_1 b/tests/bugs/modalg/bug4717_1 new file mode 100755 index 0000000000..104835140c --- /dev/null +++ b/tests/bugs/modalg/bug4717_1 @@ -0,0 +1,44 @@ +puts "TODO OCC12345 ALL: Error : Result shape is WRONG" + +puts "============" +puts "OCC4717" +puts "============" +puts "" +###################################################### +# A regression of new Boolean Operations +# (cfi/002/H3) +###################################################### + +dset SCALE1 10 +protect SCALE1 + +box b -20 -20 -20 40 40 20 +ellipse w1 0 0 0 15 10 +mkedge w1 w1 -pi/2 pi/2 +trotate w1 0 0 0 1 0 0 90 +wire w w1 +revol r w 0 0 0 0 0 1 360 +shape s So +add r s +trotate s b 0 0 0 1 1 0 -40 +trotate s b 0 0 0 0 0 1 -10 +tscale b 0 0 0 SCALE1 +tscale s 0 0 0 SCALE1 + +bop s b +bopfuse result + +set square 680565 +set nb_info [nbshapes result] + +set nb_v_good 11 +set nb_e_good 16 +set nb_w_good 8 +set nb_f_good 7 +set nb_sh_good 1 +set nb_sol_good 1 +set nb_compsol_good 0 +set nb_compound_good 1 +set nb_shape_good 45 + +set 2dviewer 0 diff --git a/tests/bugs/modalg/bug4717_2 b/tests/bugs/modalg/bug4717_2 new file mode 100755 index 0000000000..e3235365d3 --- /dev/null +++ b/tests/bugs/modalg/bug4717_2 @@ -0,0 +1,44 @@ +puts "TODO OCC12345 ALL: Error : Result shape is WRONG" + +puts "============" +puts "OCC4717" +puts "============" +puts "" +###################################################### +# A regression of new Boolean Operations +# (cfi/002/H3) +###################################################### + +dset SCALE1 10 +protect SCALE1 + +box b -20 -20 -20 40 40 20 +ellipse w1 0 0 0 15 10 +mkedge w1 w1 -pi/2 pi/2 +trotate w1 0 0 0 1 0 0 90 +wire w w1 +revol r w 0 0 0 0 0 1 360 +shape s So +add r s +trotate s b 0 0 0 1 1 0 -40 +trotate s b 0 0 0 0 0 1 -10 +tscale b 0 0 0 SCALE1 +tscale s 0 0 0 SCALE1 + +bop b s +bopfuse result + +set square 680565 +set nb_info [nbshapes result] + +set nb_v_good 11 +set nb_e_good 16 +set nb_w_good 8 +set nb_f_good 7 +set nb_sh_good 1 +set nb_sol_good 1 +set nb_compsol_good 0 +set nb_compound_good 1 +set nb_shape_good 45 + +set 2dviewer 0 diff --git a/tests/bugs/modalg/bug4717_3 b/tests/bugs/modalg/bug4717_3 new file mode 100755 index 0000000000..c1fa1266dc --- /dev/null +++ b/tests/bugs/modalg/bug4717_3 @@ -0,0 +1,44 @@ +puts "TODO OCC12345 ALL: Error : Result shape is WRONG" + +puts "============" +puts "OCC4717" +puts "============" +puts "" +###################################################### +# A regression of new Boolean Operations +# (cfi/002/H3) +###################################################### + +dset SCALE1 10 +protect SCALE1 + +box b -20 -20 -20 40 40 20 +ellipse w1 0 0 0 15 10 +mkedge w1 w1 -pi/2 pi/2 +trotate w1 0 0 0 1 0 0 90 +wire w w1 +revol r w 0 0 0 0 0 1 360 +shape s So +add r s +trotate s b 0 0 0 1 1 0 -40 +trotate s b 0 0 0 0 0 1 -10 +tscale b 0 0 0 SCALE1 +tscale s 0 0 0 SCALE1 + +bop s b +bopcut result + +set square 181937 +set nb_info [nbshapes result] + +set nb_v_good 3 +set nb_e_good 4 +set nb_w_good 2 +set nb_f_good 2 +set nb_sh_good 1 +set nb_sol_good 1 +set nb_compsol_good 0 +set nb_compound_good 1 +set nb_shape_good 14 + +set 2dviewer 0 diff --git a/tests/bugs/modalg/bug4717_4 b/tests/bugs/modalg/bug4717_4 new file mode 100755 index 0000000000..b1fe5c250b --- /dev/null +++ b/tests/bugs/modalg/bug4717_4 @@ -0,0 +1,44 @@ +puts "TODO OCC12345 ALL: Error : Result shape is WRONG" + +puts "============" +puts "OCC4717" +puts "============" +puts "" +###################################################### +# A regression of new Boolean Operations +# (cfi/002/H3) +###################################################### + +dset SCALE1 10 +protect SCALE1 + +box b -20 -20 -20 40 40 20 +ellipse w1 0 0 0 15 10 +mkedge w1 w1 -pi/2 pi/2 +trotate w1 0 0 0 1 0 0 90 +wire w w1 +revol r w 0 0 0 0 0 1 360 +shape s So +add r s +trotate s b 0 0 0 1 1 0 -40 +trotate s b 0 0 0 0 0 1 -10 +tscale b 0 0 0 SCALE1 +tscale s 0 0 0 SCALE1 + +bop b s +bopcut result + +set square 680565 +set nb_info [nbshapes result] + +set nb_v_good 11 +set nb_e_good 16 +set nb_w_good 8 +set nb_f_good 7 +set nb_sh_good 1 +set nb_sol_good 1 +set nb_compsol_good 0 +set nb_compound_good 1 +set nb_shape_good 45 + +set 2dviewer 0 diff --git a/tests/bugs/modalg/bug4717_5 b/tests/bugs/modalg/bug4717_5 new file mode 100755 index 0000000000..cac87466f1 --- /dev/null +++ b/tests/bugs/modalg/bug4717_5 @@ -0,0 +1,44 @@ +puts "TODO OCC12345 ALL: Error : Result shape is WRONG" + +puts "============" +puts "OCC4717" +puts "============" +puts "" +###################################################### +# A regression of new Boolean Operations +# (cfi/002/H3) +###################################################### + +dset SCALE1 10 +protect SCALE1 + +box b -20 -20 -20 40 40 20 +ellipse w1 0 0 0 15 10 +mkedge w1 w1 -pi/2 pi/2 +trotate w1 0 0 0 1 0 0 90 +wire w w1 +revol r w 0 0 0 0 0 1 360 +shape s So +add r s +trotate s b 0 0 0 1 1 0 -40 +trotate s b 0 0 0 0 0 1 -10 +tscale b 0 0 0 SCALE1 +tscale s 0 0 0 SCALE1 + +bop s b +boptuc result + +set square 680565 +set nb_info [nbshapes result] + +set nb_v_good 11 +set nb_e_good 16 +set nb_w_good 8 +set nb_f_good 7 +set nb_sh_good 1 +set nb_sol_good 1 +set nb_compsol_good 0 +set nb_compound_good 1 +set nb_shape_good 45 + +set 2dviewer 0 diff --git a/tests/bugs/modalg/bug4717_6 b/tests/bugs/modalg/bug4717_6 new file mode 100755 index 0000000000..01bafd5096 --- /dev/null +++ b/tests/bugs/modalg/bug4717_6 @@ -0,0 +1,44 @@ +puts "TODO OCC12345 ALL: Error : Result shape is WRONG" + +puts "============" +puts "OCC4717" +puts "============" +puts "" +###################################################### +# A regression of new Boolean Operations +# (cfi/002/H3) +###################################################### + +dset SCALE1 10 +protect SCALE1 + +box b -20 -20 -20 40 40 20 +ellipse w1 0 0 0 15 10 +mkedge w1 w1 -pi/2 pi/2 +trotate w1 0 0 0 1 0 0 90 +wire w w1 +revol r w 0 0 0 0 0 1 360 +shape s So +add r s +trotate s b 0 0 0 1 1 0 -40 +trotate s b 0 0 0 0 0 1 -10 +tscale b 0 0 0 SCALE1 +tscale s 0 0 0 SCALE1 + +bop b s +boptuc result + +set square 181937 +set nb_info [nbshapes result] + +set nb_v_good 3 +set nb_e_good 4 +set nb_w_good 2 +set nb_f_good 2 +set nb_sh_good 1 +set nb_sol_good 1 +set nb_compsol_good 0 +set nb_compound_good 1 +set nb_shape_good 14 + +set 2dviewer 0 diff --git a/tests/bugs/modalg/bug4717_7 b/tests/bugs/modalg/bug4717_7 new file mode 100755 index 0000000000..99d4b6abc9 --- /dev/null +++ b/tests/bugs/modalg/bug4717_7 @@ -0,0 +1,44 @@ +puts "TODO OCC12345 ALL: Error : Result shape is WRONG" + +puts "============" +puts "OCC4717" +puts "============" +puts "" +###################################################### +# A regression of new Boolean Operations +# (cfi/002/H3) +###################################################### + +dset SCALE1 10 +protect SCALE1 + +box b -20 -20 -20 40 40 20 +ellipse w1 0 0 0 15 10 +mkedge w1 w1 -pi/2 pi/2 +trotate w1 0 0 0 1 0 0 90 +wire w w1 +revol r w 0 0 0 0 0 1 360 +shape s So +add r s +trotate s b 0 0 0 1 1 0 -40 +trotate s b 0 0 0 0 0 1 -10 +tscale b 0 0 0 SCALE1 +tscale s 0 0 0 SCALE1 + +bop s b +bopcommon result + +set square 181937 +set nb_info [nbshapes result] + +set nb_v_good 3 +set nb_e_good 4 +set nb_w_good 2 +set nb_f_good 2 +set nb_sh_good 1 +set nb_sol_good 1 +set nb_compsol_good 0 +set nb_compound_good 1 +set nb_shape_good 14 + +set 2dviewer 0 diff --git a/tests/bugs/modalg/bug4717_8 b/tests/bugs/modalg/bug4717_8 new file mode 100755 index 0000000000..3f28f5798d --- /dev/null +++ b/tests/bugs/modalg/bug4717_8 @@ -0,0 +1,44 @@ +puts "TODO OCC12345 ALL: Error : Result shape is WRONG" + +puts "============" +puts "OCC4717" +puts "============" +puts "" +###################################################### +# A regression of new Boolean Operations +# (cfi/002/H3) +###################################################### + +dset SCALE1 10 +protect SCALE1 + +box b -20 -20 -20 40 40 20 +ellipse w1 0 0 0 15 10 +mkedge w1 w1 -pi/2 pi/2 +trotate w1 0 0 0 1 0 0 90 +wire w w1 +revol r w 0 0 0 0 0 1 360 +shape s So +add r s +trotate s b 0 0 0 1 1 0 -40 +trotate s b 0 0 0 0 0 1 -10 +tscale b 0 0 0 SCALE1 +tscale s 0 0 0 SCALE1 + +bop b s +bopcommon result + +set square 181937 +set nb_info [nbshapes result] + +set nb_v_good 3 +set nb_e_good 4 +set nb_w_good 2 +set nb_f_good 2 +set nb_sh_good 1 +set nb_sol_good 1 +set nb_compsol_good 0 +set nb_compound_good 1 +set nb_shape_good 14 + +set 2dviewer 0 diff --git a/tests/bugs/modalg/bug472_1 b/tests/bugs/modalg/bug472_1 index 7364c73e44..bc835520cf 100755 --- a/tests/bugs/modalg/bug472_1 +++ b/tests/bugs/modalg/bug472_1 @@ -11,10 +11,10 @@ puts "" ##################################################### restore [locate_data_file OCC472a.brep] b1 -puts [checkshape b1] +checkshape b1 restore [locate_data_file OCC472b.brep] b2 -puts [checkshape b2] +checkshape b2 bcut result b1 b2 diff --git a/tests/bugs/modalg/bug472_2 b/tests/bugs/modalg/bug472_2 index c545ba1247..4e79ff3a0d 100755 --- a/tests/bugs/modalg/bug472_2 +++ b/tests/bugs/modalg/bug472_2 @@ -11,10 +11,10 @@ puts "" ##################################################### restore [locate_data_file OCC472a.brep] b1 -puts [checkshape b1] +checkshape b1 restore [locate_data_file OCC472b.brep] b2 -puts [checkshape b2] +checkshape b2 bcommon result b1 b2 diff --git a/tests/bugs/modalg/bug472_3 b/tests/bugs/modalg/bug472_3 index 3a25a238a0..305485f0d0 100755 --- a/tests/bugs/modalg/bug472_3 +++ b/tests/bugs/modalg/bug472_3 @@ -12,10 +12,10 @@ puts "" ##################################################### restore [locate_data_file OCC472a.brep] b1 -puts [checkshape b1] +checkshape b1 restore [locate_data_file OCC472b.brep] b2 -puts [checkshape b2] +checkshape b2 bfuse result b1 b2 diff --git a/tests/bugs/modalg/bug476_1 b/tests/bugs/modalg/bug476_1 new file mode 100755 index 0000000000..07bf00d2da --- /dev/null +++ b/tests/bugs/modalg/bug476_1 @@ -0,0 +1,32 @@ +puts "============" +puts "OCC476" +puts "============" +puts "" +###################################################### +# Regression on reading e3i files with respect of OCC30 and OCC40 +###################################################### + +restore [locate_data_file OCC485b.brep] s1 +restore [locate_data_file OCC485a.brep] s2 + +checkshape s1 +checkshape s2 + +bop s1 s2 +bopfuse result + +set nb_info [nbshapes result] + +set square 9333.96 + +set nb_v_good 16 +set nb_e_good 26 +set nb_w_good 11 +set nb_f_good 11 +set nb_sh_good 1 +set nb_sol_good 1 +set nb_compsol_good 0 +set nb_compound_good 1 +set nb_shape_good 67 + +set 2dviewer 0 diff --git a/tests/bugs/modalg/bug476_2 b/tests/bugs/modalg/bug476_2 new file mode 100755 index 0000000000..e6f51b1047 --- /dev/null +++ b/tests/bugs/modalg/bug476_2 @@ -0,0 +1,33 @@ +puts "============" +puts "OCC476" +puts "============" +puts "" +###################################################### +# Regression on reading e3i files with respect of OCC30 and OCC40 +###################################################### + +restore [locate_data_file OCC485b.brep] s1 +restore [locate_data_file OCC485a.brep] s2 + +checkshape s1 +checkshape s2 + +bop s2 s1 +bopfuse result + +set nb_info [nbshapes result] + +set square 9333.96 + +set nb_v_good 16 +set nb_e_good 26 +set nb_w_good 11 +set nb_f_good 11 +set nb_sh_good 1 +set nb_sol_good 1 +set nb_compsol_good 0 +set nb_compound_good 1 +set nb_shape_good 67 + +set 2dviewer 0 + diff --git a/tests/bugs/modalg/bug476_3 b/tests/bugs/modalg/bug476_3 new file mode 100755 index 0000000000..c0440ee2f0 --- /dev/null +++ b/tests/bugs/modalg/bug476_3 @@ -0,0 +1,33 @@ +puts "============" +puts "OCC476" +puts "============" +puts "" +###################################################### +# Regression on reading e3i files with respect of OCC30 and OCC40 +###################################################### + +restore [locate_data_file OCC485b.brep] s1 +restore [locate_data_file OCC485a.brep] s2 + +checkshape s1 +checkshape s2 + +bop s1 s2 +bopcut result + +set nb_info [nbshapes result] + +set square 99.5159 + +set nb_v_good 12 +set nb_e_good 19 +set nb_w_good 9 +set nb_f_good 9 +set nb_sh_good 1 +set nb_sol_good 1 +set nb_compsol_good 0 +set nb_compound_good 1 +set nb_shape_good 52 + +set 2dviewer 0 + diff --git a/tests/bugs/modalg/bug476_4 b/tests/bugs/modalg/bug476_4 new file mode 100755 index 0000000000..b540f0814f --- /dev/null +++ b/tests/bugs/modalg/bug476_4 @@ -0,0 +1,32 @@ +puts "============" +puts "OCC476" +puts "============" +puts "" +###################################################### +# Regression on reading e3i files with respect of OCC30 and OCC40 +###################################################### + +restore [locate_data_file OCC485b.brep] s1 +restore [locate_data_file OCC485a.brep] s2 + +checkshape s1 +checkshape s2 + +bop s2 s1 +bopcut result + +set nb_info [nbshapes result] + +set square 9340.03 + +set nb_v_good 19 +set nb_e_good 33 +set nb_w_good 14 +set nb_f_good 14 +set nb_sh_good 1 +set nb_sol_good 1 +set nb_compsol_good 0 +set nb_compound_good 1 +set nb_shape_good 83 + +set 2dviewer 0 diff --git a/tests/bugs/modalg/bug476_5 b/tests/bugs/modalg/bug476_5 new file mode 100755 index 0000000000..2df33eb920 --- /dev/null +++ b/tests/bugs/modalg/bug476_5 @@ -0,0 +1,32 @@ +puts "============" +puts "OCC476" +puts "============" +puts "" +###################################################### +# Regression on reading e3i files with respect of OCC30 and OCC40 +###################################################### + +restore [locate_data_file OCC485b.brep] s1 +restore [locate_data_file OCC485a.brep] s2 + +checkshape s1 +checkshape s2 + +bop s1 s2 +boptuc result + +set nb_info [nbshapes result] + +set square 9340.03 + +set nb_v_good 19 +set nb_e_good 33 +set nb_w_good 14 +set nb_f_good 14 +set nb_sh_good 1 +set nb_sol_good 1 +set nb_compsol_good 0 +set nb_compound_good 1 +set nb_shape_good 83 + +set 2dviewer 0 diff --git a/tests/bugs/modalg/bug476_6 b/tests/bugs/modalg/bug476_6 new file mode 100755 index 0000000000..02d7aa4479 --- /dev/null +++ b/tests/bugs/modalg/bug476_6 @@ -0,0 +1,32 @@ +puts "============" +puts "OCC476" +puts "============" +puts "" +###################################################### +# Regression on reading e3i files with respect of OCC30 and OCC40 +###################################################### + +restore [locate_data_file OCC485b.brep] s1 +restore [locate_data_file OCC485a.brep] s2 + +checkshape s1 +checkshape s2 + +bop s2 s1 +boptuc result + +set nb_info [nbshapes result] + +set square 99.5159 + +set nb_v_good 12 +set nb_e_good 19 +set nb_w_good 9 +set nb_f_good 9 +set nb_sh_good 1 +set nb_sol_good 1 +set nb_compsol_good 0 +set nb_compound_good 1 +set nb_shape_good 52 + +set 2dviewer 0 diff --git a/tests/bugs/modalg/bug476_7 b/tests/bugs/modalg/bug476_7 new file mode 100755 index 0000000000..eee8c347b8 --- /dev/null +++ b/tests/bugs/modalg/bug476_7 @@ -0,0 +1,32 @@ +puts "============" +puts "OCC476" +puts "============" +puts "" +###################################################### +# Regression on reading e3i files with respect of OCC30 and OCC40 +###################################################### + +restore [locate_data_file OCC485b.brep] s1 +restore [locate_data_file OCC485a.brep] s2 + +checkshape s1 +checkshape s2 + +bop s1 s2 +bopcommon result + +set nb_info [nbshapes result] + +set square 105.587 + +set nb_v_good 15 +set nb_e_good 26 +set nb_w_good 12 +set nb_f_good 12 +set nb_sh_good 1 +set nb_sol_good 1 +set nb_compsol_good 0 +set nb_compound_good 1 +set nb_shape_good 68 + +set 2dviewer 0 diff --git a/tests/bugs/modalg/bug476_8 b/tests/bugs/modalg/bug476_8 new file mode 100755 index 0000000000..8c3559fd6b --- /dev/null +++ b/tests/bugs/modalg/bug476_8 @@ -0,0 +1,32 @@ +puts "============" +puts "OCC476" +puts "============" +puts "" +###################################################### +# Regression on reading e3i files with respect of OCC30 and OCC40 +###################################################### + +restore [locate_data_file OCC485b.brep] s1 +restore [locate_data_file OCC485a.brep] s2 + +checkshape s1 +checkshape s2 + +bop s2 s1 +bopcommon result + +set nb_info [nbshapes result] + +set square 105.587 + +set nb_v_good 15 +set nb_e_good 26 +set nb_w_good 12 +set nb_f_good 12 +set nb_sh_good 1 +set nb_sol_good 1 +set nb_compsol_good 0 +set nb_compound_good 1 +set nb_shape_good 68 + +set 2dviewer 0 diff --git a/tests/bugs/modalg/bug481 b/tests/bugs/modalg/bug481 index 00e9059a41..367af52bcb 100755 --- a/tests/bugs/modalg/bug481 +++ b/tests/bugs/modalg/bug481 @@ -8,7 +8,7 @@ puts "" ########################################## restore [locate_data_file OCC481.rle] result -puts [checkshape result] +checkshape result tclean result vinit diff --git a/tests/bugs/modalg/bug485 b/tests/bugs/modalg/bug485 index 9b4fbe0b48..b33b0806cb 100755 --- a/tests/bugs/modalg/bug485 +++ b/tests/bugs/modalg/bug485 @@ -8,10 +8,10 @@ puts "" ####################################### restore [locate_data_file OCC485a.brep] a_1 -puts [checkshape a_1] +checkshape a_1 restore [locate_data_file OCC485a.brep] a_2 -puts [checkshape a_2] +checkshape a_2 if [catch {bfuse result a_1 a_2 } result] { puts "Faulty OCC485: Draw hangs up during performing fuse operation" diff --git a/tests/bugs/modalg/bug488 b/tests/bugs/modalg/bug488 index b3637a8741..35bc7540f7 100755 --- a/tests/bugs/modalg/bug488 +++ b/tests/bugs/modalg/bug488 @@ -8,10 +8,10 @@ puts "" ######################################################## restore [locate_data_file OCC488a.brep] a_1 -puts [checkshape a_1] +checkshape a_1 restore [locate_data_file OCC488b.brep] a_2 -puts [checkshape a_2] +checkshape a_2 if [catch {bcommon result a_1 a_2 } catch_result] { puts "Faulty OCC488: command COMMON works wrongly" diff --git a/tests/bugs/modalg/bug490 b/tests/bugs/modalg/bug490 index 874f5c9e1d..85939f2845 100755 --- a/tests/bugs/modalg/bug490 +++ b/tests/bugs/modalg/bug490 @@ -8,10 +8,10 @@ puts "" ######################################################## restore [locate_data_file OCC490a.brep] a_1 -puts [checkshape a_1] +checkshape a_1 restore [locate_data_file OCC490b.brep] a_2 -puts [checkshape a_2] +checkshape a_2 if [catch {bfuse result a_1 a_2 } catch_result] { puts "Faulty OCC490: command FUSE works wrongly" diff --git a/tests/bugs/modalg/bug492 b/tests/bugs/modalg/bug492 index 864ee44d8f..0bf4415746 100755 --- a/tests/bugs/modalg/bug492 +++ b/tests/bugs/modalg/bug492 @@ -8,10 +8,10 @@ puts "" ############################## restore [locate_data_file OCC492a.brep] a_1 -puts [checkshape a_1] +checkshape a_1 restore [locate_data_file OCC492b.brep] a_2 -puts [checkshape a_2] +checkshape a_2 if [catch {bfuse result a_1 a_2 } catch_result] { puts "Faulty OCC492: command FUSE works wrongly" diff --git a/tests/bugs/modalg/bug497_1 b/tests/bugs/modalg/bug497_1 index 7aa08490bd..86d8acdc94 100755 --- a/tests/bugs/modalg/bug497_1 +++ b/tests/bugs/modalg/bug497_1 @@ -11,10 +11,10 @@ puts "" ######################################################## restore [locate_data_file OCC497a.brep] a_1 -puts [checkshape a_1] +checkshape a_1 restore [locate_data_file OCC497b.brep] a_2 -puts [checkshape a_2] +checkshape a_2 if [catch {bcut result a_1 a_2 } catch_result] { puts "Faulty OCC497:function CUT works wrongly " diff --git a/tests/bugs/modalg/bug497_2 b/tests/bugs/modalg/bug497_2 index d7b82ba3c0..f899ff8174 100755 --- a/tests/bugs/modalg/bug497_2 +++ b/tests/bugs/modalg/bug497_2 @@ -9,10 +9,10 @@ puts "" ######################################################## restore [locate_data_file OCC497c.brep] a_1 -puts [checkshape a_1] +checkshape a_1 restore [locate_data_file OCC497d.brep] a_2 -puts [checkshape a_2] +checkshape a_2 if [catch {bcut result a_1 a_2 } catch_result] { puts "Faulty OCC497:function CUT works wrongly " diff --git a/tests/bugs/modalg/bug497_3 b/tests/bugs/modalg/bug497_3 index f85c8bfcfa..b497083646 100755 --- a/tests/bugs/modalg/bug497_3 +++ b/tests/bugs/modalg/bug497_3 @@ -10,10 +10,10 @@ puts "" ######################################################## restore [locate_data_file OCC497e.brep] a_1 -puts [checkshape a_1] +checkshape a_1 restore [locate_data_file OCC497f.brep] a_2 -puts [checkshape a_2] +checkshape a_2 bcut result a_1 a_2 diff --git a/tests/bugs/modalg/bug497_4 b/tests/bugs/modalg/bug497_4 index 9f62dac5a4..fd8c384917 100755 --- a/tests/bugs/modalg/bug497_4 +++ b/tests/bugs/modalg/bug497_4 @@ -9,10 +9,10 @@ puts "" ######################################################## restore [locate_data_file OCC497g.brep] a_1 -puts [checkshape a_1] +checkshape a_1 restore [locate_data_file OCC497h.brep] a_2 -puts [checkshape a_2] +checkshape a_2 if [catch {bfuse result a_1 a_2 } catch_result] { puts "Faulty OCC497:function FUSE works wrongly " diff --git a/tests/bugs/modalg/bug497_5 b/tests/bugs/modalg/bug497_5 index 887cfef309..26fb1892c9 100755 --- a/tests/bugs/modalg/bug497_5 +++ b/tests/bugs/modalg/bug497_5 @@ -9,10 +9,10 @@ puts "" ######################################################## restore [locate_data_file OCC497i.brep] a_1 -puts [checkshape a_1] +checkshape a_1 restore [locate_data_file OCC497j.brep] a_2 -puts [checkshape a_2] +checkshape a_2 if [catch {bfuse result a_1 a_2 } catch_result] { puts "Faulty OCC497:function FUSE works wrongly " diff --git a/tests/bugs/modalg/bug4993_1 b/tests/bugs/modalg/bug4993_1 new file mode 100755 index 0000000000..92b8f0ffc7 --- /dev/null +++ b/tests/bugs/modalg/bug4993_1 @@ -0,0 +1,32 @@ +puts "============" +puts "OCC4993" +puts "============" +puts "" +###################################################### +# Problem in boolean fusion +# (new topology) +###################################################### + +restore [locate_data_file OCC4993-s1.brep] s1 +restore [locate_data_file OCC4993-s2.brep] s2 + +checkshape s1 +checkshape s2 + +bop s1 s2 +bopfuse result + +set square 4854.51 +set nb_info [nbshapes result] + +set nb_v_good 40 +set nb_e_good 64 +set nb_w_good 24 +set nb_f_good 24 +set nb_sh_good 1 +set nb_sol_good 1 +set nb_compsol_good 0 +set nb_compound_good 1 +set nb_shape_good 155 + +set 2dviewer 0 diff --git a/tests/bugs/modalg/bug4993_2 b/tests/bugs/modalg/bug4993_2 new file mode 100755 index 0000000000..6b46745d5f --- /dev/null +++ b/tests/bugs/modalg/bug4993_2 @@ -0,0 +1,32 @@ +puts "============" +puts "OCC4993" +puts "============" +puts "" +###################################################### +# Problem in boolean fusion +# (new topology) +###################################################### + +restore [locate_data_file OCC4993-s1.brep] s1 +restore [locate_data_file OCC4993-s2.brep] s2 + +checkshape s1 +checkshape s2 + +bop s2 s1 +bopfuse result + +set square 4854.51 +set nb_info [nbshapes result] + +set nb_v_good 40 +set nb_e_good 64 +set nb_w_good 24 +set nb_f_good 24 +set nb_sh_good 1 +set nb_sol_good 1 +set nb_compsol_good 0 +set nb_compound_good 1 +set nb_shape_good 155 + +set 2dviewer 0 diff --git a/tests/bugs/modalg/bug500 b/tests/bugs/modalg/bug500 index 2df8f63d23..c5b845234c 100755 --- a/tests/bugs/modalg/bug500 +++ b/tests/bugs/modalg/bug500 @@ -8,10 +8,10 @@ puts "" ############################### restore [locate_data_file OCC500a.brep] a_1 -puts [checkshape a_1] +checkshape a_1 restore [locate_data_file OCC500b.brep] a_2 -puts [checkshape a_2] +checkshape a_2 if [catch {pipe result a_1 a_2 } catch_result] { puts "Faulty OCC500 : function PIPE works wrongly " diff --git a/tests/bugs/modalg/bug526 b/tests/bugs/modalg/bug526 new file mode 100755 index 0000000000..1476e5febe --- /dev/null +++ b/tests/bugs/modalg/bug526 @@ -0,0 +1,33 @@ +#INTERFACE IGES +puts "========" +puts "OCC526" +puts "========" +puts "" +################################################ +## BRepAlgoAPI_Section fails to build planar sections on some faces +################################################ + +pload XDE +catch { source $env(CSF_DrawPluginQADefaults)/QARebuildCommands } + +restore [locate_data_file OCC592.brep] a + +set Z 67.599311020481764 +plane p 0 0 $Z +psection r1 a p +if ![regexp VERTEX [statshape r1]] {puts [format "OCC526 FAULTY Z=%f" $Z ] } + +set Z 66.599311020481764 +plane p 0 0 $Z +psection r2 a p +if ![regexp VERTEX [statshape r2]] {puts [format "OCC526 FAULTY Z=%f" $Z ] } + +set Z 65.599311020481764 +plane p 0 0 $Z +psection result a p +if ![regexp VERTEX [statshape result]] {puts [format "OCC526 FAULTY Z=%f" $Z ] } + +set length 27.8021 +set 2dviewer 1 + + diff --git a/tests/bugs/modalg/bug527 b/tests/bugs/modalg/bug527 new file mode 100755 index 0000000000..135d9479fb --- /dev/null +++ b/tests/bugs/modalg/bug527 @@ -0,0 +1,16 @@ +pload QAcommands + +puts "========" +puts "OCC527" +puts "========" +puts "" +##################################################### +## BRepAlgoAPI_Section creates very distant geometry on some planar sections +##################################################### + +cpulimit 3600 +restore [locate_data_file OCC527.brep] result +OCC527 result + +set square 3774.42 +set 2dviewer 1 diff --git a/tests/bugs/modalg/bug528 b/tests/bugs/modalg/bug528 new file mode 100755 index 0000000000..4d11a8cb59 --- /dev/null +++ b/tests/bugs/modalg/bug528 @@ -0,0 +1,23 @@ + +puts "========================" +puts "OCC528" +puts "========================" +puts "" +############################################## +## Result of bcut command is faulty although arguments are valid +############################################## + +restore [locate_data_file OCC528_1.brep] c1 +checkshape c1 + +restore [locate_data_file OCC528_2.brep] c2 +checkshape c2 + +if { [catch { bcut result c1 c2 } catch_result] } { + puts "OCC528 Faulty: function BCUT works wrongly" +} else { + puts "OCC528 OK:function BCUT works properly" +} + +set square 124.092 +set 2dviewer 0 diff --git a/tests/bugs/modalg/bug530 b/tests/bugs/modalg/bug530 new file mode 100755 index 0000000000..d2f9ef0601 --- /dev/null +++ b/tests/bugs/modalg/bug530 @@ -0,0 +1,29 @@ +puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_" +puts "TODO OCC12345 ALL: Error : The square of result shape is" + +puts "=======" +puts "OCC530" +puts "=======" +puts "" +#################################### +## Draw hungs up during performing bfuse operation +#################################### + +cpulimit 3000 + +restore [locate_data_file OCC530_1.brep] c1 +checkshape c1 + +restore [locate_data_file OCC530_2.brep] c2 +checkshape c2 + +if { [catch { bfuse result c1 c2 } catch_result] } { + puts "Faulty OCC530 : function BFUSE works wrongly" +} else { + puts "OCC530 OK: function BFUSE works properly" +} + +set square 0 +set 2dviewer 0 + + diff --git a/tests/bugs/modalg/bug534_1 b/tests/bugs/modalg/bug534_1 new file mode 100755 index 0000000000..6eab05b4d7 --- /dev/null +++ b/tests/bugs/modalg/bug534_1 @@ -0,0 +1,27 @@ + +puts "========================" +puts " OCC534 " +puts " case 1 " +puts "========================" +puts "" + +hyperbola hyperbola 0 0 0 30 10 +extsurf es_hyperbola hyperbola 0 0 1 +offset es_hyperbola_of es_hyperbola 5 +mkface result es_hyperbola_of 0 3 0 40 + + +set tolerance [maxtolerance result] +regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance +regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance +regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance + +if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } { + puts "Faulty : Tolerance of shape is more then 1.0" +} else { + puts "Tolerance is OK" +} + +set square 11451.2 +set 2dviewer 0 + diff --git a/tests/bugs/modalg/bug534_2 b/tests/bugs/modalg/bug534_2 new file mode 100755 index 0000000000..7a326cce0e --- /dev/null +++ b/tests/bugs/modalg/bug534_2 @@ -0,0 +1,29 @@ + +puts "========================" +puts " OCC534 " +puts " case 2 " +puts "========================" +puts "" + +hyperbola hyperbola 0 0 0 30 10 +extsurf es_hyperbola hyperbola 0 0 1 +offset es_hyperbola_of es_hyperbola 5 +offset es_hyperbola_of_of es_hyperbola_of 5 +mkface result es_hyperbola_of_of 0 3 0 40 + +set tolerance [maxtolerance result] +regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance +regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance +regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance + +if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } { + puts "Faulty : Tolerance of shape is more then 1.0" +} else { + puts "Tolerance is OK" +} + +set square 11460.7 +set 2dviewer 0 + + + diff --git a/tests/bugs/modalg/bug534_3 b/tests/bugs/modalg/bug534_3 new file mode 100755 index 0000000000..57d84c3831 --- /dev/null +++ b/tests/bugs/modalg/bug534_3 @@ -0,0 +1,26 @@ + +puts "========================" +puts " OCC534 " +puts " case 3 " +puts "========================" +puts "" + +hyperbola hyperbola 0 0 0 30 10 +revsurf rs_hyperbola hyperbola 0 400 0 1 0 0 +offset rs_hyperbola_of rs_hyperbola 5 +mkface result rs_hyperbola_of .3 .5 .3 .5 + +set tolerance [maxtolerance result] +regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance +regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance +regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance + +if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } { + puts "Faulty : Tolerance of shape is more then 1.0" +} else { + puts "Tolerance is OK" +} + +set square 171.992 +set 2dviewer 0 + diff --git a/tests/bugs/modalg/bug534_4 b/tests/bugs/modalg/bug534_4 new file mode 100755 index 0000000000..c15d7e0201 --- /dev/null +++ b/tests/bugs/modalg/bug534_4 @@ -0,0 +1,26 @@ + +puts "========================" +puts " OCC534 " +puts " case 4 " +puts "========================" +puts "" + +hyperbola hyperbola 0 0 0 30 10 +revsurf rs_hyperbola hyperbola 0 400 0 1 0 0 +offset rs_hyperbola_of rs_hyperbola 5 +offset rs_hyperbola_of_of rs_hyperbola_of 5 +mkface result rs_hyperbola_of_of .3 .5 .3 .5 + +set tolerance [maxtolerance result] +regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance +regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance +regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance + +if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } { + puts "Faulty : Tolerance of shape is more then 1.0" +} else { + puts "Tolerance is OK" +} + +set square 84.8861 +set 2dviewer 0 diff --git a/tests/bugs/modalg/bug534_5 b/tests/bugs/modalg/bug534_5 new file mode 100755 index 0000000000..1b73981893 --- /dev/null +++ b/tests/bugs/modalg/bug534_5 @@ -0,0 +1,25 @@ + +puts "========================" +puts " OCC534 " +puts " case 5 " +puts "========================" +puts "" + +parabola parabola 0 0 0 30 +revsurf rs_parabola parabola 0 400 0 1 0 0 +offset rs_parabola_of rs_parabola 10 +mkface result rs_parabola_of .3 .5 .3 .5 + +set tolerance [maxtolerance result] +regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance +regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance +regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance + +if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } { + puts "Faulty : Tolerance of shape is more then 1.0" +} else { + puts "Tolerance is OK" +} + +set square 13.3227 +set 2dviewer 0 diff --git a/tests/bugs/modalg/bug534_6 b/tests/bugs/modalg/bug534_6 new file mode 100755 index 0000000000..a8bef01df9 --- /dev/null +++ b/tests/bugs/modalg/bug534_6 @@ -0,0 +1,27 @@ + +puts "========================" +puts " OCC534 " +puts " case 6 " +puts "========================" +puts "" + +parabola parabola 0 0 0 30 +revsurf rs_parabola parabola 0 400 0 1 0 0 +offset rs_parabola_of rs_parabola 10 +offset rs_parabola_of_of rs_parabola_of 5 +mkface result rs_parabola_of_of .3 .5 .3 .5 + +set tolerance [maxtolerance result] +regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance +regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance +regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance + +if { $MaxFaceTolerance > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } { + puts "Faulty : Tolerance of shape is more then 1.0" +} else { + puts "Tolerance is OK" +} + +set square 11.9915 +set 2dviewer 0 + diff --git a/tests/bugs/modalg/bug535 b/tests/bugs/modalg/bug535 new file mode 100755 index 0000000000..b110cd778e --- /dev/null +++ b/tests/bugs/modalg/bug535 @@ -0,0 +1,35 @@ +#INTERFACE IGES +puts "=======" +puts "OCC535" +puts "=======" +puts "" +############################################################# +## After command "fixshape" in DRAW on attached shape quantity of shapes obtained +## with help command "nbs" is increased. +############################################################# + +pload XDE +catch { source $env(CSF_DrawPluginQADefaults)/QARebuildCommands } + +restore [locate_data_file OCC535.brep] a + +set nb_info_a [nbshapes a] +regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info_a full r1 + +fixshape result a + +set nb_info_res [nbshapes result] +regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info_res full r2 + +puts "" +puts [format "before Shapes = %s after Shapes = %s" $r1 $r2] +puts "" + +if { $r1 == $r2 } { + puts "OCC535 OK" +} else { + puts "OCC535 Faulty" +} + +set square 3554.31 +set 2dviewer 0 diff --git a/tests/bugs/modalg/bug548 b/tests/bugs/modalg/bug548 new file mode 100755 index 0000000000..963ee8ff05 --- /dev/null +++ b/tests/bugs/modalg/bug548 @@ -0,0 +1,31 @@ +puts "========" +puts "OCC548" +puts "OCC628" +puts "========" +puts "" +################################################################## +# Function BRepTool::IsClosed returns Standard_True although argument is open shell +# Incorrect work of BRepCheck +################################################################## + +pload XDE +catch { source $env(CSF_DrawPluginQADefaults)/QARebuildCommands } + +restore [locate_data_file CTO908_topo103-t.brep] a + +decho off + +checkshape a +checkshape a b + +decho on + +fixshape result a 0.001 + +set che [checkshape result c] +if { [regexp {problems} $che] } { + puts "Faulty OCC628" +} + +set square 119630 +set 2dviewer 2 diff --git a/tests/bugs/modalg/bug571_1 b/tests/bugs/modalg/bug571_1 index f53d376ec3..ad320cbd6e 100755 --- a/tests/bugs/modalg/bug571_1 +++ b/tests/bugs/modalg/bug571_1 @@ -9,7 +9,7 @@ puts "" ########################## restore [locate_data_file OCC571.brep] a -puts [checkshape a] +checkshape a explode a if [catch {fillet result a_1 1.2 a_2 } catch_result] { diff --git a/tests/bugs/modalg/bug571_2 b/tests/bugs/modalg/bug571_2 index 6d4add64e2..99c38bbb00 100755 --- a/tests/bugs/modalg/bug571_2 +++ b/tests/bugs/modalg/bug571_2 @@ -9,7 +9,7 @@ puts "" ########################## restore [locate_data_file OCC571.brep] a -puts [checkshape a] +checkshape a explode a if [catch {fillet result a_1 0.03 a_2 } catch_result] { diff --git a/tests/bugs/modalg/bug57_1 b/tests/bugs/modalg/bug57_1 index d72399432a..aa41a12a20 100755 --- a/tests/bugs/modalg/bug57_1 +++ b/tests/bugs/modalg/bug57_1 @@ -7,8 +7,8 @@ puts "" restore [locate_data_file BUC60974.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] +checkshape a_1 +checkshape a_2 bfuse result a_1 a_2 set square 191388 diff --git a/tests/bugs/modalg/bug57_2 b/tests/bugs/modalg/bug57_2 index d27b667c69..0774f01fae 100755 --- a/tests/bugs/modalg/bug57_2 +++ b/tests/bugs/modalg/bug57_2 @@ -7,8 +7,8 @@ puts "" restore [locate_data_file BUC60974.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] +checkshape a_1 +checkshape a_2 bfuse result a_2 a_1 set square 191388 diff --git a/tests/bugs/modalg/bug59_1 b/tests/bugs/modalg/bug59_1 index 25acfda5d3..76a81bb97b 100755 --- a/tests/bugs/modalg/bug59_1 +++ b/tests/bugs/modalg/bug59_1 @@ -7,8 +7,8 @@ puts "" restore [locate_data_file BUC60975.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] +checkshape a_1 +checkshape a_2 bfuse result a_1 a_2 set square 241843 diff --git a/tests/bugs/modalg/bug59_2 b/tests/bugs/modalg/bug59_2 index c926bf7eb0..ea17b72811 100755 --- a/tests/bugs/modalg/bug59_2 +++ b/tests/bugs/modalg/bug59_2 @@ -7,8 +7,8 @@ puts "" restore [locate_data_file BUC60975.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] +checkshape a_1 +checkshape a_2 bfuse result a_2 a_1 set square 241843 diff --git a/tests/bugs/modalg/bug600 b/tests/bugs/modalg/bug600 index 0444f1f00f..4c1f33453b 100755 --- a/tests/bugs/modalg/bug600 +++ b/tests/bugs/modalg/bug600 @@ -8,9 +8,9 @@ puts "========================" ############################################################ cpulimit 5000 restore [locate_data_file OCC600_1.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file OCC600_2.brep] b -puts [checkshape b] +checkshape b bop b a bopcommon result diff --git a/tests/bugs/modalg/bug602 b/tests/bugs/modalg/bug602 index a1666fb1f6..0245268c17 100755 --- a/tests/bugs/modalg/bug602 +++ b/tests/bugs/modalg/bug602 @@ -10,7 +10,7 @@ puts "" ########################################### restore [locate_data_file OCC602.brep] a -puts [checkshape a] +checkshape a explode a e diff --git a/tests/bugs/modalg/bug605 b/tests/bugs/modalg/bug605 index 03af86bbdd..d6aa6f1934 100755 --- a/tests/bugs/modalg/bug605 +++ b/tests/bugs/modalg/bug605 @@ -8,9 +8,9 @@ puts "" ############################## restore [locate_data_file OCC605a.brep] w1 -puts [checkshape w1] +checkshape w1 restore [locate_data_file OCC605b.brep] w2 -puts [checkshape w2] +checkshape w2 if { [catch {pipe result w2 w1 } catch_result] } { puts "Faulty OCC605: function PIPE works with exception." diff --git a/tests/bugs/modalg/bug615 b/tests/bugs/modalg/bug615 index 62099e0fd5..2229d67268 100755 --- a/tests/bugs/modalg/bug615 +++ b/tests/bugs/modalg/bug615 @@ -9,7 +9,7 @@ puts "" ############################# restore [locate_data_file OCC615.brep] a -puts [checkshape a] +checkshape a explode a e if [catch {blend result a 9 a_15 } catch_result] { diff --git a/tests/bugs/modalg/bug616 b/tests/bugs/modalg/bug616 index f5bfc8861b..386833ecc1 100755 --- a/tests/bugs/modalg/bug616 +++ b/tests/bugs/modalg/bug616 @@ -8,13 +8,13 @@ puts "" ######################################## restore [locate_data_file OCC616.brep] a -puts [checkshape a] +checkshape a if { [catch {mkoffset result a 5 -2} catch_result] } { puts "Faulty OCC616: function MKOFFSET works with exception" } else { renamevar result_1 result - puts [checkshape result] + checkshape result puts "OCC616 OK: function MKOFFSET works OK" } diff --git a/tests/bugs/modalg/bug62 b/tests/bugs/modalg/bug62 index 4ae14f8f59..1f2d8d52ac 100755 --- a/tests/bugs/modalg/bug62 +++ b/tests/bugs/modalg/bug62 @@ -10,22 +10,22 @@ cpulimit 1400 restore [locate_data_file OCC62.brep] sh explode sh -puts [checkshape sh] +checkshape sh bfuse res1 sh_1 sh_3 -puts [checkshape res1] +checkshape res1 bfuse res2 res1 sh_2 -puts [checkshape res2] +checkshape res2 bfuse res3 res2 sh_6 -puts [checkshape res3] +checkshape res3 bfuse res4 res3 sh_4 -puts [checkshape res4] +checkshape res4 bfuse res5 res4 sh_5 -puts [checkshape res5] +checkshape res5 renamevar res5 result diff --git a/tests/bugs/modalg/bug620_1 b/tests/bugs/modalg/bug620_1 index e29df95fa1..cdf6464683 100755 --- a/tests/bugs/modalg/bug620_1 +++ b/tests/bugs/modalg/bug620_1 @@ -8,9 +8,9 @@ puts "" ############################ restore [locate_data_file OCC620a.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file OCC620b.brep] b -puts [checkshape b] +checkshape b bop a b diff --git a/tests/bugs/modalg/bug620_2 b/tests/bugs/modalg/bug620_2 index c6e6ad1cd1..94eb0c211b 100755 --- a/tests/bugs/modalg/bug620_2 +++ b/tests/bugs/modalg/bug620_2 @@ -8,9 +8,9 @@ puts "" ############################ restore [locate_data_file OCC620a.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file OCC620b.brep] b -puts [checkshape b] +checkshape b bop a b diff --git a/tests/bugs/modalg/bug625 b/tests/bugs/modalg/bug625 index 703c38da3b..49f765c456 100755 --- a/tests/bugs/modalg/bug625 +++ b/tests/bugs/modalg/bug625 @@ -9,7 +9,7 @@ puts "" pload QAcommands restore [locate_data_file OCC625.brep] a -puts [checkshape a] +checkshape a vinit tclean a @@ -17,7 +17,7 @@ explode a e blend res1 a 10 a_22 10 a_14 blend result res1 10 a_17 10 a_4 -puts [checkshape result] +checkshape result vinit vdisplay result diff --git a/tests/bugs/modalg/bug629 b/tests/bugs/modalg/bug629 index 90b1da5350..79ae742341 100755 --- a/tests/bugs/modalg/bug629 +++ b/tests/bugs/modalg/bug629 @@ -10,10 +10,10 @@ puts "" ########################################## restore [locate_data_file OCC629a.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file OCC629b.brep] b -puts [checkshape b] +checkshape b if [catch {pipe result a b } catch_result] { puts "Faulty OCC629: function PIPE works wrongly" diff --git a/tests/bugs/modalg/bug636 b/tests/bugs/modalg/bug636 index b1f49791a2..88f5cf23c3 100755 --- a/tests/bugs/modalg/bug636 +++ b/tests/bugs/modalg/bug636 @@ -8,13 +8,13 @@ puts "" ##################################### restore [locate_data_file OCC636a.brep] s -puts [checkshape s] +checkshape s restore [locate_data_file OCC636b.brep] s1 -puts [checkshape s1] +checkshape s1 restore [locate_data_file OCC636c.brep] s2 -puts [checkshape s2] +checkshape s2 mksweep s addsweep s1 diff --git a/tests/bugs/modalg/bug637_1 b/tests/bugs/modalg/bug637_1 index 4082fa104b..5e528f146b 100755 --- a/tests/bugs/modalg/bug637_1 +++ b/tests/bugs/modalg/bug637_1 @@ -9,13 +9,13 @@ puts "" ########################################## restore [locate_data_file OCC637a.brep] s -puts [checkshape s] +checkshape s restore [locate_data_file OCC636c.brep] s1 -puts [checkshape s1] +checkshape s1 restore [locate_data_file OCC637c.brep] s2 -puts [checkshape s2] +checkshape s2 mksweep s addsweep s1 diff --git a/tests/bugs/modalg/bug637_2 b/tests/bugs/modalg/bug637_2 index f1b3e33a6a..75c5fc6568 100755 --- a/tests/bugs/modalg/bug637_2 +++ b/tests/bugs/modalg/bug637_2 @@ -9,13 +9,13 @@ puts "" ########################################## restore [locate_data_file OCC637d.brep] s -puts [checkshape s] +checkshape s restore [locate_data_file OCC637c.brep] s1 -puts [checkshape s1] +checkshape s1 restore [locate_data_file OCC637f.brep] s2 -puts [checkshape s2] +checkshape s2 mksweep s addsweep s1 diff --git a/tests/bugs/modalg/bug67 b/tests/bugs/modalg/bug67 index 676c4a0d67..73a7ae195c 100755 --- a/tests/bugs/modalg/bug67 +++ b/tests/bugs/modalg/bug67 @@ -6,7 +6,7 @@ puts "================" puts "" restore [locate_data_file OCC67.brep] sh -puts [checkshape sh] +checkshape sh explode sh e diff --git a/tests/bugs/modalg/bug673 b/tests/bugs/modalg/bug673 index d0a23b1fa0..d5fd0580c6 100755 --- a/tests/bugs/modalg/bug673 +++ b/tests/bugs/modalg/bug673 @@ -10,10 +10,10 @@ puts "" ####################################################### restore [locate_data_file OCC673a.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file OCC673b.brep] b -puts [checkshape b] +checkshape b if [catch {spliteshape result a a b} catch_result] { puts "Faulty OCC673: function SPLITSHAPE works wrongly" diff --git a/tests/bugs/modalg/bug68_1 b/tests/bugs/modalg/bug68_1 index e78bbac6ed..c262ce645b 100755 --- a/tests/bugs/modalg/bug68_1 +++ b/tests/bugs/modalg/bug68_1 @@ -6,7 +6,7 @@ puts "================" puts "" restore [locate_data_file OCC68.brep] sh -puts [checkshape sh] +checkshape sh explode sh diff --git a/tests/bugs/modalg/bug68_2 b/tests/bugs/modalg/bug68_2 index 93d1728966..d65312a182 100755 --- a/tests/bugs/modalg/bug68_2 +++ b/tests/bugs/modalg/bug68_2 @@ -6,7 +6,7 @@ puts "================" puts "" restore [locate_data_file OCC68.brep] sh -puts [checkshape sh] +checkshape sh explode sh diff --git a/tests/bugs/modalg/bug693 b/tests/bugs/modalg/bug693 index fa9b714cbd..ec4a96a3c1 100755 --- a/tests/bugs/modalg/bug693 +++ b/tests/bugs/modalg/bug693 @@ -24,47 +24,47 @@ tcopy c1 cc1 tcopy c2 cc2 bcommon int1 cc1 cc2 ##########checkshape -top int1 -puts [checkshape -top int1] +checkshape -top int1 tcopy c1 cc1 tcopy c2 cc2 bcut cut1 cc1 cc2 -puts [checkshape -top cut1] +checkshape -top cut1 tcopy c1 cc1 tcopy c2 cc2 bcut cut2 cc2 cc1 ##########checkshape -top cut2 -puts [checkshape -top cut2] +checkshape -top cut2 compound int1 cut1 cut2 comp3 ##########checkshape -top comp3 -puts [checkshape -top comp3] +checkshape -top comp3 #donly comp3 tcopy comp3 ccomp3 tcopy h3 ch3 bcommon int2 ccomp3 ch3 ##########checkshape -top int2 -puts [checkshape -top int2] +checkshape -top int2 #donly int2 tcopy comp3 ccomp3 tcopy h3 ch3 bcut cut3 ccomp3 ch3 ##########checkshape -top cut3 -puts [checkshape -top cut3] +checkshape -top cut3 #donly cut3 tcopy comp3 ccomp3 tcopy h3 ch3 bcut cut4 ch3 ccomp3 ##########checkshape -top cut4 -puts [checkshape -top cut4] +checkshape -top cut4 compound int2 cut3 cut4 result ##########checkshape -top res -puts [checkshape -top result] +checkshape -top result ##########set che [checkshape -top res] ########## diff --git a/tests/bugs/modalg/bug693_1 b/tests/bugs/modalg/bug693_1 new file mode 100755 index 0000000000..51bacabb5d --- /dev/null +++ b/tests/bugs/modalg/bug693_1 @@ -0,0 +1,78 @@ +puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_" +puts "TODO OCC12345 ALL: Error : The square of result shape is" + +puts "================" +puts "OCC693" +puts "================" +puts "" +################################################### +## The boolean operations give incorrect result if one of shapes is compound +## consisting of several adjoint solids +#################################################### + +box h1 234 52 0 41 98 40 +box v1 241 136 20 31 31 15 +box h3 215 120 20 78 15 15 + +compound h1 c1 +compound v1 c2 + +tcopy c1 cc1 +tcopy c2 cc2 + +bop cc1 cc2 +bopcommon int1 + +checkshape -top int1 + +tcopy c1 cc1 +tcopy c2 cc2 + +bop cc1 cc2 +bopcut cut1 + +checkshape -top cut1 + +tcopy c1 cc1 +tcopy c2 cc2 + +bop cc2 cc1 +bopcut cut2 + +checkshape -top cut2 + +compound int1 cut1 cut2 comp3 + +checkshape -top comp3 + +tcopy comp3 ccomp3 +tcopy h3 ch3 + +bop ccomp3 ch3 +bopcommon int2 + +checkshape -top int2 + +tcopy comp3 ccomp3 +tcopy h3 ch3 + +bop ccomp3 ch3 +bopcut cut3 + +checkshape -top cut3 + +tcopy comp3 ccomp3 +tcopy h3 ch3 + +bop ch3 ccomp3 +bopcut cut4 + +checkshape -top cut4 + +compound int2 cut3 cut4 result + +checkshape -top result + +set square 33196 +set 3dviewer 1 + diff --git a/tests/bugs/modalg/bug697_1 b/tests/bugs/modalg/bug697_1 index 6014e4635b..e499447515 100755 --- a/tests/bugs/modalg/bug697_1 +++ b/tests/bugs/modalg/bug697_1 @@ -12,8 +12,8 @@ puts "" restore [locate_data_file OCC697_1.brep] b1 restore [locate_data_file OCC697_2.brep] b2 -puts [checkshape b1] -puts [checkshape b2] +checkshape b1 +checkshape b2 ############################################## if { [catch {bfuse result b1 b2} catch_result] } { ############################################## diff --git a/tests/bugs/modalg/bug697_2 b/tests/bugs/modalg/bug697_2 index 616e2e31b4..5c97f8eb92 100755 --- a/tests/bugs/modalg/bug697_2 +++ b/tests/bugs/modalg/bug697_2 @@ -16,8 +16,8 @@ puts "#" restore [locate_data_file OCC697_2.brep] b2 restore [locate_data_file OCC697_3.brep] b3 -puts [checkshape b2] -puts [checkshape b3] +checkshape b2 +checkshape b3 ############################################## if { [catch {bfuse result b2 b3} catch_result] } { ############################################## diff --git a/tests/bugs/modalg/bug698 b/tests/bugs/modalg/bug698 index 7c1e9d1bd2..cd9a6275dc 100755 --- a/tests/bugs/modalg/bug698 +++ b/tests/bugs/modalg/bug698 @@ -5,9 +5,9 @@ puts "======= OCC698 =======" ###################################### cpulimit 10000 restore [locate_data_file OCC698_1.brep] b4 -puts [checkshape b4] +checkshape b4 restore [locate_data_file OCC698_2.brep] b5 -puts [checkshape b5] +checkshape b5 bcut result b5 b4 diff --git a/tests/bugs/modalg/bug712_1 b/tests/bugs/modalg/bug712_1 index 30c82c52bd..87ed25a6e6 100755 --- a/tests/bugs/modalg/bug712_1 +++ b/tests/bugs/modalg/bug712_1 @@ -9,7 +9,7 @@ puts "" ######################################################### restore [locate_data_file OCC712.brep] a -puts [checkshape a] +checkshape a explode a f diff --git a/tests/bugs/modalg/bug714 b/tests/bugs/modalg/bug714 index dde4163ad8..41152a8658 100755 --- a/tests/bugs/modalg/bug714 +++ b/tests/bugs/modalg/bug714 @@ -8,7 +8,7 @@ puts "" #################################################### restore [locate_data_file OCC714.brep] a -puts [checkshape a] +checkshape a set nb_info1 [nbshapes a] regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info1 full ve1 diff --git a/tests/bugs/modalg/bug726_1 b/tests/bugs/modalg/bug726_1 index 6d1fa85a0a..74a941b321 100755 --- a/tests/bugs/modalg/bug726_1 +++ b/tests/bugs/modalg/bug726_1 @@ -12,8 +12,8 @@ puts "" restore [locate_data_file OCC726.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] +checkshape a_1 +checkshape a_2 bcommon result a_1 a_2 diff --git a/tests/bugs/modalg/bug726_2 b/tests/bugs/modalg/bug726_2 index 8381e68322..2104c3475b 100755 --- a/tests/bugs/modalg/bug726_2 +++ b/tests/bugs/modalg/bug726_2 @@ -12,8 +12,8 @@ puts "" restore [locate_data_file OCC726.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] +checkshape a_1 +checkshape a_2 bcut result a_1 a_2 diff --git a/tests/bugs/modalg/bug743 b/tests/bugs/modalg/bug743 index b5a01dd0f1..1742d89715 100755 --- a/tests/bugs/modalg/bug743 +++ b/tests/bugs/modalg/bug743 @@ -8,7 +8,7 @@ puts "" ####################################### restore [locate_data_file OCC743_corr2.brep] a -puts [checkshape a] +checkshape a if { [catch { mkoffset result a 1 -15 } status] } { puts "Faulty OCC743" @@ -26,7 +26,7 @@ if { [catch { mkoffset result a 1 -15 } status] } { set num [llength $ll] puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num] foreach {k} $ll { - puts [checkshape $k] + checkshape $k regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs if { $cs != 0 } { puts [format "Faulty : Result shape is UNclosed wire !!! " $k] diff --git a/tests/bugs/modalg/bug745_1 b/tests/bugs/modalg/bug745_1 index 339e27f42d..812b587770 100755 --- a/tests/bugs/modalg/bug745_1 +++ b/tests/bugs/modalg/bug745_1 @@ -9,7 +9,7 @@ puts "" ####################################################### restore [locate_data_file OCC745_1.brep] a -puts [checkshape a] +checkshape a if { [catch { mkoffset result a 1 -10 } status] } { puts "Faulty : an exception was caught" @@ -27,7 +27,7 @@ if { [catch { mkoffset result a 1 -10 } status] } { set num [llength $ll] puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num] foreach {k} $ll { - puts [checkshape $k] + checkshape $k regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs if { $cs != 0 } { puts [format "Faulty : Result shape is UNclosed wire !!! " $k] diff --git a/tests/bugs/modalg/bug745_11 b/tests/bugs/modalg/bug745_11 index ba30664906..143e2acb1f 100755 --- a/tests/bugs/modalg/bug745_11 +++ b/tests/bugs/modalg/bug745_11 @@ -35,7 +35,7 @@ if { [catch { mkoffset result w 10 -7 } status] } { set num [llength $ll] puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num] foreach {k} $ll { - puts [checkshape $k] + checkshape $k regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs if { $cs != 0 } { puts [format "Faulty : Result shape is UNclosed wire !!! " $k] diff --git a/tests/bugs/modalg/bug745_12 b/tests/bugs/modalg/bug745_12 index f87a6e1a9d..c8d52b2d75 100755 --- a/tests/bugs/modalg/bug745_12 +++ b/tests/bugs/modalg/bug745_12 @@ -12,7 +12,7 @@ puts "" ################################################## restore [locate_data_file OCC745_nb3.brep] w -puts [checkshape w] +checkshape w if { [catch { mkoffset result w 1 10 } status] } { puts "Faulty OCC745" @@ -30,7 +30,7 @@ if { [catch { mkoffset result w 1 10 } status] } { set num [llength $ll] puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num] foreach {k} $ll { - puts [checkshape $k] + checkshape $k regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs if { $cs != 0 } { puts [format "Faulty : Result shape is UNclosed wire !!! " $k] diff --git a/tests/bugs/modalg/bug745_13 b/tests/bugs/modalg/bug745_13 new file mode 100755 index 0000000000..50769b4131 --- /dev/null +++ b/tests/bugs/modalg/bug745_13 @@ -0,0 +1,25 @@ + +puts "========" +puts "OCC745" +puts "========" +puts "" +################################# +# Infinite loop during bisector loci calculation. +################################# + +restore [locate_data_file OCC745_nb5.brep] w +checkshape w +mkplane result w +topoload result +drawcont + +cpulimit 600 + +mat + +result + +puts "OCC745 OK" + +set square 5844.54 +set 2dviewer 1 diff --git a/tests/bugs/modalg/bug745_2 b/tests/bugs/modalg/bug745_2 index 4b9021a846..d8d60d5215 100755 --- a/tests/bugs/modalg/bug745_2 +++ b/tests/bugs/modalg/bug745_2 @@ -8,7 +8,7 @@ puts "" ################################################## restore [locate_data_file OCC745_2.brep] a -puts [checkshape a] +checkshape a mkplane pl a topoload pl drawcont diff --git a/tests/bugs/modalg/bug745_3 b/tests/bugs/modalg/bug745_3 new file mode 100755 index 0000000000..b153bec444 --- /dev/null +++ b/tests/bugs/modalg/bug745_3 @@ -0,0 +1,29 @@ + +puts "========" +puts "OCC745" +puts "========" +puts "" +########################### +## Incorrect MAT (map of bissectors) +########################### + +puts "#" +puts "Non stable test case on Linux. MKV. 04.02.2011" +puts " ( Gif )" +puts "#" + +restore [locate_data_file OCC745_ellipse.brep] w +checkshape w +mkplane result w +topoload result +drawcont + +smallview -2D- +2dfit + +mat +#result + +set square 8357.41 +set 2dviewer 0 + diff --git a/tests/bugs/modalg/bug745_4 b/tests/bugs/modalg/bug745_4 index a29a0d8e5e..a4b335ef56 100755 --- a/tests/bugs/modalg/bug745_4 +++ b/tests/bugs/modalg/bug745_4 @@ -13,7 +13,7 @@ puts "" ########################################### restore [locate_data_file OCC745_pocket1.brep] a -puts [checkshape a] +checkshape a if { [catch { mkoffset result a 1 -10 } status] } { puts "Faulty OCC745" @@ -32,7 +32,7 @@ if { [catch { mkoffset result a 1 -10 } status] } { set num [llength $ll] puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num] foreach {k} $ll { - puts [checkshape $k] + checkshape $k regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs if { $cs != 0 } { puts [format "Faulty : Result shape is UNclosed wire !!! " $k] diff --git a/tests/bugs/modalg/bug745_5 b/tests/bugs/modalg/bug745_5 new file mode 100755 index 0000000000..0365d3761f --- /dev/null +++ b/tests/bugs/modalg/bug745_5 @@ -0,0 +1,24 @@ + +puts "========" +puts "OCC745" +puts "========" +puts "" +############################ +# Not correct creation of bisector loci: +############################ + +restore [locate_data_file OCC745_pocket4.brep] w +checkshape w +plane p +mkface result p w +topoload result +drawcont + +smallview -2D- +2dfit + +mat +result + +set square 5844.21 +set 2dviewer 0 diff --git a/tests/bugs/modalg/bug745_6 b/tests/bugs/modalg/bug745_6 index e3dff58e6b..d07d2536b7 100755 --- a/tests/bugs/modalg/bug745_6 +++ b/tests/bugs/modalg/bug745_6 @@ -11,7 +11,7 @@ puts "" ################################ restore [locate_data_file BUC60878-wire3.brep] a -puts [checkshape a] +checkshape a if { [catch { mkoffset result a 1 -10 } status] } { puts "Faulty OCC745" @@ -29,7 +29,7 @@ if { [catch { mkoffset result a 1 -10 } status] } { set num [llength $ll] puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num] foreach {k} $ll { - puts [checkshape $k] + checkshape $k regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs if { $cs != 0 } { puts [format "Faulty : Result shape is UNclosed wire !!! " $k] diff --git a/tests/bugs/modalg/bug745_7 b/tests/bugs/modalg/bug745_7 index 4d909b8a99..ed125119db 100755 --- a/tests/bugs/modalg/bug745_7 +++ b/tests/bugs/modalg/bug745_7 @@ -10,7 +10,7 @@ puts "" ###################################################### source [locate_data_file OCC745_cont1.dat] -puts [checkshape pp] +checkshape pp if { [catch { mkoffset result pp 1 -10 } status] } { puts "Faulty OCC745" @@ -28,7 +28,7 @@ if { [catch { mkoffset result pp 1 -10 } status] } { set num [llength $ll] puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num] foreach {k} $ll { - puts [checkshape $k] + checkshape $k regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs if { $cs != 0 } { puts [format "Faulty : Result shape is UNclosed wire !!! " $k] diff --git a/tests/bugs/modalg/bug745_8 b/tests/bugs/modalg/bug745_8 index 3dd5080ade..8fa54a95a0 100755 --- a/tests/bugs/modalg/bug745_8 +++ b/tests/bugs/modalg/bug745_8 @@ -8,7 +8,7 @@ puts "" ################################################### restore [locate_data_file BUC60830-face2.brep] f -puts [checkshape f] +checkshape f if { [catch { mkoffset result f 45 -0.042225 } status] } { puts "Faulty OCC745" @@ -26,7 +26,7 @@ if { [catch { mkoffset result f 45 -0.042225 } status] } { set num [llength $ll] puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num] foreach {k} $ll { - puts [checkshape $k] + checkshape $k regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs if { $cs != 0 } { puts [format "Faulty : Result shape is UNclosed wire !!! " $k] diff --git a/tests/bugs/modalg/bug745_9 b/tests/bugs/modalg/bug745_9 index d56e2b8eb5..1ad8a6cabd 100755 --- a/tests/bugs/modalg/bug745_9 +++ b/tests/bugs/modalg/bug745_9 @@ -10,7 +10,7 @@ puts "" ##################################################### source [locate_data_file OCC745_cont2.dat] -puts [checkshape pq] +checkshape pq if { [catch { mkoffset result pq 1 -10 } status] } { puts "Faulty OCC745" @@ -28,7 +28,7 @@ if { [catch { mkoffset result pq 1 -10 } status] } { set num [llength $ll] puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num] foreach {k} $ll { - puts [checkshape $k] + checkshape $k regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs if { $cs != 0 } { puts [format "Faulty : Result shape is UNclosed wire !!! " $k] diff --git a/tests/bugs/modalg/bug748 b/tests/bugs/modalg/bug748 index f94d388cdd..053e0bf5c9 100755 --- a/tests/bugs/modalg/bug748 +++ b/tests/bugs/modalg/bug748 @@ -8,9 +8,9 @@ puts "" ################################## restore [locate_data_file OCC748_1.brep] s1 -puts [checkshape s1] +checkshape s1 restore [locate_data_file OCC748_2.brep] s2 -puts [checkshape s2] +checkshape s2 bcommon result s1 s2 diff --git a/tests/bugs/modalg/bug755_1 b/tests/bugs/modalg/bug755_1 index becea231e3..6866b0d977 100755 --- a/tests/bugs/modalg/bug755_1 +++ b/tests/bugs/modalg/bug755_1 @@ -10,9 +10,9 @@ puts "" #################################################################### restore [locate_data_file OCC755_1.brep] a1 -puts [checkshape a1] +checkshape a1 restore [locate_data_file OCC755_2.brep] a2 -puts [checkshape a2] +checkshape a2 bcut result a1 a2 diff --git a/tests/bugs/modalg/bug758 b/tests/bugs/modalg/bug758 index ef4099a84d..cfe478409e 100755 --- a/tests/bugs/modalg/bug758 +++ b/tests/bugs/modalg/bug758 @@ -10,13 +10,13 @@ puts "" restore [locate_data_file OCC758.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] -puts [checkshape a_3] +checkshape a_1 +checkshape a_2 +checkshape a_3 bcut res1 a_1 a_2 -puts [checkshape res1] +checkshape res1 bcut result res1 a_3 diff --git a/tests/bugs/modalg/bug763 b/tests/bugs/modalg/bug763 index 6eaaa72479..f1ee1169a0 100755 --- a/tests/bugs/modalg/bug763 +++ b/tests/bugs/modalg/bug763 @@ -8,9 +8,9 @@ puts "" #################################### restore [locate_data_file OCC763_c1.brep] c1 -puts [checkshape c1] +checkshape c1 restore [locate_data_file OCC763_c2.brep] c2 -puts [checkshape c2] +checkshape c2 bop c1 c2 bopfuse result diff --git a/tests/bugs/modalg/bug77 b/tests/bugs/modalg/bug77 index 9dd57983f2..ef994793ec 100755 --- a/tests/bugs/modalg/bug77 +++ b/tests/bugs/modalg/bug77 @@ -8,10 +8,10 @@ puts "" ###################################################### restore [locate_data_file buc60866a.rle] f -puts [checkshape f] +checkshape f restore [locate_data_file buc60866b.rle] w -puts [checkshape w] +checkshape w pipe result w f diff --git a/tests/bugs/modalg/bug770 b/tests/bugs/modalg/bug770 index edb86e467a..3d04ff31d1 100755 --- a/tests/bugs/modalg/bug770 +++ b/tests/bugs/modalg/bug770 @@ -12,13 +12,13 @@ puts "" restore [locate_data_file OCC770.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] -puts [checkshape a_3] +checkshape a_1 +checkshape a_2 +checkshape a_3 bfuse res1 a_1 a_2 -puts [checkshape res1] +checkshape res1 bfuse result res1 a_3 diff --git a/tests/bugs/modalg/bug771 b/tests/bugs/modalg/bug771 index 0e48e6f9b8..58f902941d 100755 --- a/tests/bugs/modalg/bug771 +++ b/tests/bugs/modalg/bug771 @@ -10,13 +10,13 @@ puts "" restore [locate_data_file OCC771.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] -puts [checkshape a_3] +checkshape a_1 +checkshape a_2 +checkshape a_3 bfuse res1 a_1 a_2 -puts [checkshape res1] +checkshape res1 bfuse result res1 a_3 diff --git a/tests/bugs/modalg/bug772 b/tests/bugs/modalg/bug772 index 5e7ea72718..3b3233171f 100755 --- a/tests/bugs/modalg/bug772 +++ b/tests/bugs/modalg/bug772 @@ -12,8 +12,8 @@ puts "" restore [locate_data_file OCC772.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] +checkshape a_1 +checkshape a_2 bcommon result a_1 a_2 diff --git a/tests/bugs/modalg/bug774_1 b/tests/bugs/modalg/bug774_1 index 600684ad6c..b8a4a1a21e 100755 --- a/tests/bugs/modalg/bug774_1 +++ b/tests/bugs/modalg/bug774_1 @@ -11,8 +11,8 @@ puts "" restore [locate_data_file OCC774.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] +checkshape a_1 +checkshape a_2 if { [catch { bcut result a_1 a_2 } status] } { puts "Faulty OCC774 (case 1)" diff --git a/tests/bugs/modalg/bug774_2 b/tests/bugs/modalg/bug774_2 index 44d9f229a1..8d902616ce 100755 --- a/tests/bugs/modalg/bug774_2 +++ b/tests/bugs/modalg/bug774_2 @@ -11,8 +11,8 @@ puts "" ## restore [locate_data_file OCC774.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] +checkshape a_1 +checkshape a_2 if { [catch { bcut result a_2 a_1 } status] } { puts "Faulty OCC774 (case 2)" diff --git a/tests/bugs/modalg/bug775 b/tests/bugs/modalg/bug775 index 83e11e5311..09239ef1c3 100755 --- a/tests/bugs/modalg/bug775 +++ b/tests/bugs/modalg/bug775 @@ -10,8 +10,8 @@ puts "" restore [locate_data_file OCC775.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] +checkshape a_1 +checkshape a_2 bfuse result a_1 a_2 diff --git a/tests/bugs/modalg/bug776_1 b/tests/bugs/modalg/bug776_1 index 557fc4388e..2478e60984 100755 --- a/tests/bugs/modalg/bug776_1 +++ b/tests/bugs/modalg/bug776_1 @@ -11,8 +11,8 @@ puts "" restore [locate_data_file OCC776.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] +checkshape a_1 +checkshape a_2 bcut result a_1 a_2 diff --git a/tests/bugs/modalg/bug776_2 b/tests/bugs/modalg/bug776_2 index 2f267bb154..cc8962d7a0 100755 --- a/tests/bugs/modalg/bug776_2 +++ b/tests/bugs/modalg/bug776_2 @@ -11,8 +11,8 @@ puts "" restore [locate_data_file OCC776.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] +checkshape a_1 +checkshape a_2 bcut result a_2 a_1 diff --git a/tests/bugs/modalg/bug778_1 b/tests/bugs/modalg/bug778_1 index 5462cd6d52..8dfba8f219 100755 --- a/tests/bugs/modalg/bug778_1 +++ b/tests/bugs/modalg/bug778_1 @@ -11,8 +11,8 @@ puts "" restore [locate_data_file OCC778.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] +checkshape a_1 +checkshape a_2 bcut result a_1 a_2 diff --git a/tests/bugs/modalg/bug778_2 b/tests/bugs/modalg/bug778_2 index ce42192daa..0fead207eb 100755 --- a/tests/bugs/modalg/bug778_2 +++ b/tests/bugs/modalg/bug778_2 @@ -11,8 +11,8 @@ puts "" restore [locate_data_file OCC778.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] +checkshape a_1 +checkshape a_2 bcut result a_2 a_1 diff --git a/tests/bugs/modalg/bug779 b/tests/bugs/modalg/bug779 index c53e3ca9c8..e6d938f954 100755 --- a/tests/bugs/modalg/bug779 +++ b/tests/bugs/modalg/bug779 @@ -8,13 +8,13 @@ puts "" ################################ restore [locate_data_file OCC779_s1.brep] s1 -puts [checkshape s1] +checkshape s1 restore [locate_data_file OCC779_s2.brep] s2 -puts [checkshape s2] +checkshape s2 ttranslate s1 0 0 -30 prism s1p s1 0 0 70 -puts [checkshape s1p] +checkshape s1p bcommon result s1p s2 diff --git a/tests/bugs/modalg/bug78 b/tests/bugs/modalg/bug78 index 865013a281..5b01cb84be 100755 --- a/tests/bugs/modalg/bug78 +++ b/tests/bugs/modalg/bug78 @@ -10,8 +10,8 @@ puts "" #datadir /disk4/QA/hotline/GRIDS/chl/data restore [locate_data_file BUC60875_wire.brep] w restore [locate_data_file BUC60875_profile.brep] p -puts [checkshape w] -puts [checkshape p] +checkshape w +checkshape p pipe result w p set square 10191.8 diff --git a/tests/bugs/modalg/bug780_1 b/tests/bugs/modalg/bug780_1 index 81dc7fdb40..41a967261a 100755 --- a/tests/bugs/modalg/bug780_1 +++ b/tests/bugs/modalg/bug780_1 @@ -11,8 +11,8 @@ puts "" restore [locate_data_file OCC780.brep] f explode f f -puts [checkshape f_1] -puts [checkshape f_2] +checkshape f_1 +checkshape f_2 bcommon result f_1 f_2 diff --git a/tests/bugs/modalg/bug780_2 b/tests/bugs/modalg/bug780_2 index 4b72b48bd7..6c90fe6669 100755 --- a/tests/bugs/modalg/bug780_2 +++ b/tests/bugs/modalg/bug780_2 @@ -11,8 +11,8 @@ puts "" restore [locate_data_file OCC780.brep] f explode f f -puts [checkshape f_1] -puts [checkshape f_2] +checkshape f_1 +checkshape f_2 bfuse result f_1 f_2 diff --git a/tests/bugs/modalg/bug80 b/tests/bugs/modalg/bug80 index 47b18898af..84e95b82d3 100755 --- a/tests/bugs/modalg/bug80 +++ b/tests/bugs/modalg/bug80 @@ -8,7 +8,7 @@ puts "" ########################################################## restore [locate_data_file BUC60877_lh.brep] sh -puts [checkshape sh] +checkshape sh plane pl 820 198 140 -1e-06 0 1 mkface f pl -1000 500 -300 100 diff --git a/tests/bugs/modalg/bug81 b/tests/bugs/modalg/bug81 index 63c61bd26a..31ccd3acf7 100755 --- a/tests/bugs/modalg/bug81 +++ b/tests/bugs/modalg/bug81 @@ -8,7 +8,7 @@ puts "" ############################### restore [locate_data_file BUC60907_px1.rle] sh -puts [checkshape sh] +checkshape sh plane f 60 0 0 1 0 0 mkface f f diff --git a/tests/bugs/modalg/bug817_1 b/tests/bugs/modalg/bug817_1 new file mode 100755 index 0000000000..2c1f12346d --- /dev/null +++ b/tests/bugs/modalg/bug817_1 @@ -0,0 +1,32 @@ +puts "TODO OCC12345 ALL: OCC817: Error" +puts "TODO OCC12345 ALL: Error : The square of result shape is" + +pload QAcommands + +puts "============" +puts "OCC817" +puts "============" +puts "" +############################# +## Bad results of BRepAlgoAPI_Common +############################# + +set InfoList [OCC817 result 10] + +set OriginalVolume 0 +regexp {Info: Original volume = ([-0-9.+eE]+)} $InfoList full OriginalVolume + +set AccumulatedMeshedVolume 0 +regexp {Info: Accumulated meshed volume = ([-0-9.+eE]+)} $InfoList full AccumulatedMeshedVolume + +set percent_max 0.1 +set percent [expr abs(${AccumulatedMeshedVolume} - ${OriginalVolume}) / (${OriginalVolume}) * 100.] + +if {${percent} > ${percent_max}} { + puts "OCC817: Error" +} else { + puts "OCC817: OK" +} + +set 2dviewer 0 +set square 0 diff --git a/tests/bugs/modalg/bug817_2 b/tests/bugs/modalg/bug817_2 new file mode 100755 index 0000000000..75a2c042c8 --- /dev/null +++ b/tests/bugs/modalg/bug817_2 @@ -0,0 +1,28 @@ +pload QAcommands + +puts "============" +puts "OCC817" +puts "============" +puts "" +############################# +## Bad results of BRepAlgoAPI_Common +############################# + +set InfoList [OCC817 result 15] + +set OriginalVolume 0 +regexp {Info: Original volume = ([-0-9.+eE]+)} $InfoList full OriginalVolume + +set AccumulatedMeshedVolume 0 +regexp {Info: Accumulated meshed volume = ([-0-9.+eE]+)} $InfoList full AccumulatedMeshedVolume + +set percent_max 0.1 +set percent [expr abs(${AccumulatedMeshedVolume} - ${OriginalVolume}) / (${OriginalVolume}) * 100.] + +if {${percent} > ${percent_max}} { + puts "OCC817: Error" +} else { + puts "OCC817: OK" +} +set 2dviewer 0 +set square 6000 diff --git a/tests/bugs/modalg/bug817_3 b/tests/bugs/modalg/bug817_3 new file mode 100755 index 0000000000..a97e252549 --- /dev/null +++ b/tests/bugs/modalg/bug817_3 @@ -0,0 +1,29 @@ +pload QAcommands + +puts "============" +puts "OCC817" +puts "============" +puts "" +############################# +## Bad results of BRepAlgoAPI_Common +############################# + +set InfoList [OCC817 result 30] + + +set OriginalVolume 0 +regexp {Info: Original volume = ([-0-9.+eE]+)} $InfoList full OriginalVolume + +set AccumulatedMeshedVolume 0 +regexp {Info: Accumulated meshed volume = ([-0-9.+eE]+)} $InfoList full AccumulatedMeshedVolume + +set percent_max 0.1 +set percent [expr abs(${AccumulatedMeshedVolume} - ${OriginalVolume}) / (${OriginalVolume}) * 100.] + +if {${percent} > ${percent_max}} { + puts "OCC817: Error" +} else { + puts "OCC817: OK" +} +set 2dviewer 0 +set square 6000 diff --git a/tests/bugs/modalg/bug82 b/tests/bugs/modalg/bug82 index 1bfe6464f0..ce7fe2f0f9 100755 --- a/tests/bugs/modalg/bug82 +++ b/tests/bugs/modalg/bug82 @@ -8,7 +8,7 @@ puts "" ############################### restore [locate_data_file BUC60907_px1.rle] sh -puts [checkshape sh] +checkshape sh plane f 0 14.8053 0 0 1 0 mkface f f diff --git a/tests/bugs/modalg/bug822_1 b/tests/bugs/modalg/bug822_1 index 1369da38f3..f35be9857a 100755 --- a/tests/bugs/modalg/bug822_1 +++ b/tests/bugs/modalg/bug822_1 @@ -7,17 +7,19 @@ puts "" ##################################### ## BRepMesh_IncrementalMesh fails on some faces ##################################### +## (old topology) +##################################### -if { [ catch { set info_result [OCC822_1 a1 a2 result] } ] } { - puts "Faulty : an exception was caught" +if {[ catch { set info_result [OCC822_1 a1 a2 result 0] } ] } { + puts "Faulty OCC822" } else { - if { [lsearch ${info_result} FAILED] > -1 } { - puts "Faulty : command was FAILED" + if { [regexp {FAILED} $info_result] } { + puts "Faulty OCC822" } set ExplodeList [explode result] if {[llength ${ExplodeList}] < 1} { - puts "Faulty : Resulting shape is empty COMPOUND" + puts "Faulty OCC822" } } diff --git a/tests/bugs/modalg/bug822_2 b/tests/bugs/modalg/bug822_2 index 51577211de..add7d038ed 100755 --- a/tests/bugs/modalg/bug822_2 +++ b/tests/bugs/modalg/bug822_2 @@ -7,19 +7,20 @@ puts "" ##################################### ## BRepMesh_IncrementalMesh fails on some faces ##################################### +## (old topology) +##################################### -if { [ catch { set info_result [OCC822_2 a1 a2 result] } ] } { - puts "Faulty : an exception was caught" +if { [ catch { set info_result [OCC822_2 a1 a2 result 0] } ] } { + puts "Faulty OCC822" } else { - if { [lsearch ${info_result} FAILED] > -1} { - puts "Faulty : commands was FAILED" + if { [regexp {FAILED} $info_result] } { + puts "Faulty OCC822" } set ExplodeList [explode result] if {[llength ${ExplodeList}] < 1} { - puts "Faulty : Resulting shape is empty COMPOUND" + puts "Faulty OCC822" } } - set square 61963.5 -set 2dviewer 0 +set 3dviewer 1 diff --git a/tests/bugs/modalg/bug823 b/tests/bugs/modalg/bug823 index e97833fe97..3cc1481bfe 100755 --- a/tests/bugs/modalg/bug823 +++ b/tests/bugs/modalg/bug823 @@ -7,20 +7,20 @@ puts "" ############################### ## BRepAlgoAPI_Fuse fails on two cylinders ############################### +## (old topology) +##################################### if { [ catch { set info_result [OCC823 a1 a2 result] } ] } { - puts "Faulty : an exception was caught" + puts "Faulty OCC823" } else { - - if { [lsearch ${info_result} FAILED] > -1} { - puts "Faulty : commands was FAILED" + if { [regexp {FAILED} $info_result] } { + puts "Faulty OCC823" } set ExplodeList [explode result] if {[llength ${ExplodeList}] < 1} { - puts "Faulty : Resulting shape is empty COMPOUND" + puts "Faulty OCC823 : Resulting shape is empty COMPOUND" } } - set square 23189.5 -set 2dviewer 0 +set 2dviewer 1 diff --git a/tests/bugs/modalg/bug823_1 b/tests/bugs/modalg/bug823_1 index be10051aa7..36655d3c1d 100755 --- a/tests/bugs/modalg/bug823_1 +++ b/tests/bugs/modalg/bug823_1 @@ -15,8 +15,8 @@ puts "" if { [ catch { set info_result [OCC823 a1 a2 a3] } ] } { puts "Faulty : exception was caught" } else { - puts [checkshape a1] - puts [checkshape a2] + checkshape a1 + checkshape a2 bfuse result a1 a2 set ExplodeList [explode result] diff --git a/tests/bugs/modalg/bug824 b/tests/bugs/modalg/bug824 index c49b28d4de..d24c36a964 100755 --- a/tests/bugs/modalg/bug824 +++ b/tests/bugs/modalg/bug824 @@ -7,19 +7,21 @@ puts "" #################################### ## BRepAlgoAPI_Fuse fails on cylinder and sphere #################################### +## (old topology) +##################################### -if { [ catch { set info_result [OCC824 a1 a2 result] } ] } { - puts "Faulty : an exception was caught" +if { [ catch { set info_result [OCC824 a1 a2 result 0] } ] } { + puts "Faulty OCC824" } else { - if { [lsearch ${result} FAILED] > -1} { - puts "Faulty : command was FAILED" + if { [regexp {FAILED} $info_result] } { + puts "Faulty OCC824" } set ExplodeList [explode result] if {[llength ${ExplodeList}] < 1} { - puts "Faulty : Resulting shape is empty COMPOUND" + puts "Faulty OCC824" } } set square 16336.3 -set 2dviewer 0 +set 2dviewer 1 diff --git a/tests/bugs/modalg/bug824_1 b/tests/bugs/modalg/bug824_1 index bbe54e7f46..ffc7e9acdd 100755 --- a/tests/bugs/modalg/bug824_1 +++ b/tests/bugs/modalg/bug824_1 @@ -15,8 +15,8 @@ puts "" if { [ catch { set info_result [OCC824 a1 a2 a3] } ] } { puts "Faulty : exception was catch" } else { - puts [checkshape a1] - puts [checkshape a2] + checkshape a1 + checkshape a2 bfuse result a1 a2 set ExplodeList [explode result] diff --git a/tests/bugs/modalg/bug825 b/tests/bugs/modalg/bug825 index bc45a425c6..6005e515fd 100755 --- a/tests/bugs/modalg/bug825 +++ b/tests/bugs/modalg/bug825 @@ -1,6 +1,5 @@ -puts "TODO OCC12345 ALL: Faulty : command was FAILED" -puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_" -puts "TODO OCC12345 ALL: Error : The square of result shape is" +puts "TODO OCC12345 ALL: Faulty OCC825" +puts "TODO OCC12345 ALL: Error : The command is not valid. The square is" pload QAcommands @@ -11,27 +10,28 @@ puts "" ###################################### ## BRepAlgoAPI_Cut fails on sphere and b-spline face ###################################### +## (old topology) +##################################### -if { [ catch { set info_result [OCC825 a1 a2 a3 result1 result2] } ] } { - puts "Faulty : an exception was caught" +if { [ catch { set info_result [OCC825 a1 a2 a3 res1 res2 0] } ] } { + puts "Faulty OCC825" } else { - if { [lsearch ${info_result} FAILED] > -1} { - puts "Faulty : command was FAILED" + if { [regexp {FAILED} $info_result] } { + puts "Faulty OCC825" } - puts [checkshape result1] - puts [checkshape result2] - - set ExplodeList [explode result1] + + set ExplodeList [explode res1] if {[llength ${ExplodeList}] < 1} { - puts "Faulty : Resulting shape is empty COMPOUND" + puts "Faulty OCC825" } - set ExplodeList [explode result2] + + set ExplodeList [explode res2] if {[llength ${ExplodeList}] < 1} { - puts "Faulty : Resulting shape is empty COMPOUND" + puts "Faulty OCC825" } - - renamevar result1 result + checkshape res1 + renamevar res2 result } set square 0 -set 2dviewer 0 +set 2dviewer 1 diff --git a/tests/bugs/modalg/bug825_1 b/tests/bugs/modalg/bug825_1 index acf250a6bd..85e294e339 100755 --- a/tests/bugs/modalg/bug825_1 +++ b/tests/bugs/modalg/bug825_1 @@ -18,8 +18,8 @@ puts "" if { [ catch { set info_result [OCC825 a1 a2 a3 a4 a5] } ] } { puts "Faulty : an exception was caught" } else { - puts [checkshape a1] - puts [checkshape a2] + checkshape a1 + checkshape a2 bcut result a2 a1 set ExplodeList [explode result] if {[llength ${ExplodeList}] < 1} { diff --git a/tests/bugs/modalg/bug825_2 b/tests/bugs/modalg/bug825_2 index cc425d1bb3..59f72fbd76 100755 --- a/tests/bugs/modalg/bug825_2 +++ b/tests/bugs/modalg/bug825_2 @@ -17,8 +17,8 @@ puts "" if { [ catch { set info_result [OCC825 a1 a2 a3 a4 a5] } ] } { puts "Faulty : an exception was caught" } else { - puts [checkshape a1] - puts [checkshape a3] + checkshape a1 + checkshape a3 bcut result a3 a1 diff --git a/tests/bugs/modalg/bug826 b/tests/bugs/modalg/bug826 index 4093fa36e4..f6349bfa9a 100755 --- a/tests/bugs/modalg/bug826 +++ b/tests/bugs/modalg/bug826 @@ -7,16 +7,19 @@ puts "" ################################### ## BRepAlgoAPI_Fuse fails on revolved and sphere ################################### +## (old topology) +##################################### if { [ catch { set info_result [OCC826 a1 a2 result] } ] } { - puts "Faulty : an exception was caught" + puts "Faulty OCC826" } else { - if { [lsearch ${info_result} FAILED] > -1} { - puts "Faulty : command was FAILED" + if { [regexp {FAILED} $info_result] } { + puts "Faulty OCC826" } + set ExplodeList [explode result] if {[llength ${ExplodeList}] < 1} { - puts "Faulty : Resulting shape is empty COMPOUND" + puts "Faulty OCC826" } } diff --git a/tests/bugs/modalg/bug826_1 b/tests/bugs/modalg/bug826_1 index d2bd7b0808..eef30204e5 100755 --- a/tests/bugs/modalg/bug826_1 +++ b/tests/bugs/modalg/bug826_1 @@ -15,8 +15,8 @@ puts "" if { [ catch { set result [OCC826 a1 a2 a3] } ] } { puts "Faulty : an exception was caught" } else { - puts [checkshape a1] - puts [checkshape a2] + checkshape a1 + checkshape a2 bfuse result a1 a2 set ExplodeList [explode result] diff --git a/tests/bugs/modalg/bug827 b/tests/bugs/modalg/bug827 index 1b779e6ff3..675aa6d77d 100755 --- a/tests/bugs/modalg/bug827 +++ b/tests/bugs/modalg/bug827 @@ -22,11 +22,11 @@ if { [ catch { set info_result [OCC827 a1 a2 a3 result1 result2] } ] } { if { [lsearch ${info_result} FAILED] > -1} { puts "Faulty OCC827 (case 1)" } - puts [checkshape a1] - puts [checkshape a2] - puts [checkshape a3] - puts [checkshape result1] - puts [checkshape result2] + checkshape a1 + checkshape a2 + checkshape a3 + checkshape result1 + checkshape result2 set ExplodeList [explode result1] if {[llength ${ExplodeList}] < 1} { diff --git a/tests/bugs/modalg/bug827_1 b/tests/bugs/modalg/bug827_1 index ebfdefc660..b0e9123317 100755 --- a/tests/bugs/modalg/bug827_1 +++ b/tests/bugs/modalg/bug827_1 @@ -1,18 +1,18 @@ +puts "TODO OCC12345 ALL: Error : The square of result shape is" +puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_" +puts "TODO OCC12345 ALL: Faulty OCC827" + pload QAcommands -puts "=======" +puts "========" puts "OCC827" -puts "=======" +puts "========" puts "" -#################################### +################################### ## BRepAlgoAPI_Fuse fails on cylinder and torus -#################################### -## -## Note: test for old topology -## -################################ - -set status 1 +################################### +## (old topology) +##################################### # # a1 - Cylinder @@ -22,29 +22,27 @@ set status 1 # res2 - Fuse(Torus2 & res1) # -if [ catch { set info_result [OCC827 a1 a2 a3 a4 a5] } ] { - puts "Faulty OCC827 (case 0)" +if { [ catch { set info_result [OCC827 a1 a2 a3 res1 res2 0] } ] } { + puts "Faulty OCC827" } else { - puts [checkshape a1] - puts [checkshape a2] - puts [checkshape a3] - bfuse result1 a1 a2 - puts [checkshape result1] - - set ExplodeList [explode result1] + if { [regexp {FAILED} $info_result] } { + puts "Faulty OCC827" + } + checkshape a1 + checkshape a2 + checkshape a3 + checkshape res1 + + set ExplodeList [explode res1] if {[llength ${ExplodeList}] < 1} { - puts "Faulty : Resulting shape is empty COMPOUND" + puts "Faulty OCC827" } - - bfuse result2 result1 a3 - puts [checkshape result2] - set ExplodeList [explode result2] + set ExplodeList [explode res2] if {[llength ${ExplodeList}] < 1} { - puts "Faulty : Resulting shape is empty COMPOUND" + puts "Faulty OCC827" } - renamevar result2 result + renamevar res2 result } - -set square 11847.7 -set 2dviewer 0 +set square 0 +set 2dviewer 1 diff --git a/tests/bugs/modalg/bug827_2 b/tests/bugs/modalg/bug827_2 index ce69873d05..e4ff7e600c 100755 --- a/tests/bugs/modalg/bug827_2 +++ b/tests/bugs/modalg/bug827_2 @@ -7,10 +7,7 @@ puts "" #################################### ## BRepAlgoAPI_Fuse fails on cylinder and torus #################################### -## -## Note: test for old topology -## -################################ + # # a1 - Cylinder @@ -21,27 +18,25 @@ puts "" # if { [ catch { set info_result [OCC827 a1 a2 a3 a4 a5] } ] } { - puts "Faulty an exception was caught" + puts "Faulty OCC827" } else { - puts [checkshape a1] - puts [checkshape a2] - puts [checkshape a3] - bfuse result1 a2 a1 - puts [checkshape result1] - set ExplodeList [explode result1] + checkshape a1 + checkshape a2 + checkshape a3 + bop a1 a2 + bopfuse res1 + checkshape res1 + set ExplodeList [explode res1] if {[llength ${ExplodeList}] < 1} { - puts "Faulty : Resulting shape is empty COMPOUND" + puts "Faulty OCC827 : Resulting shape is empty COMPOUND" } - bfuse result2 a3 result1 - puts [checkshape result2] - - set ExplodeList [explode result2] + bop res1 a3 + bopfuse result + set ExplodeList [explode result] if {[llength ${ExplodeList}] < 1} { - puts "Faulty : Resulting shape is empty COMPOUND" + puts "Faulty OCC827 : Resulting shape is empty COMPOUND" } - - renamevar result2 result } - set square 11847.7 set 2dviewer 0 + diff --git a/tests/bugs/modalg/bug827_3 b/tests/bugs/modalg/bug827_3 new file mode 100755 index 0000000000..4905ae2867 --- /dev/null +++ b/tests/bugs/modalg/bug827_3 @@ -0,0 +1,43 @@ +pload QAcommands + +puts "=======" +puts "OCC827" +puts "=======" +puts "" +#################################### +## BRepAlgoAPI_Fuse fails on cylinder and torus +#################################### + +# +# a1 - Cylinder +# a2 - Torus1 +# a3 - Torus1 +# res1 - Fuse(Torus1 & Cylinder) +# res2 - Fuse(Torus2 & res1) +# + +if { [ catch { set info_result [OCC827 a1 a2 a3 a4 a5] } ] } { + puts "Faulty OCC827" +} else { + checkshape a1 + checkshape a2 + checkshape a3 + bop a2 a1 + bopfuse res1 + checkshape res1 + set ExplodeList [explode res1] + if {[llength ${ExplodeList}] < 1} { + puts "Faulty OCC827 : Resulting shape is empty COMPOUND" + } + bop a3 res1 + bopfuse result + + set ExplodeList [explode result] + if {[llength ${ExplodeList}] < 1} { + puts "Faulty OCC827 : Resulting shape is empty COMPOUND" + } +} + +set square 11847.7 +set 2dviewer 1 + diff --git a/tests/bugs/modalg/bug828 b/tests/bugs/modalg/bug828 index 8f13851ab7..c13182cfdb 100755 --- a/tests/bugs/modalg/bug828 +++ b/tests/bugs/modalg/bug828 @@ -14,7 +14,7 @@ if { [ catch { set info_result [OCC828 a1] } ] } { if { [lsearch ${info_result} FAILED] > -1} { puts "Faulty : command was FAILED" } - puts [checkshape a1] + checkshape a1 explode a1 e blend result a1 10 a1_7 10 a1_6 diff --git a/tests/bugs/modalg/bug829_1 b/tests/bugs/modalg/bug829_1 index 213f77bbd5..606ae7f177 100755 --- a/tests/bugs/modalg/bug829_1 +++ b/tests/bugs/modalg/bug829_1 @@ -13,7 +13,7 @@ puts " This part - LIMITATION for existed algorithms" ################################### restore [locate_data_file OCC829_w1.brep] a -puts [checkshape a] +checkshape a explode a w if { [catch { mkoffset result a_1 1 5 } status] } { @@ -32,7 +32,7 @@ if { [catch { mkoffset result a_1 1 5 } status] } { set num [llength $ll] puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num] foreach {k} $ll { - puts [checkshape $k] + checkshape $k regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs if { $cs != 0 } { puts [format "Faulty : Result shape is UNclosed wire !!! " $k] diff --git a/tests/bugs/modalg/bug829_2 b/tests/bugs/modalg/bug829_2 index c17d8c909e..c26735518e 100755 --- a/tests/bugs/modalg/bug829_2 +++ b/tests/bugs/modalg/bug829_2 @@ -7,7 +7,7 @@ puts "" ## BRepOffsetAPI_MakeOffset fails on given wires ################################### restore [locate_data_file OCC829_w2.brep] a -puts [checkshape a] +checkshape a explode a w if { [catch { mkoffset result a_1 1 5 } status] } { @@ -26,7 +26,7 @@ if { [catch { mkoffset result a_1 1 5 } status] } { set num [llength $ll] puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num] foreach {k} $ll { - puts [checkshape $k] + checkshape $k regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs if { $cs != 0 } { puts [format "Faulty : Result shape is UNclosed wire !!! " $k] diff --git a/tests/bugs/modalg/bug83_1 b/tests/bugs/modalg/bug83_1 index 65e78f1e68..e063bdc58d 100755 --- a/tests/bugs/modalg/bug83_1 +++ b/tests/bugs/modalg/bug83_1 @@ -10,8 +10,8 @@ puts "" puts "1 case: perform section with plane" restore [locate_data_file BUC60912_sec_slow.brep] c explode c -puts [checkshape c_1] -puts [checkshape c_2] +checkshape c_1 +checkshape c_2 renamevar c_1 sh renamevar c_2 pr diff --git a/tests/bugs/modalg/bug83_2 b/tests/bugs/modalg/bug83_2 index b3e51d3614..e73545e7e2 100755 --- a/tests/bugs/modalg/bug83_2 +++ b/tests/bugs/modalg/bug83_2 @@ -10,8 +10,8 @@ puts "" puts "2 case: perform section with planar BSpline surface" restore [locate_data_file BUC60912_sec_slow.brep] c explode c -puts [checkshape c_1] -puts [checkshape c_2] +checkshape c_1 +checkshape c_2 renamevar c_1 sh renamevar c_2 pr diff --git a/tests/bugs/modalg/bug86 b/tests/bugs/modalg/bug86 index b41f13f452..c6e6c34767 100755 --- a/tests/bugs/modalg/bug86 +++ b/tests/bugs/modalg/bug86 @@ -6,9 +6,9 @@ puts "========================" puts "Restoring the wires :" restore [locate_data_file OCC86a.brep] w1 -puts [checkshape w1] +checkshape w1 restore [locate_data_file OCC86b.brep] w2 -puts [checkshape w2] +checkshape w2 puts "Do Thrusection by following command: thrusections res 0 0 w1 w2 " diff --git a/tests/bugs/modalg/bug87 b/tests/bugs/modalg/bug87 index 2e6ceed60e..5905aad316 100755 --- a/tests/bugs/modalg/bug87 +++ b/tests/bugs/modalg/bug87 @@ -8,9 +8,9 @@ puts "========================" puts "Restoring the wires :" restore [locate_data_file OCC86a.brep] w1 -puts [checkshape w1] +checkshape w1 restore [locate_data_file OCC86b.brep] w2 -puts [checkshape w2] +checkshape w2 set first1 [dump w1] set second1 [dump w2] diff --git a/tests/bugs/modalg/dxf906 b/tests/bugs/modalg/bug889 similarity index 99% rename from tests/bugs/modalg/dxf906 rename to tests/bugs/modalg/bug889 index 5e04861d64..5140c7eed5 100755 --- a/tests/bugs/modalg/dxf906 +++ b/tests/bugs/modalg/bug889 @@ -1,4 +1,3 @@ - puts "=======" puts "DXF906" puts "OCC889" diff --git a/tests/bugs/modalg/bug890 b/tests/bugs/modalg/bug890 index 5ef128ee70..27f9fdd443 100755 --- a/tests/bugs/modalg/bug890 +++ b/tests/bugs/modalg/bug890 @@ -11,8 +11,8 @@ puts "" restore [locate_data_file OCC890.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] +checkshape a_1 +checkshape a_2 if { [ catch { bfuse result a_1 a_2 } catch_result ] } { puts "Faulty OCC890 (case 3)" diff --git a/tests/bugs/modalg/bug910 b/tests/bugs/modalg/bug910 index 97f71ff58f..09965c8acd 100755 --- a/tests/bugs/modalg/bug910 +++ b/tests/bugs/modalg/bug910 @@ -12,9 +12,9 @@ catch { source $env(CSF_DrawPluginQADefaults)/QARebuildCommands } restore [locate_data_file OCC910.rle] a -puts [checkshape a] +checkshape a explode a w -puts [checkshape a_7] +checkshape a_7 set list1 [expwire a_7] regexp {TopoDS_Iterator\(EDGE\) donne ([-0-9.+eE]+) Edges} $list1 full TopoDS_Iterator1 diff --git a/tests/bugs/modalg/bug919 b/tests/bugs/modalg/bug919 index 86dcfdd4cc..dcca9030fd 100755 --- a/tests/bugs/modalg/bug919 +++ b/tests/bugs/modalg/bug919 @@ -16,8 +16,8 @@ explode a restore [locate_data_file OCC919-PROC.brep] a_1 # -puts [checkshape a_1] -puts [checkshape a_2] +checkshape a_1 +checkshape a_2 if { [ catch { bfuse result a_1 a_2} catch_result ] } { puts "Faulty OCC919 (case 1)" diff --git a/tests/bugs/modalg/bug951_1 b/tests/bugs/modalg/bug951_1 new file mode 100755 index 0000000000..ea45927a6d --- /dev/null +++ b/tests/bugs/modalg/bug951_1 @@ -0,0 +1,38 @@ +puts "=========" +puts " OCC951 " +puts "=========" +puts "" +################################################## +##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes +################################################## +## (old topology) +## (common) +## (section) +###################################################### + +restore [locate_data_file OCC951_1.brep] b +restore [locate_data_file OCC951_2.brep] a + +checkshape b +checkshape a + +bcommon result b a + +set nb_info [nbshapes result] +regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve +regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed +regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi +regexp {FACE +: +([-0-9.+eE]+)} $nb_info full fa +regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full sh +regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full so +regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full cm +regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full co +regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info full shl +if { $ve != 0 || $ed != 0 || $wi != 0 || $fa != 0 || $sh != 0 || $so != 0 || $cm != 0 || $co != 0 || $shl != 0 } { + puts " OCC951 : COMMON operation was made PROPERLY" +} else { + puts "Faulty OCC951 : result of COMMON operation is EMPTY compound" +} + +set square 560.908 +set 3dviewer 1 diff --git a/tests/bugs/modalg/bug951_2 b/tests/bugs/modalg/bug951_2 new file mode 100755 index 0000000000..fd39ccdf8d --- /dev/null +++ b/tests/bugs/modalg/bug951_2 @@ -0,0 +1,39 @@ +puts "=========" +puts " OCC951 " +puts "=========" +puts "" +################################################## +##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes +################################################## +## (new topology) +## (bopcommon) +## (bopsection) +###################################################### + +restore [locate_data_file OCC951_1.brep] b +restore [locate_data_file OCC951_2.brep] a + +checkshape b +checkshape a + +bop b a +bopcommon result + +set nb_info [nbshapes result] +regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve +regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed +regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi +regexp {FACE +: +([-0-9.+eE]+)} $nb_info full fa +regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full sh +regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full so +regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full cm +regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full co +regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info full shl +if { $ve != 0 || $ed != 0 || $wi != 0 || $fa != 0 || $sh != 0 || $so != 0 || $cm != 0 || $co != 0 || $shl != 0 } { + puts " OCC951 : COMMON operation was made PROPERLY" +} else { + puts "Faulty OCC951 : result of COMMON operation is EMPTY compound" +} + +set square 560.908 +set 3dviewer 1 diff --git a/tests/bugs/modalg/bug951_3 b/tests/bugs/modalg/bug951_3 new file mode 100755 index 0000000000..bf8f0a239d --- /dev/null +++ b/tests/bugs/modalg/bug951_3 @@ -0,0 +1,39 @@ +puts "=========" +puts " OCC951 " +puts "=========" +puts "" +################################################## +##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes +################################################## +## (old topology) +## (common) +## (section) +###################################################### + +restore [locate_data_file OCC951_1.brep] b +restore [locate_data_file OCC951_2.brep] a + +checkshape b +checkshape a + +bsection result b a + +set nb_info [nbshapes result] +regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve +regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed +regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi +regexp {FACE +: +([-0-9.+eE]+)} $nb_info full fa +regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full sh +regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full so +regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full cm +regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full co +regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info full shl +if { $ve != 0 || $ed != 0 || $wi != 0 || $fa != 0 || $sh != 0 || $so != 0 || $cm != 0 || $co != 0 || $shl != 0 } { + puts " OCC951 : COMMON operation was made PROPERLY" +} else { + puts "Faulty OCC951 : result of COMMON operation is EMPTY compound" +} + +set length 39.8616 +set 3dviewer 1 + diff --git a/tests/bugs/modalg/bug951_4 b/tests/bugs/modalg/bug951_4 new file mode 100755 index 0000000000..3dd6465216 --- /dev/null +++ b/tests/bugs/modalg/bug951_4 @@ -0,0 +1,39 @@ +puts "=========" +puts " OCC951 " +puts "=========" +puts "" +################################################## +##BRepAlgoAPI_Section and BRepAlgoAPI_Common fail on given shapes +################################################## +## (new topology) +## (bopcommon) +## (bopsection) +###################################################### + +restore [locate_data_file OCC951_1.brep] b +restore [locate_data_file OCC951_2.brep] a + +checkshape b +checkshape a + +bop b a +bopsection result + +set nb_info [nbshapes result] +regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve +regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed +regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi +regexp {FACE +: +([-0-9.+eE]+)} $nb_info full fa +regexp {SHELL +: +([-0-9.+eE]+)} $nb_info full sh +regexp {SOLID +: +([-0-9.+eE]+)} $nb_info full so +regexp {COMPSOLID +: +([-0-9.+eE]+)} $nb_info full cm +regexp {COMPOUND +: +([-0-9.+eE]+)} $nb_info full co +regexp {SHAPE +: +([-0-9.+eE]+)} $nb_info full shl +if { $ve != 0 || $ed != 0 || $wi != 0 || $fa != 0 || $sh != 0 || $so != 0 || $cm != 0 || $co != 0 || $shl != 0 } { + puts " OCC951 : COMMON operation was made PROPERLY" +} else { + puts "Faulty OCC951 : result of COMMON operation is EMPTY compound" +} + +set length 39.8616 +set 3dviewer 1 diff --git a/tests/bugs/modalg/fra62369 b/tests/bugs/modalg/fra62369 old mode 100644 new mode 100755 index af4de49606..00157154f2 --- a/tests/bugs/modalg/fra62369 +++ b/tests/bugs/modalg/fra62369 @@ -4,7 +4,7 @@ puts "FRA62369" puts "===========" restore [locate_data_file fra62369a.brep] a -puts [checkshape a] +checkshape a compound result diff --git a/tests/bugs/modalg/pro16983 b/tests/bugs/modalg/pro16983 old mode 100644 new mode 100755 index 41ca3bf347..3ba6a9239b --- a/tests/bugs/modalg/pro16983 +++ b/tests/bugs/modalg/pro16983 @@ -4,7 +4,7 @@ puts "PRO16983" puts "============" restore [locate_data_file pro16983a.brep] B -puts [checkshape B] +checkshape B plane p 0 0 0 1 0 0 vertex v1 0 90.16396 252.4591 vertex v2 0 252.459 -9.835989 diff --git a/tests/bugs/modalg/pro18892 b/tests/bugs/modalg/pro18892 index c556689116..3e91f5a1b3 100755 --- a/tests/bugs/modalg/pro18892 +++ b/tests/bugs/modalg/pro18892 @@ -10,7 +10,7 @@ puts "==========" # TOPOLOGY-M4-6A : 2 restore [locate_data_file pro18892.rle] a -puts [checkshape a] +checkshape a explode a bsection result a_1 a_2 -2d -a diff --git a/tests/bugs/modalg/pro19424 b/tests/bugs/modalg/pro19424 old mode 100644 new mode 100755 index d41052bf38..1a3d49176e --- a/tests/bugs/modalg/pro19424 +++ b/tests/bugs/modalg/pro19424 @@ -4,9 +4,9 @@ puts "PRO19424" puts "==========" restore [locate_data_file pro19424a.brep] b -puts [checkshape b] +checkshape b restore [locate_data_file pro19424b.brep] p -puts [checkshape p] +checkshape p if [catch {evolved result b p o } catch_result] { puts "Faulty PRO19424 : function EVOLVED works wrongly" diff --git a/tests/bugs/modalg/pro19626 b/tests/bugs/modalg/pro19626 old mode 100644 new mode 100755 index 8313dc6a26..b583d566d1 --- a/tests/bugs/modalg/pro19626 +++ b/tests/bugs/modalg/pro19626 @@ -4,9 +4,9 @@ puts "PRO19626" puts "============" restore [locate_data_file pro19626a.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file pro19626b.brep] b -puts [checkshape b] +checkshape b bsection result a b regexp { nb alone Vertices : +([-0-9.+eE]+)} [checksection result] full num diff --git a/tests/bugs/modalg/pro19653 b/tests/bugs/modalg/pro19653 old mode 100644 new mode 100755 index f0329c1a62..9bcd875300 --- a/tests/bugs/modalg/pro19653 +++ b/tests/bugs/modalg/pro19653 @@ -9,9 +9,9 @@ puts "It takes visual check for this BUG" puts "==================================" restore [locate_data_file pro19653a.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file pro19653b.brep] b -puts [checkshape b] +checkshape b bsection result a b explode result e diff --git a/tests/bugs/moddata/buc60609 b/tests/bugs/moddata/buc60609 new file mode 100755 index 0000000000..c601a7411f --- /dev/null +++ b/tests/bugs/moddata/buc60609 @@ -0,0 +1,26 @@ +puts "================" +puts "BUC60609" +puts "================" + +pload QAcommands + +set INF [BUC60609 [locate_data_file buc60609a.brep] a] +set ll [llength $INF] +set first [lindex $INF [expr $ll - 5]] +set second [lindex $INF [expr $ll - 1]] + +if {$first != "INSIDE" && $first != "inside"} { + puts "Faulty BUC60609 first: $first is not right result. It should be INSIDE" +} else { + puts "BUC60609 first OK: It is INSIDE" +} + +if {$second != "INSIDE"} { + puts "Faulty BUC60609 second: $second is not right result. It should be INSIDE" +} else { + puts "BUC60609 second OK: It is INSIDE" +} + +renamevar a result +set 2dviewer 0 + diff --git a/tests/bugs/moddata/buc60623_3 b/tests/bugs/moddata/buc60623_3 index 6232b24d71..6f847aa8c6 100755 --- a/tests/bugs/moddata/buc60623_3 +++ b/tests/bugs/moddata/buc60623_3 @@ -3,9 +3,9 @@ puts "BUC60623" puts "========================" restore [locate_data_file buc60623a.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file buc60623b.brep] b -puts [checkshape b] +checkshape b mksurface S1 a mksurface S2 b diff --git a/tests/bugs/moddata/buc60637 b/tests/bugs/moddata/buc60637 old mode 100644 new mode 100755 diff --git a/tests/bugs/moddata/buc60652_1 b/tests/bugs/moddata/buc60652_1 old mode 100644 new mode 100755 index b19c919967..08b6e68006 --- a/tests/bugs/moddata/buc60652_1 +++ b/tests/bugs/moddata/buc60652_1 @@ -7,7 +7,7 @@ puts "==========" pload QAcommands restore [locate_data_file buc60652a.brep] result -puts [checkshape result] +checkshape result BUC60652 result set check_square 1 diff --git a/tests/bugs/moddata/buc60652_2 b/tests/bugs/moddata/buc60652_2 old mode 100644 new mode 100755 index 7f3604245e..677c238637 --- a/tests/bugs/moddata/buc60652_2 +++ b/tests/bugs/moddata/buc60652_2 @@ -7,7 +7,7 @@ puts "==========" pload QAcommands restore [locate_data_file buc60652b.brep] result -puts [checkshape result] +checkshape result BUC60652 result set check_square 1 diff --git a/tests/bugs/moddata/buc60652_3 b/tests/bugs/moddata/buc60652_3 old mode 100644 new mode 100755 index 0591ce1bdb..150675f9e0 --- a/tests/bugs/moddata/buc60652_3 +++ b/tests/bugs/moddata/buc60652_3 @@ -7,7 +7,7 @@ puts "===========" pload QAcommands restore [locate_data_file buc60652c.brep] result -puts [checkshape result] +checkshape result BUC60652 result set check_square 1 diff --git a/tests/bugs/moddata/buc60652_4 b/tests/bugs/moddata/buc60652_4 old mode 100644 new mode 100755 index 79a20abe74..e03cc7a61d --- a/tests/bugs/moddata/buc60652_4 +++ b/tests/bugs/moddata/buc60652_4 @@ -7,7 +7,7 @@ puts "==========" pload QAcommands restore [locate_data_file shading_104.brep] result -puts [checkshape result] +checkshape result BUC60652 result set check_square 1 diff --git a/tests/bugs/moddata/buc60667 b/tests/bugs/moddata/buc60667 old mode 100644 new mode 100755 index 663c9b637d..1690c15927 --- a/tests/bugs/moddata/buc60667 +++ b/tests/bugs/moddata/buc60667 @@ -5,7 +5,7 @@ puts "===================" restore [locate_data_file buc60667a.brep] result fsameparameter result -puts [checkshape result] +checkshape result set 2dviewer 0 diff --git a/tests/bugs/moddata/buc60707 b/tests/bugs/moddata/buc60707 old mode 100644 new mode 100755 index 7a9f84dc5e..dfe66d1b45 --- a/tests/bugs/moddata/buc60707 +++ b/tests/bugs/moddata/buc60707 @@ -7,7 +7,7 @@ puts "" ## Fillets created in CasCade version 3 do not display as shaded surfaces. ################################################# restore [locate_data_file buc60707a.brep] result -puts [checkshape result] +checkshape result tclean result incmesh result .1 diff --git a/tests/bugs/moddata/buc60729 b/tests/bugs/moddata/buc60729 old mode 100644 new mode 100755 diff --git a/tests/bugs/moddata/buc60755 b/tests/bugs/moddata/buc60755 old mode 100644 new mode 100755 index 758a13f03a..283cebb9c6 --- a/tests/bugs/moddata/buc60755 +++ b/tests/bugs/moddata/buc60755 @@ -5,14 +5,14 @@ puts "BUC60755" puts "========================" restore [locate_data_file buc60755a.brep] a -puts [checkshape a] +checkshape a ######################################### # "tcopy" command of a valid shape give a no-valid shape. ######################################### tcopy a result -puts [checkshape result] +checkshape result set check_square 1 set square 623.832 diff --git a/tests/bugs/moddata/buc60769 b/tests/bugs/moddata/buc60769 old mode 100644 new mode 100755 index 161d8810ec..03e57bff6a --- a/tests/bugs/moddata/buc60769 +++ b/tests/bugs/moddata/buc60769 @@ -4,7 +4,7 @@ puts "BUC60769" puts "=============" restore [locate_data_file buc60769a.brep] result -puts [checkshape result] +checkshape result set 2dviewer 0 diff --git a/tests/bugs/moddata/buc60825 b/tests/bugs/moddata/buc60825 old mode 100644 new mode 100755 index 0f28d3c67a..5bcf9f023c --- a/tests/bugs/moddata/buc60825 +++ b/tests/bugs/moddata/buc60825 @@ -7,7 +7,7 @@ pload QAcommands line aLine 0 0 0 0 0 1 mkedge aEdge1 aLine restore [locate_data_file buc60825.brep] aEdge2 -puts [checkshape aEdge2] +checkshape aEdge2 distmini d aEdge1 aEdge2 regexp {NB RESULTS +: +([-0-9.+eE]+)} [BUC60825 aEdge1 aEdge2] full ext diff --git a/tests/bugs/moddata/buc60828 b/tests/bugs/moddata/buc60828 old mode 100644 new mode 100755 diff --git a/tests/bugs/moddata/buc60842 b/tests/bugs/moddata/buc60842 old mode 100644 new mode 100755 diff --git a/tests/bugs/moddata/buc60848 b/tests/bugs/moddata/buc60848 old mode 100644 new mode 100755 index d2e73080e6..da0499f401 --- a/tests/bugs/moddata/buc60848 +++ b/tests/bugs/moddata/buc60848 @@ -7,7 +7,7 @@ puts "" pload QAcommands restore [locate_data_file BUC60848.brep] a -puts [checkshape a] +checkshape a tcopy a res diff --git a/tests/bugs/moddata/buc60852 b/tests/bugs/moddata/buc60852 old mode 100644 new mode 100755 diff --git a/tests/bugs/moddata/buc60854 b/tests/bugs/moddata/buc60854 old mode 100644 new mode 100755 diff --git a/tests/bugs/moddata/buc60868 b/tests/bugs/moddata/buc60868 old mode 100644 new mode 100755 index 9e568889f1..ca71b33fe0 --- a/tests/bugs/moddata/buc60868 +++ b/tests/bugs/moddata/buc60868 @@ -7,10 +7,10 @@ puts "" pload QAcommands restore [locate_data_file buc60868.brep] sh -puts [checkshape sh] +checkshape sh BUC60868 result sh -puts [checkshape result] +checkshape result set len [llength [explode result w]] if { $len != 3 } { diff --git a/tests/bugs/moddata/buc60870 b/tests/bugs/moddata/buc60870 old mode 100644 new mode 100755 diff --git a/tests/bugs/moddata/buc60889 b/tests/bugs/moddata/buc60889 old mode 100644 new mode 100755 diff --git a/tests/bugs/moddata/buc60895 b/tests/bugs/moddata/buc60895 old mode 100644 new mode 100755 index 1860d0ab52..9eb62fcdcc --- a/tests/bugs/moddata/buc60895 +++ b/tests/bugs/moddata/buc60895 @@ -10,7 +10,7 @@ puts "" restore [locate_data_file BUC60895.brep] result fsameparameter result -puts [checkshape result] +checkshape result set check_square 1 set length 12.6012 diff --git a/tests/bugs/moddata/buc60897 b/tests/bugs/moddata/buc60897 old mode 100644 new mode 100755 diff --git a/tests/bugs/moddata/buc60911 b/tests/bugs/moddata/buc60911 old mode 100644 new mode 100755 diff --git a/tests/bugs/moddata/buc60924 b/tests/bugs/moddata/buc60924 old mode 100644 new mode 100755 diff --git a/tests/bugs/moddata/buc60955 b/tests/bugs/moddata/buc60955 old mode 100644 new mode 100755 index 022fd2e451..7910b14473 --- a/tests/bugs/moddata/buc60955 +++ b/tests/bugs/moddata/buc60955 @@ -5,7 +5,7 @@ puts "===========" puts "Restoring face from file" restore [locate_data_file buc60955.brep] result -puts [checkshape result] +checkshape result build3d result diff --git a/tests/bugs/moddata/buc60960 b/tests/bugs/moddata/buc60960 old mode 100644 new mode 100755 diff --git a/tests/bugs/moddata/buc60965 b/tests/bugs/moddata/buc60965 old mode 100644 new mode 100755 diff --git a/tests/bugs/moddata/buc60967 b/tests/bugs/moddata/buc60967 old mode 100644 new mode 100755 diff --git a/tests/bugs/moddata/buc60968 b/tests/bugs/moddata/buc60968 old mode 100644 new mode 100755 diff --git a/tests/bugs/moddata/buc61006 b/tests/bugs/moddata/buc61006 old mode 100644 new mode 100755 diff --git a/tests/bugs/moddata/bug104 b/tests/bugs/moddata/bug104 index d00746c46c..776bfa2132 100755 --- a/tests/bugs/moddata/bug104 +++ b/tests/bugs/moddata/bug104 @@ -15,11 +15,11 @@ puts "" cpulimit 3000 restore [locate_data_file OCC104-1.brep] sh1 -puts [checkshape sh1] +checkshape sh1 regexp {Mass +: +([-0-9.+eE]+)} [vprops result] full l1 restore [locate_data_file OCC104-2.brep] sh2 -puts [checkshape sh2] +checkshape sh2 regexp {Mass +: +([-0-9.+eE]+)} [vprops result] full l2 set diff [expr abs([expr $l2 - $l1])] diff --git a/tests/bugs/moddata/bug1048 b/tests/bugs/moddata/bug1048 new file mode 100755 index 0000000000..868086680d --- /dev/null +++ b/tests/bugs/moddata/bug1048 @@ -0,0 +1,23 @@ +puts "================" +puts "OCC1048" +puts "================" +puts "" + +pload QAcommands + +restore [locate_data_file OCC1048.brep] result + +set list [OCC1048 result] + +set NBTRIANGLES 0 +regexp {Info: +Number +of +triangles += +([-0-9.+eE]+)} $list full NBTRIANGLES + +if { ${NBTRIANGLES} > 0 } { + puts "OCC1048: OK" +} else { + puts "OCC1048: Error" +} + +set 2dviewer 0 + + diff --git a/tests/bugs/moddata/bug105 b/tests/bugs/moddata/bug105 index 00ebac9cfc..9a4e25b059 100755 --- a/tests/bugs/moddata/bug105 +++ b/tests/bugs/moddata/bug105 @@ -8,7 +8,7 @@ puts "" pload QAcommands restore [locate_data_file OCC105.brep] result -puts [checkshape result] +checkshape result if [catch { OCC105 result} ] { puts "Error : BUC61032" diff --git a/tests/bugs/moddata/bug107 b/tests/bugs/moddata/bug107 index bb6245e837..00b8f43a38 100755 --- a/tests/bugs/moddata/bug107 +++ b/tests/bugs/moddata/bug107 @@ -6,9 +6,9 @@ puts "================" puts "" restore [locate_data_file OCC107-1.brep] ee -puts [checkshape ee] +checkshape ee restore [locate_data_file OCC107-2.brep] ff -puts [checkshape ff] +checkshape ff distmini dd1 ee ff diff --git a/tests/bugs/moddata/bug119 b/tests/bugs/moddata/bug119 index d68bdfa824..21c60c84f7 100755 --- a/tests/bugs/moddata/bug119 +++ b/tests/bugs/moddata/bug119 @@ -17,14 +17,14 @@ if { ${mistake} == 1} { puts " 1) OCC119 OK: BLEND was NOT created and suitable except was given." } else { puts "1) OCC119 OK: function BLEND works without suitable except" - puts [checkshape result_1] + checkshape result_1 explode result_1 e if { [catch {blend result_2 result_1 50 result_1_20 50 result_1_22 50 result_1_10} catch_result] } { puts "2) Faulty OCC119: BLEND was NOT created" } else { puts "2) BLEND OCC199 OK: BLEND was created" - puts [checkshape result_2] + checkshape result_2 } set che [checkshape result_2 r] diff --git a/tests/bugs/moddata/bug12 b/tests/bugs/moddata/bug12 index 2cd6fee0b2..612f458c6f 100755 --- a/tests/bugs/moddata/bug12 +++ b/tests/bugs/moddata/bug12 @@ -5,7 +5,7 @@ puts "================" puts "" restore [locate_data_file OCC12.brep] f -puts [checkshape f] +checkshape f mksurface su f clpoles su diff --git a/tests/bugs/moddata/bug126 b/tests/bugs/moddata/bug126 index ed3df11a7d..5a66edc59d 100755 --- a/tests/bugs/moddata/bug126 +++ b/tests/bugs/moddata/bug126 @@ -5,10 +5,10 @@ puts "================" puts "" restore [locate_data_file OCC126-1.brep] sh1 -puts [checkshape sh1] +checkshape sh1 restore [locate_data_file OCC126-2.brep] sh2 -puts [checkshape sh2] +checkshape sh2 compound sh1 sh2 result diff --git a/tests/bugs/moddata/bug130 b/tests/bugs/moddata/bug130 index 1e044759a4..0fb7ed447b 100755 --- a/tests/bugs/moddata/bug130 +++ b/tests/bugs/moddata/bug130 @@ -8,7 +8,7 @@ puts "" ###################################################### restore [locate_data_file OCC130.brep] sh -puts [checkshape sh] +checkshape sh line l -120 -100 400 0 0 1 mksurface surf sh diff --git a/tests/bugs/moddata/bug134_1 b/tests/bugs/moddata/bug134_1 index 137a2de57c..b9761c8b83 100755 --- a/tests/bugs/moddata/bug134_1 +++ b/tests/bugs/moddata/bug134_1 @@ -9,10 +9,10 @@ puts "" #################################### restore [locate_data_file OCC134-1.brep] sh -puts [checkshape sh] +checkshape sh prism result sh 100 100 100 -puts [checkshape result] +checkshape result set check_square 1 set square 104057 diff --git a/tests/bugs/moddata/bug134_2 b/tests/bugs/moddata/bug134_2 index 1a126db7f1..815f9445e3 100755 --- a/tests/bugs/moddata/bug134_2 +++ b/tests/bugs/moddata/bug134_2 @@ -9,10 +9,10 @@ puts "" ########################################################### restore [locate_data_file OCC134-2.brep] sh -puts [checkshape sh] +checkshape sh prism result sh 100 100 100 -puts [checkshape result] +checkshape result set check_square 1 set square 271859 diff --git a/tests/bugs/moddata/bug135 b/tests/bugs/moddata/bug135 index e00a7e5c44..671a68a57c 100755 --- a/tests/bugs/moddata/bug135 +++ b/tests/bugs/moddata/bug135 @@ -5,10 +5,10 @@ puts "================" puts "" restore [locate_data_file OCC135.brep] sh -puts [checkshape sh] +checkshape sh sewing result 1 sh -puts [checkshape result] +checkshape result set check_square 1 set square 273837 diff --git a/tests/bugs/moddata/bug15 b/tests/bugs/moddata/bug15 index b439c7205b..044e6e6ac1 100755 --- a/tests/bugs/moddata/bug15 +++ b/tests/bugs/moddata/bug15 @@ -6,7 +6,7 @@ puts "" restore [locate_data_file OCC15.brep] result -puts [checkshape result] +checkshape result vinit tclean result diff --git a/tests/bugs/moddata/bug150_1 b/tests/bugs/moddata/bug150_1 index 331a9dd74f..53423ad422 100755 --- a/tests/bugs/moddata/bug150_1 +++ b/tests/bugs/moddata/bug150_1 @@ -25,11 +25,11 @@ puts "" restore [locate_data_file OCC150_compsolid_nofuse.brep] sh explode sh -puts [checkshape sh_1] -puts [checkshape sh_2] +checkshape sh_1 +checkshape sh_2 bfuse result sh_1 sh_2 -puts [checkshape result] +checkshape result set check_square 1 set square 700 diff --git a/tests/bugs/moddata/bug150_2 b/tests/bugs/moddata/bug150_2 index 93391ea823..b55d14a101 100755 --- a/tests/bugs/moddata/bug150_2 +++ b/tests/bugs/moddata/bug150_2 @@ -24,11 +24,11 @@ puts "" restore [locate_data_file OCC150_compsolid_nofuse.brep] sh explode sh -puts [checkshape sh_1] -puts [checkshape sh_2] +checkshape sh_1 +checkshape sh_2 bfuse result sh_2 sh_1 -puts [checkshape result] +checkshape result set check_square 1 set square 700 diff --git a/tests/bugs/moddata/bug151_1 b/tests/bugs/moddata/bug151_1 index 8569b20825..ba5ba13cef 100755 --- a/tests/bugs/moddata/bug151_1 +++ b/tests/bugs/moddata/bug151_1 @@ -8,11 +8,11 @@ puts "" restore [locate_data_file OCC3-1.brep] sh1 restore [locate_data_file OCC3-2.brep] sh2 -puts [checkshape sh1] -puts [checkshape sh2] +checkshape sh1 +checkshape sh2 bfuse result sh1 sh2 -puts [checkshape result] +checkshape result set check_square 1 set square 11400 diff --git a/tests/bugs/moddata/bug151_2 b/tests/bugs/moddata/bug151_2 index 438b9677dc..f57f1edd18 100755 --- a/tests/bugs/moddata/bug151_2 +++ b/tests/bugs/moddata/bug151_2 @@ -8,11 +8,11 @@ puts "" restore [locate_data_file OCC3-1.brep] sh1 restore [locate_data_file OCC3-2.brep] sh2 -puts [checkshape sh1] -puts [checkshape sh2] +checkshape sh1 +checkshape sh2 bfuse result sh2 sh1 -puts [checkshape result] +checkshape result set check_square 1 set square 11400 diff --git a/tests/bugs/moddata/bug152_1 b/tests/bugs/moddata/bug152_1 index c50654bf3d..d068783ada 100755 --- a/tests/bugs/moddata/bug152_1 +++ b/tests/bugs/moddata/bug152_1 @@ -16,11 +16,11 @@ puts "" restore [locate_data_file OCC152.brep] sh explode sh -puts [checkshape sh_1] -puts [checkshape sh_2] +checkshape sh_1 +checkshape sh_2 bcut result sh_1 sh_2 -puts [checkshape result] +checkshape result set check_square 1 set square 276424 diff --git a/tests/bugs/moddata/bug152_2 b/tests/bugs/moddata/bug152_2 index 17baa5e21f..e2af220b33 100755 --- a/tests/bugs/moddata/bug152_2 +++ b/tests/bugs/moddata/bug152_2 @@ -15,11 +15,11 @@ puts "" restore [locate_data_file OCC152.brep] sh explode sh -puts [checkshape sh_1] -puts [checkshape sh_2] +checkshape sh_1 +checkshape sh_2 bcut result sh_2 sh_1 -puts [checkshape result] +checkshape result set check_square 1 set square 34894.3 diff --git a/tests/bugs/moddata/bug160_1 b/tests/bugs/moddata/bug160_1 index 706a0322a2..9295085f1c 100755 --- a/tests/bugs/moddata/bug160_1 +++ b/tests/bugs/moddata/bug160_1 @@ -6,12 +6,12 @@ puts "(COMMON: A and B)" puts "========================" restore [locate_data_file buc60775a.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file buc60775b.brep] b -puts [checkshape b] +checkshape b bcommon result a b -puts [checkshape result] +checkshape result set nf [llength [explode result f]] if {$nf < 6} { diff --git a/tests/bugs/moddata/bug160_2 b/tests/bugs/moddata/bug160_2 index e6f2f34450..a8a8f2992e 100755 --- a/tests/bugs/moddata/bug160_2 +++ b/tests/bugs/moddata/bug160_2 @@ -6,12 +6,12 @@ puts "(COMMON: B and A)" puts "========================" restore [locate_data_file buc60775a.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file buc60775b.brep] b -puts [checkshape b] +checkshape b bcommon result b a -puts [checkshape result] +checkshape result set nf [llength [explode result f]] if {$nf < 6} { diff --git a/tests/bugs/moddata/bug160_3 b/tests/bugs/moddata/bug160_3 index 64c2731c00..7138331786 100755 --- a/tests/bugs/moddata/bug160_3 +++ b/tests/bugs/moddata/bug160_3 @@ -6,12 +6,12 @@ puts "(FUSE: A and B)" puts "========================" restore [locate_data_file buc60775a.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file buc60775b.brep] b -puts [checkshape b] +checkshape b bfuse result a b -puts [checkshape result] +checkshape result set nf [llength [explode result f]] diff --git a/tests/bugs/moddata/bug160_4 b/tests/bugs/moddata/bug160_4 index d3b6e0a538..8f0f12eba2 100755 --- a/tests/bugs/moddata/bug160_4 +++ b/tests/bugs/moddata/bug160_4 @@ -6,12 +6,12 @@ puts "(FUSE: B and A)" puts "========================" restore [locate_data_file buc60775a.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file buc60775b.brep] b -puts [checkshape b] +checkshape b bfuse result b a -puts [checkshape result] +checkshape result set nf [llength [explode result f]] if {$nf < 6} { diff --git a/tests/bugs/moddata/bug160_5 b/tests/bugs/moddata/bug160_5 index e99b49550a..6712ac4748 100755 --- a/tests/bugs/moddata/bug160_5 +++ b/tests/bugs/moddata/bug160_5 @@ -6,12 +6,12 @@ puts "(CUT: A and B)" puts "========================" restore [locate_data_file buc60775a.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file buc60775b.brep] b -puts [checkshape b] +checkshape b bcut result a b -puts [checkshape result] +checkshape result set nf [llength [explode result f]] if {$nf < 6} { diff --git a/tests/bugs/moddata/bug160_6 b/tests/bugs/moddata/bug160_6 index e59fff5581..1ee510f7e3 100755 --- a/tests/bugs/moddata/bug160_6 +++ b/tests/bugs/moddata/bug160_6 @@ -7,12 +7,12 @@ puts "(CUT: B and A)" puts "========================" restore [locate_data_file buc60775a.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file buc60775b.brep] b -puts [checkshape b] +checkshape b bcut result b a -puts [checkshape result] +checkshape result set nf [llength [explode result f]] if {$nf < 6} { diff --git a/tests/bugs/moddata/bug163 b/tests/bugs/moddata/bug163 index bde980a3e2..393a13b0d1 100755 --- a/tests/bugs/moddata/bug163 +++ b/tests/bugs/moddata/bug163 @@ -10,7 +10,7 @@ puts "" restore [locate_data_file OCC130.brep] res -puts [checkshape res] +checkshape res line l -120 -100 400 0 0 1 mksurface s res diff --git a/tests/bugs/moddata/bug164_1 b/tests/bugs/moddata/bug164_1 index 6da9b7305d..92f8e084c9 100755 --- a/tests/bugs/moddata/bug164_1 +++ b/tests/bugs/moddata/bug164_1 @@ -7,11 +7,11 @@ puts "" restore [locate_data_file OCC164-1.brep] sh1 restore [locate_data_file OCC164-2.brep] sh2 -puts [checkshape sh1] -puts [checkshape sh2] +checkshape sh1 +checkshape sh2 bfuse result sh1 sh2 -puts [checkshape result] +checkshape result set check_square 1 set square 344595 diff --git a/tests/bugs/moddata/bug164_2 b/tests/bugs/moddata/bug164_2 index 07d07fcf23..621fbef9dc 100755 --- a/tests/bugs/moddata/bug164_2 +++ b/tests/bugs/moddata/bug164_2 @@ -7,11 +7,11 @@ puts "" restore [locate_data_file OCC164-1.brep] sh1 restore [locate_data_file OCC164-2.brep] sh2 -puts [checkshape sh1] -puts [checkshape sh2] +checkshape sh1 +checkshape sh2 bfuse result sh2 sh1 -puts [checkshape result] +checkshape result set check_square 1 set square 344595 diff --git a/tests/bugs/moddata/bug165_1 b/tests/bugs/moddata/bug165_1 index 5d89b5084c..762d8a3de5 100755 --- a/tests/bugs/moddata/bug165_1 +++ b/tests/bugs/moddata/bug165_1 @@ -4,10 +4,10 @@ puts "Bug regression in BRepOffsetAPI_MakeOffset class (offsetting in OY directi puts "========" restore [locate_data_file offset_wire_019.brep] a -puts [checkshape a] +checkshape a mkplane f a -puts [checkshape f] +checkshape f set IsGood 1 if [catch {mkoffset res1 f 1 1 } result] { diff --git a/tests/bugs/moddata/bug165_2 b/tests/bugs/moddata/bug165_2 index eec1314f94..624eb3d75c 100755 --- a/tests/bugs/moddata/bug165_2 +++ b/tests/bugs/moddata/bug165_2 @@ -13,28 +13,28 @@ puts "Bug regression in BRepOffsetAPI_MakeOffset class (offsetting in OY directi puts "========" restore [locate_data_file offset_wire_019.brep] a -puts [checkshape a] +checkshape a mkplane f a -puts [checkshape f] +checkshape f set IsGood 1 if [catch {mkoffset res1 f 1 4.8 } result] { set IsGood 0 } else { puts "OCC165 OK (case 1): function MKOFFSET works properly" - puts [checkshape res1_1] + checkshape res1_1 mkplane pl1 res1_1 - puts [checkshape pl1] + checkshape pl1 } if [catch {mkoffset res2 f 1 -2.9 } result] { set IsGood 0 } else { puts "OCC165 OK (case 2): function MKOFFSET works properly" - puts [checkshape res2_1] + checkshape res2_1 mkplane pl2 res2_1 - puts [checkshape pl2] + checkshape pl2 } if {$IsGood == 1} { diff --git a/tests/bugs/moddata/bug165_3 b/tests/bugs/moddata/bug165_3 index 2762f7e1d7..32551f84c7 100755 --- a/tests/bugs/moddata/bug165_3 +++ b/tests/bugs/moddata/bug165_3 @@ -4,7 +4,7 @@ puts "OCC165" puts "========" restore [locate_data_file OCC165-2.brep] f -puts [checkshape f] +checkshape f set IsGood 1 if [catch {mkoffset res1 f 3 10 } result] { @@ -13,11 +13,11 @@ if [catch {mkoffset res1 f 3 10 } result] { } else { #puts "OCC165 OK (case 1): function MKOFFSET works properly" mkplane pl1_1 res1_1 - puts [checkshape pl1_1] + checkshape pl1_1 mkplane pl1_2 res1_2 - puts [checkshape pl1_2] + checkshape pl1_2 mkplane pl1_3 res1_3 - puts [checkshape pl1_3] + checkshape pl1_3 } if [catch {mkoffset res2 f 3 -10 } result] { @@ -26,11 +26,11 @@ if [catch {mkoffset res2 f 3 -10 } result] { } else { #puts "OCC165 OK (case 2): function MKOFFSET works properly" mkplane pl2_1 res2_1 - puts [checkshape pl2_1] + checkshape pl2_1 mkplane pl2_2 res2_2 - puts [checkshape pl2_2] + checkshape pl2_2 mkplane pl2_3 res2_3 - puts [checkshape pl2_3] + checkshape pl2_3 } if {$IsGood == 1} { diff --git a/tests/bugs/moddata/bug17 b/tests/bugs/moddata/bug17 index fbd1d972b3..85ae54b4df 100755 --- a/tests/bugs/moddata/bug17 +++ b/tests/bugs/moddata/bug17 @@ -11,7 +11,7 @@ puts " Solid_14 will be the face which is unvisible during displaying entire sol restore [locate_data_file OCC17.brep] sh -puts [checkshape sh] +checkshape sh explode sh f renamevar sh_14 result diff --git a/tests/bugs/moddata/bug175 b/tests/bugs/moddata/bug175 index 5b5ffa45a4..a7100b67a4 100755 --- a/tests/bugs/moddata/bug175 +++ b/tests/bugs/moddata/bug175 @@ -8,7 +8,7 @@ puts "" ########################################### restore [locate_data_file OCC175.brep] result -puts [checkshape result] +checkshape result regexp {SHAPE +: +([-0-9.+eE]+)} [nbshapes result] full col1 diff --git a/tests/bugs/moddata/bug183_1 b/tests/bugs/moddata/bug183_1 index c0d92d3c83..0e4dccbee9 100755 --- a/tests/bugs/moddata/bug183_1 +++ b/tests/bugs/moddata/bug183_1 @@ -6,13 +6,13 @@ puts "========================" puts "" restore [locate_data_file f1] b1 -puts [checkshape b1] +checkshape b1 restore [locate_data_file f4] b2 -puts [checkshape b2] +checkshape b2 bcommon result b1 b2 -puts [checkshape result] +checkshape result set check_square 1 set square 315.159 diff --git a/tests/bugs/moddata/bug183_2 b/tests/bugs/moddata/bug183_2 index 45c7cd9247..a4396aa7a8 100755 --- a/tests/bugs/moddata/bug183_2 +++ b/tests/bugs/moddata/bug183_2 @@ -6,13 +6,13 @@ puts "========================" puts "" restore [locate_data_file so1] b1 -puts [checkshape b1] +checkshape b1 restore [locate_data_file so4] b2 -puts [checkshape b2] +checkshape b2 bfuse result b1 b2 -puts [checkshape result] +checkshape result set check_square 1 set square 942.478 diff --git a/tests/bugs/moddata/bug183_3 b/tests/bugs/moddata/bug183_3 index 44d93cf4ea..e8b782dc88 100755 --- a/tests/bugs/moddata/bug183_3 +++ b/tests/bugs/moddata/bug183_3 @@ -6,13 +6,13 @@ puts "========================" puts "" restore [locate_data_file so1] b1 -puts [checkshape b1] +checkshape b1 restore [locate_data_file so4] b2 -puts [checkshape b2] +checkshape b2 bcut result b1 b2 -puts [checkshape result] +checkshape result set check_square 1 set square 863.938 diff --git a/tests/bugs/moddata/bug183_4 b/tests/bugs/moddata/bug183_4 index 8f2372ba40..62bf145ee0 100755 --- a/tests/bugs/moddata/bug183_4 +++ b/tests/bugs/moddata/bug183_4 @@ -6,13 +6,13 @@ puts "========================" puts "" restore [locate_data_file so1] b1 -puts [checkshape b1] +checkshape b1 restore [locate_data_file so2] b2 -puts [checkshape b2] +checkshape b2 bcommon result b1 b2 -puts [checkshape result] +checkshape result set check_square 1 set square 392.699 diff --git a/tests/bugs/moddata/bug183_5 b/tests/bugs/moddata/bug183_5 index 56bd2deeba..9e29053932 100755 --- a/tests/bugs/moddata/bug183_5 +++ b/tests/bugs/moddata/bug183_5 @@ -6,13 +6,13 @@ puts "========================" puts "" restore [locate_data_file so4] b1 -puts [checkshape b1] +checkshape b1 restore [locate_data_file so2] b2 -puts [checkshape b2] +checkshape b2 bcommon result b1 b2 -puts [checkshape result] +checkshape result set check_square 1 set square 198.863 diff --git a/tests/bugs/moddata/bug183_6 b/tests/bugs/moddata/bug183_6 index 730c644d0b..12709f7543 100755 --- a/tests/bugs/moddata/bug183_6 +++ b/tests/bugs/moddata/bug183_6 @@ -7,13 +7,13 @@ puts "========================" puts "" restore [locate_data_file CTO900_cts16184a.rle] a -puts [checkshape a] +checkshape a restore [locate_data_file cts16184b.brep] b -puts [checkshape b] +checkshape b bop a b bopfuse result a b -puts [checkshape -top result] +checkshape -top result set check_square 1 set square 0.0892544 diff --git a/tests/bugs/moddata/bug188 b/tests/bugs/moddata/bug188 index 12fe31698a..72f29ef6bc 100755 --- a/tests/bugs/moddata/bug188 +++ b/tests/bugs/moddata/bug188 @@ -7,11 +7,11 @@ puts "============" restore [locate_data_file BUC60929.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] +checkshape a_1 +checkshape a_2 bcommon result a_1 a_2 -puts [checkshape result] +checkshape result set check_square 1 set square 3739.26 diff --git a/tests/bugs/moddata/bug188_1 b/tests/bugs/moddata/bug188_1 index b23b36dd40..65a1400263 100755 --- a/tests/bugs/moddata/bug188_1 +++ b/tests/bugs/moddata/bug188_1 @@ -6,11 +6,11 @@ puts "" restore [locate_data_file BUC60929.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] +checkshape a_1 +checkshape a_2 bcut result a_1 a_2 -puts [checkshape result] +checkshape result set check_square 1 set square 669659 diff --git a/tests/bugs/moddata/bug20 b/tests/bugs/moddata/bug20 index 9c40c4e29f..2552e98f0c 100755 --- a/tests/bugs/moddata/bug20 +++ b/tests/bugs/moddata/bug20 @@ -11,7 +11,7 @@ puts "" pload QAcommands restore [locate_data_file OCC20.brep] result -puts [checkshape result] +checkshape result tclean result vinit diff --git a/tests/bugs/moddata/bug211_1 b/tests/bugs/moddata/bug211_1 index a3764c7b75..769bb1a30d 100755 --- a/tests/bugs/moddata/bug211_1 +++ b/tests/bugs/moddata/bug211_1 @@ -12,7 +12,7 @@ restore [locate_data_file OCC211.brep] a explode a e blend result a 10 a_24 -puts [checkshape result] +checkshape result set check_square 1 set square 1.34399e+06 diff --git a/tests/bugs/moddata/bug211_2 b/tests/bugs/moddata/bug211_2 index 124a01d798..c791e25aae 100755 --- a/tests/bugs/moddata/bug211_2 +++ b/tests/bugs/moddata/bug211_2 @@ -12,7 +12,7 @@ restore [locate_data_file OCC211.brep] a explode a e blend result a 10 a_4 -puts [checkshape result] +checkshape result set check_square 1 set square 1.34399e+06 diff --git a/tests/bugs/moddata/bug217 b/tests/bugs/moddata/bug217 index ce8532bb3b..05c39abb9c 100755 --- a/tests/bugs/moddata/bug217 +++ b/tests/bugs/moddata/bug217 @@ -11,7 +11,7 @@ box b -5 -5 -5 10 10 10 psphere s 6 bfuse result s b -puts [checkshape result] +checkshape result set check_square 1 set square 618.85 diff --git a/tests/bugs/moddata/bug227_1 b/tests/bugs/moddata/bug227_1 index 773a910002..64cede8e71 100755 --- a/tests/bugs/moddata/bug227_1 +++ b/tests/bugs/moddata/bug227_1 @@ -11,15 +11,15 @@ puts "========" restore [locate_data_file OCC227a.brep] a fsameparameter a updatetolerance a -puts [checkshape a] +checkshape a restore [locate_data_file OCC227b.brep] b fsameparameter b updatetolerance b -puts [checkshape b] +checkshape b bfuse result a b -puts [checkshape result] +checkshape result set check_square 1 set square 1583.92 diff --git a/tests/bugs/moddata/bug227_2 b/tests/bugs/moddata/bug227_2 index 6b3e273b77..bf387cc30f 100755 --- a/tests/bugs/moddata/bug227_2 +++ b/tests/bugs/moddata/bug227_2 @@ -11,15 +11,15 @@ puts "========" restore [locate_data_file OCC227a.brep] a fsameparameter a updatetolerance a -puts [checkshape a] +checkshape a restore [locate_data_file OCC227b.brep] b fsameparameter b updatetolerance b -puts [checkshape b] +checkshape b bfuse result b a -puts [checkshape result] +checkshape result set check_square 1 set square 1583.92 diff --git a/tests/bugs/moddata/bug228 b/tests/bugs/moddata/bug228 index 1510d872e0..9bd1ce1e87 100755 --- a/tests/bugs/moddata/bug228 +++ b/tests/bugs/moddata/bug228 @@ -11,8 +11,8 @@ cpulimit 4000 restore [locate_data_file OCC228.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] +checkshape a_1 +checkshape a_2 bcommon result a_1 a_2 diff --git a/tests/bugs/moddata/bug252_1 b/tests/bugs/moddata/bug252_1 index 49ff0d42da..0e2c5a2fc5 100755 --- a/tests/bugs/moddata/bug252_1 +++ b/tests/bugs/moddata/bug252_1 @@ -8,7 +8,7 @@ pload QAcommands restore [locate_data_file OCC252.brep] a -puts [checkshape a] +checkshape a explode a w diff --git a/tests/bugs/moddata/bug252_2 b/tests/bugs/moddata/bug252_2 index 126588963b..437d85f33c 100755 --- a/tests/bugs/moddata/bug252_2 +++ b/tests/bugs/moddata/bug252_2 @@ -7,7 +7,7 @@ puts "" pload QAcommands restore [locate_data_file OCC252.brep] a -puts [checkshape a] +checkshape a explode a w diff --git a/tests/bugs/moddata/bug252_3 b/tests/bugs/moddata/bug252_3 index 456c643633..4cee576453 100755 --- a/tests/bugs/moddata/bug252_3 +++ b/tests/bugs/moddata/bug252_3 @@ -7,7 +7,7 @@ puts "" pload QAcommands restore [locate_data_file OCC252.brep] a -puts [checkshape a] +checkshape a explode a w diff --git a/tests/bugs/moddata/bug254 b/tests/bugs/moddata/bug254 index f89994e01c..cd399167f2 100755 --- a/tests/bugs/moddata/bug254 +++ b/tests/bugs/moddata/bug254 @@ -5,13 +5,13 @@ puts "================" puts "" restore [locate_data_file OCC254-1.brep] shape1 -puts [checkshape shape1] +checkshape shape1 restore [locate_data_file OCC254-3.brep] shape3 -puts [checkshape shape3] +checkshape shape3 common result shape1 shape3 -puts [checkshape result] +checkshape result set check_square 1 set length 1231.07 diff --git a/tests/bugs/moddata/bug256 b/tests/bugs/moddata/bug256 index 02b9cc9ae5..e75b7f01e3 100755 --- a/tests/bugs/moddata/bug256 +++ b/tests/bugs/moddata/bug256 @@ -4,7 +4,7 @@ puts "OCC256" puts "========" restore [locate_data_file OCC256.brep] result -puts [checkshape result] +checkshape result tclean result vinit diff --git a/tests/bugs/moddata/bug257 b/tests/bugs/moddata/bug257 index 5dff1b7900..c94021f76f 100755 --- a/tests/bugs/moddata/bug257 +++ b/tests/bugs/moddata/bug257 @@ -8,7 +8,7 @@ puts "================" puts "" restore [locate_data_file OCC257.brep] result -puts [checkshape result] +checkshape result set bb [bounding result] diff --git a/tests/bugs/moddata/bug258_1 b/tests/bugs/moddata/bug258_1 index 6ad4ae6c27..5a5c898f2f 100755 --- a/tests/bugs/moddata/bug258_1 +++ b/tests/bugs/moddata/bug258_1 @@ -5,7 +5,7 @@ puts "(case 1)" puts "========================" restore [locate_data_file shading_143.brep] result -puts [checkshape result] +checkshape result tclean result isos result 0 diff --git a/tests/bugs/moddata/bug258_2 b/tests/bugs/moddata/bug258_2 index 62e90ca0ba..de68cd1703 100755 --- a/tests/bugs/moddata/bug258_2 +++ b/tests/bugs/moddata/bug258_2 @@ -5,7 +5,7 @@ puts "(case 2)" puts "========================" restore [locate_data_file shading_144.brep] result -puts [checkshape result] +checkshape result tclean result isos result 0 diff --git a/tests/bugs/moddata/bug259 b/tests/bugs/moddata/bug259 index c14cb66ce4..a5d00c6009 100755 --- a/tests/bugs/moddata/bug259 +++ b/tests/bugs/moddata/bug259 @@ -14,7 +14,7 @@ box b2 -r -r 0 2*r 2*r 2 trotate b2 0 0 0 0 0 1 135 bfuse result b2 b1 -puts [checkshape -top result] +checkshape -top result set check_square 1 set square 18.8496 diff --git a/tests/bugs/moddata/bug266 b/tests/bugs/moddata/bug266 index e0d37ad440..652cc5873d 100755 --- a/tests/bugs/moddata/bug266 +++ b/tests/bugs/moddata/bug266 @@ -5,7 +5,7 @@ puts "================" puts "" restore [locate_data_file OCC266.brep] a -puts [checkshape a] +checkshape a renamevar a edge explode edge e @@ -14,7 +14,7 @@ renamevar edge face explode face f chamf result face edge_10 face_3 A 1 45 edge_6 face_3 A 1 45 edge_11 face_3 A 1 45 edge_12 face_3 A 1 45 edge_13 face_3 A 1 45 edge_14 face_3 A 1 45 edge_8 face_3 A 1 45 edge_9 face_3 A 1 45 -puts [checkshape result] +checkshape result set check_square 1 set square 48913 diff --git a/tests/bugs/moddata/bug268 b/tests/bugs/moddata/bug268 index 55bf710a6c..3958a9b4d1 100755 --- a/tests/bugs/moddata/bug268 +++ b/tests/bugs/moddata/bug268 @@ -8,7 +8,7 @@ puts "" ########################################################### restore [locate_data_file OCC268.brep] result -puts [checkshape result] +checkshape result set check_square 1 set length 56.6039 diff --git a/tests/bugs/moddata/bug26_1 b/tests/bugs/moddata/bug26_1 index e4921b7319..6da88a2198 100755 --- a/tests/bugs/moddata/bug26_1 +++ b/tests/bugs/moddata/bug26_1 @@ -6,8 +6,8 @@ puts "" restore [locate_data_file OCC26.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] +checkshape a_1 +checkshape a_2 bfuse result a_1 a_2 diff --git a/tests/bugs/moddata/bug26_2 b/tests/bugs/moddata/bug26_2 index f828214ae8..8366ac0c29 100755 --- a/tests/bugs/moddata/bug26_2 +++ b/tests/bugs/moddata/bug26_2 @@ -6,8 +6,8 @@ puts "" restore [locate_data_file OCC26.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] +checkshape a_1 +checkshape a_2 bfuse result a_2 a_1 diff --git a/tests/bugs/moddata/bug276 b/tests/bugs/moddata/bug276 index bff81c5127..95be721857 100755 --- a/tests/bugs/moddata/bug276 +++ b/tests/bugs/moddata/bug276 @@ -11,7 +11,7 @@ restore [locate_data_file OCC276.brep] result dchrono h2 reset dchrono h2 start -puts [checkshape result] +checkshape result dchrono h2 stop set q2 [ dchrono h2 show ] diff --git a/tests/bugs/moddata/bug278_1 b/tests/bugs/moddata/bug278_1 index 353a8d96e8..2fc28225a4 100755 --- a/tests/bugs/moddata/bug278_1 +++ b/tests/bugs/moddata/bug278_1 @@ -14,7 +14,7 @@ puts "========" restore [locate_data_file OCC278a.brep] a mkplane result a -puts [checkshape result] +checkshape result set check_square 1 set square 2914.99 diff --git a/tests/bugs/moddata/bug278_2 b/tests/bugs/moddata/bug278_2 index 2f1c270174..089dabd28c 100755 --- a/tests/bugs/moddata/bug278_2 +++ b/tests/bugs/moddata/bug278_2 @@ -14,7 +14,7 @@ puts "========" restore [locate_data_file OCC278b.brep] a mkplane result a -puts [checkshape result] +checkshape result set check_square 1 set square 22740 diff --git a/tests/bugs/moddata/bug27_1 b/tests/bugs/moddata/bug27_1 index 6316ce4696..0d2e01ef37 100755 --- a/tests/bugs/moddata/bug27_1 +++ b/tests/bugs/moddata/bug27_1 @@ -9,7 +9,7 @@ checkshape a explode a e blend result a 1 a_5 1 a_6 1 a_7 1 a_8 -puts [checkshape result] +checkshape result set check_square 1 set square 155.846 diff --git a/tests/bugs/moddata/bug27_2 b/tests/bugs/moddata/bug27_2 index f85c06496b..9bb04b90fa 100755 --- a/tests/bugs/moddata/bug27_2 +++ b/tests/bugs/moddata/bug27_2 @@ -10,7 +10,7 @@ checkshape a explode a e explode a f chamf result a a_5 a_1 A 1 45 a_6 a_1 A 1 45 a_7 a_1 A 1 45 a_8 a_1 A 1 45 -puts [checkshape result] +checkshape result set check_square 1 set square 154.145 diff --git a/tests/bugs/moddata/bug28_1 b/tests/bugs/moddata/bug28_1 index 19e1fb8e9e..86bcf08627 100755 --- a/tests/bugs/moddata/bug28_1 +++ b/tests/bugs/moddata/bug28_1 @@ -9,11 +9,11 @@ puts "Bug is limitation on currently version of topology (07.06.2002)." cpulimit 1200 restore [locate_data_file OCC28.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] +checkshape a_1 +checkshape a_2 bfuse result a_1 a_2 -puts [checkshape result] +checkshape result set check_square 1 set square 483935 diff --git a/tests/bugs/moddata/bug28_2 b/tests/bugs/moddata/bug28_2 index c46714167e..487ce241d1 100755 --- a/tests/bugs/moddata/bug28_2 +++ b/tests/bugs/moddata/bug28_2 @@ -9,11 +9,11 @@ puts "Bug is limitation on currently version of topology (07.06.2002)." cpulimit 1200 restore [locate_data_file OCC28.brep] a explode a -puts [checkshape a_1] -puts [checkshape a_2] +checkshape a_1 +checkshape a_2 bfuse result a_2 a_1 -puts [checkshape result] +checkshape result set check_square 1 set square 483935 diff --git a/tests/bugs/moddata/bug31 b/tests/bugs/moddata/bug31 index 337a629683..14a9782c2d 100755 --- a/tests/bugs/moddata/bug31 +++ b/tests/bugs/moddata/bug31 @@ -6,28 +6,28 @@ puts "================" puts "" restore [locate_data_file OCC31.brep] sh -puts [checkshape sh] +checkshape sh explode sh f explode sh_2 e chamf res1 sh sh_2_1 sh_2 7 7 -puts [checkshape res1] +checkshape res1 explode res1 f explode res1_5 e chamf res2 res1 res1_5_4 res1_5 7 7 -puts [checkshape res2] +checkshape res2 explode res2 f explode res2_4 e chamf result res2 res2_4_1 res2_4 7 7 -puts [checkshape result] +checkshape result set check_square 1 set square 107634 diff --git a/tests/bugs/moddata/bug332 b/tests/bugs/moddata/bug332 index 73f07e5077..ec9a18d637 100755 --- a/tests/bugs/moddata/bug332 +++ b/tests/bugs/moddata/bug332 @@ -13,8 +13,8 @@ set major_radius 200 OCC332 ${wall_thickness} ${dia1} ${dia2} ${length} ${major_radius} -puts [checkshape wallSolid_] -puts [checkshape gasSolid_] +checkshape wallSolid_ +checkshape gasSolid_ vinit diff --git a/tests/bugs/moddata/bug354_1 b/tests/bugs/moddata/bug354_1 index 21953d32a0..009d4ef180 100755 --- a/tests/bugs/moddata/bug354_1 +++ b/tests/bugs/moddata/bug354_1 @@ -13,7 +13,7 @@ restore [locate_data_file OCC354a.brep] a explode a e blend result a 2 a_18 -puts [checkshape result] +checkshape result set check_square 1 set square 593.527 diff --git a/tests/bugs/moddata/bug354_2 b/tests/bugs/moddata/bug354_2 index aac75c3f40..bc7536c1b4 100755 --- a/tests/bugs/moddata/bug354_2 +++ b/tests/bugs/moddata/bug354_2 @@ -16,7 +16,7 @@ explode a_5 e donl a a_5_6 chamf result a a_5_6 a_5 A 2 45 -puts [checkshape result] +checkshape result set check_square 1 set square 589.268 diff --git a/tests/bugs/moddata/bug368 b/tests/bugs/moddata/bug368 index 6fdfa85be2..a3c733f480 100755 --- a/tests/bugs/moddata/bug368 +++ b/tests/bugs/moddata/bug368 @@ -9,7 +9,7 @@ puts "" ############################################## restore [locate_data_file OCC368.brep] result -puts [checkshape result] +checkshape result tclean result isos result 0 diff --git a/tests/bugs/moddata/bug372 b/tests/bugs/moddata/bug372 new file mode 100755 index 0000000000..de1d75e470 --- /dev/null +++ b/tests/bugs/moddata/bug372 @@ -0,0 +1,31 @@ +pload QAcommands + +puts "========================" +puts "OCC372" +puts "BUC61036" +puts "========================" +puts "" +############################################################### +##BRepClass3d_SolidClassifier classify point to solid as OUT, but the point is inside the solid. +############################################################### + +restore [locate_data_file OCC372.brep] b1 +checkshape b1 + +point p1 6311.4862583184 -2841.3092756034 16.461053497188 + +set result [OCC299 b1 p1] +set ll [llength ${result}] +if { ${ll} < 4 } then { + puts "OCC372: ERROR 1" +} else { + regexp {The point is (.*) shape} ${result} full status + if {[string compare ${status} "IN"] == 0} then { + puts "status = ${status}" + puts "OCC372: OK" + } else { + puts "status = ${status}" + puts "Faulty : OCC372" + } +} + diff --git a/tests/bugs/moddata/bug37_1 b/tests/bugs/moddata/bug37_1 index 5b15d169e7..142ed50f8e 100755 --- a/tests/bugs/moddata/bug37_1 +++ b/tests/bugs/moddata/bug37_1 @@ -6,11 +6,11 @@ puts "" restore [locate_data_file OCC37.brep] sh explode sh -puts [checkshape sh_1] -puts [checkshape sh_2] +checkshape sh_1 +checkshape sh_2 bfuse result sh_1 sh_2 -puts [checkshape result] +checkshape result set check_square 1 set square 665013 diff --git a/tests/bugs/moddata/bug37_2 b/tests/bugs/moddata/bug37_2 index 142ab851d3..4aaf933827 100755 --- a/tests/bugs/moddata/bug37_2 +++ b/tests/bugs/moddata/bug37_2 @@ -6,11 +6,11 @@ puts "" restore [locate_data_file OCC37.brep] sh explode sh -puts [checkshape sh_1] -puts [checkshape sh_2] +checkshape sh_1 +checkshape sh_2 bfuse result sh_2 sh_1 -puts [checkshape result] +checkshape result set check_square 1 set square 665013 diff --git a/tests/bugs/moddata/bug3_1 b/tests/bugs/moddata/bug3_1 index 2b31037732..e5507c9c74 100755 --- a/tests/bugs/moddata/bug3_1 +++ b/tests/bugs/moddata/bug3_1 @@ -6,11 +6,11 @@ puts "" restore [locate_data_file OCC3-1.brep] a restore [locate_data_file OCC3-2.brep] b -puts [checkshape a] -puts [checkshape b] +checkshape a +checkshape b bfuse result a b -puts [checkshape result] +checkshape result set check_square 1 set square 11400 diff --git a/tests/bugs/moddata/bug3_2 b/tests/bugs/moddata/bug3_2 index 633122201c..b13213f5aa 100755 --- a/tests/bugs/moddata/bug3_2 +++ b/tests/bugs/moddata/bug3_2 @@ -6,11 +6,11 @@ puts "" restore [locate_data_file OCC3-1.brep] a restore [locate_data_file OCC3-2.brep] b -puts [checkshape a] -puts [checkshape b] +checkshape a +checkshape b bfuse result b a -puts [checkshape result] +checkshape result set check_square 1 set square 11400 diff --git a/tests/bugs/moddata/bug4 b/tests/bugs/moddata/bug4 index f239611b16..c885ca0585 100755 --- a/tests/bugs/moddata/bug4 +++ b/tests/bugs/moddata/bug4 @@ -5,12 +5,12 @@ puts "================" puts "" restore [locate_data_file OCC4.brep] sh -puts [checkshape sh] +checkshape sh explode sh e fillet result sh 15 sh_14 -puts [checkshape result] +checkshape result set square 1 set 2dviewer 0 diff --git a/tests/bugs/moddata/bug408 b/tests/bugs/moddata/bug408 index 6338cce7e3..2fcb2d5c6e 100755 --- a/tests/bugs/moddata/bug408 +++ b/tests/bugs/moddata/bug408 @@ -8,7 +8,7 @@ nurbsconvert b1 b1 box b2 0 -0.5 0 1.5 0.5 0.5 bcommon result b1 b2 -puts [checkshape -top result] +checkshape -top result diff --git a/tests/bugs/moddata/bug42 b/tests/bugs/moddata/bug42 index 87bd21c7c9..e2cc3767fa 100755 --- a/tests/bugs/moddata/bug42 +++ b/tests/bugs/moddata/bug42 @@ -10,14 +10,14 @@ pload XDE # 1. retriesve shape restore [locate_data_file OCC42.brep] sh -puts [checkshape sh] +checkshape sh # 2. perform sewing set toler 80 sewing result $toler sh # 3. Verify result of sewing -puts [checkshape result] +checkshape result # Retrieve free wires from result shape catch { fbclose result $toler $toler } resOfCatch diff --git a/tests/bugs/moddata/bug432 b/tests/bugs/moddata/bug432 index 0ace09d7cb..c48cb0d588 100755 --- a/tests/bugs/moddata/bug432 +++ b/tests/bugs/moddata/bug432 @@ -7,6 +7,6 @@ puts "" ############################################ restore [locate_data_file OCC432.brep] result -puts [checkshape result r] +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/moddata/bug466 b/tests/bugs/moddata/bug466 index 8462630a84..054d0267e9 100755 --- a/tests/bugs/moddata/bug466 +++ b/tests/bugs/moddata/bug466 @@ -5,7 +5,7 @@ puts "========================" puts "" restore [locate_data_file OCC466.brep] res -puts [checkshape res] +checkshape res nurbsconvert result res diff --git a/tests/bugs/moddata/bug469 b/tests/bugs/moddata/bug469 index af0cdc254e..6e3063ec0e 100755 --- a/tests/bugs/moddata/bug469 +++ b/tests/bugs/moddata/bug469 @@ -24,7 +24,7 @@ checkshape a_1 checkshape a_2 bfuse result a_1 a_2 -puts [checkshape result] +checkshape result set check_square 1 set square 10 diff --git a/tests/bugs/moddata/bug486 b/tests/bugs/moddata/bug486 new file mode 100755 index 0000000000..573eb611e5 --- /dev/null +++ b/tests/bugs/moddata/bug486 @@ -0,0 +1,33 @@ +pload QAcommands + +puts "========" +puts "OCC486" +puts "========" +puts "" +############################# +## Extrema_ExtPS gives wrong solution. +############################# + +restore [locate_data_file OCC486.draw] s + +# Case 1. Verify whether surface is u-periodic and v-periodic +set result [isperiodic s] +puts $result +set uper "is u-periodic" +set vper "is v-periodic" +if {[regexp $uper $result] && [regexp $vper $result]} { + puts "OCC486 case 1 - Faulty" +} else { + puts "OCC486 case 1 - OK" +} + +# Case 2. Verify extremum distance between point and surface + +point p3d -420.1170080179139 926.8792206000001 229.5109675013802 +if { [ catch { OCC486 s -420.1170080179139 926.8792206000001 229.5109675013802 0 0.0000001 } ] } { + puts "OCC486 case 2 - Faulty" +} else { + puts "OCC486 case 2 - OK" +} + +set 2dviewer 1 diff --git a/tests/bugs/moddata/bug496 b/tests/bugs/moddata/bug496 index 921d6fea01..5968bcaca8 100755 --- a/tests/bugs/moddata/bug496 +++ b/tests/bugs/moddata/bug496 @@ -7,10 +7,10 @@ puts "" ############################## restore [locate_data_file OCC496a.brep] a_1 -puts [checkshape a_1] +checkshape a_1 restore [locate_data_file OCC496b.brep] a_2 -puts [checkshape a_2] +checkshape a_2 bfuse result a_1 a_2 diff --git a/tests/bugs/moddata/bug50 b/tests/bugs/moddata/bug50 index 6103db79c4..5b2e296d82 100755 --- a/tests/bugs/moddata/bug50 +++ b/tests/bugs/moddata/bug50 @@ -9,12 +9,12 @@ puts "" ################################################################### restore [locate_data_file OCC50.brep] a -puts [checkshape a] +checkshape a explode a e blend result a 1 a_17 1 a_5 1 a_1 1 a_2 1 a_16 1 a_20 1 a_3 1 a_11 1 a_10 1 a_4 -puts [checkshape result] +checkshape result set check_square 1 set square 7677.49 diff --git a/tests/bugs/moddata/bug505 b/tests/bugs/moddata/bug505 index 06bced5dd7..0ced41616f 100755 --- a/tests/bugs/moddata/bug505 +++ b/tests/bugs/moddata/bug505 @@ -8,10 +8,10 @@ puts "" ##################################### restore [locate_data_file OCC505a.brep] su1 -puts [checkshape su1] +checkshape su1 restore [locate_data_file OCC505b.brep] su2 -puts [checkshape su2] +checkshape su2 distmini d su1 su2 diff --git a/tests/bugs/moddata/bug513 b/tests/bugs/moddata/bug513 new file mode 100755 index 0000000000..237a686212 --- /dev/null +++ b/tests/bugs/moddata/bug513 @@ -0,0 +1,23 @@ +puts "========" +puts "OCC513" +puts "========" +puts "" + +###################################### +## Can not intersect plane and conical surfaces +## The ">intersect" command hangs up the computer. +###################################### + +# cpulimit 9000 + +restore [locate_data_file OCC513a.draw] sa23 +restore [locate_data_file OCC513b.draw] sb8 + +if { [catch {intersect result sa23 sb8} catch_result] } { + puts "Faulty OCC513: function INTERSECTION works wrongly" +} else { + puts "OCC513 OK: function INTERSECTION works properly" +} + +set 2dviewer 0 + diff --git a/tests/bugs/moddata/bug515 b/tests/bugs/moddata/bug515 new file mode 100755 index 0000000000..2120f1b4af --- /dev/null +++ b/tests/bugs/moddata/bug515 @@ -0,0 +1,27 @@ +puts "========" +puts "OCC515" +puts "========" +puts "" +################################ +## Wrong projection of the Line on the Cone +################################ + +restore [locate_data_file OCC515a.draw] cx +restore [locate_data_file OCC515b.draw] s + +if { [catch {project c2d cx s -t 0.0015} ] } { + puts "OCC515 FAULTY" +} else { + # create dump of resulting curve + set dump [dump c2d] + # read dump of old curve + set olddump [read [open [locate_data_file OCC515_DUMP]]] + # if the the dumps is equal this bug is still exist + if { $dump == $olddump } { + puts "OCC515 FAULTY" + } else { + puts "OCC515 WARNING: Dumps of old and new curve are different, probably bug is still exist" + } +} + + diff --git a/tests/bugs/moddata/bug525 b/tests/bugs/moddata/bug525 new file mode 100755 index 0000000000..57a6051651 --- /dev/null +++ b/tests/bugs/moddata/bug525 @@ -0,0 +1,23 @@ +pload QAcommands + +puts "========" +puts "OCC525" +puts "========" +puts "" +######################################### +## Bug in GeomPlate_BuildPlateSurface::ComputeSurfInit() +######################################### + +set mistake 0 + +decho off +if { [catch { OCC525 } ] } { + set mistake 1 +} +decho on + +if { $mistake == 1 } { + puts "Faulty : OCC525" +} + +set 2dviewer 1 diff --git a/tests/bugs/moddata/bug531 b/tests/bugs/moddata/bug531 new file mode 100755 index 0000000000..0d8567bf6b --- /dev/null +++ b/tests/bugs/moddata/bug531 @@ -0,0 +1,16 @@ + +puts "=======" +puts "OCC531" +puts "=======" +puts "" +########################################################## +## Can not intersect plane and cone.The ">intersect" command hangs up the computer +########################################################## + +restore [locate_data_file OCC531_1.draw] a +restore [locate_data_file OCC531_2.draw] b + +intersect result a b + +set 2dviewer 0 + diff --git a/tests/bugs/moddata/bug537 b/tests/bugs/moddata/bug537 new file mode 100755 index 0000000000..21df4bcc87 --- /dev/null +++ b/tests/bugs/moddata/bug537 @@ -0,0 +1,27 @@ +puts "TODO OCC12345 ALL: Error : OCC537" + +puts "=======" +puts "OCC537" +puts "=======" +puts "" +####################################################################### +##Application do something in intersection operation for long time and eat much memory (This may be the +## reason of BUS ERROR that happens in application). Intersection operation invokes for conical and plane +## surfaces. +####################################################################### + +restore [locate_data_file OCC537_CONE.draw] c +restore [locate_data_file OCC537_PLANE.draw] p + +intersect result c p + +set wt_is [whatis result] + +if { [regexp {WIRE} ${wt_is}] } { + puts " OCC537 OK" +} else { + puts "Error : OCC537" +} + +set 2dviewer 2 + diff --git a/tests/bugs/moddata/bug54 b/tests/bugs/moddata/bug54 index 9e72bb6134..b3c3bd9279 100755 --- a/tests/bugs/moddata/bug54 +++ b/tests/bugs/moddata/bug54 @@ -16,6 +16,6 @@ puts "" cpulimit 300 restore [locate_data_file OCC54.brep] result -puts [checkshape result] +checkshape result set 3dviewer 0 diff --git a/tests/bugs/moddata/bug541 b/tests/bugs/moddata/bug541 new file mode 100755 index 0000000000..b94710c869 --- /dev/null +++ b/tests/bugs/moddata/bug541 @@ -0,0 +1,20 @@ +puts "========================" +puts " OCC541 " +puts "========================" +puts "" +############################################ +## Extrema works wrong for line and circle laying on one plane. +############################################ + +restore [locate_data_file OCC541a.draw] c1x +restore [locate_data_file OCC541b.draw] c2x + +set result [extrema c1x c2x] +set err [llength $result] +if { $err < 1} { + puts "Faulty OCC541 (amount of solution): command extrema does NOT work properly" +} else { + puts "OCC541 OK (amount of solution): : command extrema works properly" +} + +set 2dviewer 0 diff --git a/tests/bugs/moddata/bug542 b/tests/bugs/moddata/bug542 new file mode 100755 index 0000000000..6e5fa1b901 --- /dev/null +++ b/tests/bugs/moddata/bug542 @@ -0,0 +1,28 @@ + +puts "========" +puts "OCC542" +puts "========" +puts "" +################################ +## Wrong projection of the circle on the sphere +################################ + +restore [locate_data_file OCC542_C3D.draw] c3d +restore [locate_data_file OCC542_S.draw] s + +if { [catch {project result c3d s } catch_result] } { + puts "OCC542 Faulty" +} else { + # create dump of resulting curve + set dump [dump result] + # read dump of old curve + set olddump [read [open [locate_data_file OCC542_DUMP]]] + # if the the dumps is equal this bug is still exist + if { $dump == $olddump } { + puts "OCC542 Faulty" + } else { + puts "OCC542 WARNING: Dumps of old and new curve are different, probably bug is still exist" + } +} + +set 2dviewer 0 diff --git a/tests/bugs/moddata/bug565 b/tests/bugs/moddata/bug565 new file mode 100755 index 0000000000..ae63aaddbf --- /dev/null +++ b/tests/bugs/moddata/bug565 @@ -0,0 +1,53 @@ +puts "========| OCC565 |========" +################################## +## Can not intersect two trimmed conical surfaces +################################## + +restore [locate_data_file OCC565a.draw] s1 +restore [locate_data_file OCC565b.draw] s2 + +puts "Preliminary check: intersection work with infinite cones:" +if { [catch {intersect inf s1 s2 } catch_result] } { + puts "Faulty OCC565: function intersection works wrongly with infinite cones" +} else { + set j 1 + set er [lindex [whatis inf] 5] + repeat 4 { + set err [lindex [whatis inf_$j] 5] + if { $err != "curve" && $er != "curve"} { + puts " Faulty OCC565: function intersection works wrongly with infinite cones" + break + } else { + puts [format "curve inf_%s : exist " $j] + } + incr j + } + puts "Function intersection works correctly with infinite cones. Then check OCC565:" +} + +trim s1x s1 0 2*pi 0 2.8 +trim s2x s2 0 2*pi 0 2.8 + +if { [catch {intersect result s1x s2x } catch_result] } { + puts "Faulty OCC565 exception: function intersection works wrongly with trimmed cones" +} else { + set nom 0 + set j 1 + set er [lindex [whatis result] 5] + repeat 4 { + set err [lindex [whatis result_$j] 5] + if { $err != "curve" && $er != "curve"} { + break + } else { + set nom [expr $nom + 1] + } + incr j + } + if { $nom == 0} { + puts " Faulty OCC565: function intersection works wrongly with trimmed cones" + } else { + puts " OCC565 OK: function intersection works with trimmed cones" + } +} + + diff --git a/tests/bugs/moddata/bug567 b/tests/bugs/moddata/bug567 new file mode 100755 index 0000000000..dbfa54d72b --- /dev/null +++ b/tests/bugs/moddata/bug567 @@ -0,0 +1,52 @@ +puts "TODO OCC12345 ALL: Faulty OCC565: function intersection works wrongly with trimmed Surfaces" + +puts "========" +puts "OCC567" +puts "========" +puts "" +####################################### +## Can not intersect two Rectangular Trimmed Surfaces . +####################################### + +restore [locate_data_file OCC567a.draw] s1 +restore [locate_data_file OCC567b.draw] s2 + +if { [catch {intersect i s1 s2 } catch_result] } { + puts "Faulty OCC565: function intersection works wrongly with infinite Surfaces" +} else { + set j 1 + repeat 11 { + set err [lindex [whatis i_$j] 5] + if { $err != "curve"} { + puts " Faulty OCC565: function intersection works wrongly with infinite Surfaces" + break + } else { + puts [format "%s ) OCC565 OK: function intersection works with infinite Surfaces" $j] + } + incr j} +} + +trim s1x s1 0 2*pi 0 2*pi/13 +trim s2x s2 0 2*pi 0 2*pi/13 + +if { [catch {intersect result s1x s2x } catch_result] } { + puts "Faulty OCC565 exception: function intersection works wrongly with trimmed Surfaces" +} else { + set nom 0 + set j 1 + repeat 11 { + set err [lindex [whatis result_$j] 5] + if { $err != "curve"} { + break + } else { + set nom [expr $nom + 1] + } + incr j + } + if { $nom == 0} { + puts "Faulty OCC565: function intersection works wrongly with trimmed Surfaces" + } else { + puts " OCC565 OK: function intersection works with trimmed Surfaces" + } +} + diff --git a/tests/bugs/moddata/bug569 b/tests/bugs/moddata/bug569 new file mode 100755 index 0000000000..6035413da6 --- /dev/null +++ b/tests/bugs/moddata/bug569 @@ -0,0 +1,33 @@ +puts "TODO OCC12345 ALL: Faulty OCC569: function intersection works wrongly with trimmed plane and cone surfaces" + +puts "========" +puts "OCC569" +puts "========" +puts "" +################################## +## Can not intersect trimmed plane and cone surfaces +################################## + +restore [locate_data_file OCC569a.draw] s1 +restore [locate_data_file OCC569b.draw] s2 + +if { [catch {intersect result s1 s2 } catch_result] } { + puts "Faulty OCC569 exception: function intersection works wrongly with trimmed plane and cone surfaces " +} else { + set nom 0 + set j 1 + repeat 10 { + set err [lindex [whatis result_$j] 5] + if { $err != "curve"} { + break + } else { + set nom [expr $nom + 1] + } + incr j + } + if { $nom == 0} { + puts "Faulty OCC569: function intersection works wrongly with trimmed plane and cone surfaces" + } else { + puts "OCC569 OK: function intersection works with trimmed plane and cone surfaces" + } +} diff --git a/tests/bugs/moddata/bug593 b/tests/bugs/moddata/bug593 new file mode 100755 index 0000000000..a275e0a82b --- /dev/null +++ b/tests/bugs/moddata/bug593 @@ -0,0 +1,54 @@ +puts "TODO OCC12345 ALL: Error : Projection of a 3D point on surface using GeomAPI_ProjectPointOnSurf works incorrect" + +puts "========================" +puts " OCC593 " +puts "========================" +puts "" +############################################################# +## Projection of a 3D point on surface using GeomAPI_ProjectPointOnSurf works incorrect +############################################################# + +restore [locate_data_file OCC593.brep] ff48 + +set tolerance [maxtolerance ff48] +regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance + +vertex vv -19.561252535222 17.89876466186 71.408126285268 +distmini dd vv ff48 +regexp {([-0-9.+eE]+)$} [dump dd_val] full ddval + +mksurface gs ff48 + +proj gs -19.561252535222 17.89876466186 71.408126285268 + +set pp1 [lindex [dump ext_1] 9] +set pp2 [lindex [dump ext_1] 10] + +set err [expr abs ([expr $pp2 - $pp1])] +puts [format "MaxFaceTolerance = %s" $MaxFaceTolerance] +puts [format "MaxDistance = %s" $err] +if { $err < $MaxFaceTolerance } { + puts "OCC593 (case 1) : Projection of a 3D point on surface using GeomAPI_ProjectPointOnSurf works properly" +} else { + puts "Error : Projection of a 3D point on surface using GeomAPI_ProjectPointOnSurf works incorrect" +} +copy ext_1 oldext_1 + +puts "" +puts "***** Another example: *****" + +svalue gs 0.56 0.4 x y z +point p x y z +proj gs x y z + +set p1 [lindex [dump ext_1] 9] +set p2 [lindex [dump ext_1] 10] + +set err1 [expr abs ([expr $p2 - $p1])] +puts [format "MaxFaceTolerance = %s" $MaxFaceTolerance] +puts [format "MaxDistance = %s" $err1] +if { $err1 < $MaxFaceTolerance } { + puts "OCC593 (case 2) : Projection of a 3D point on surface using GeomAPI_ProjectPointOnSurf works properly" +} else { + puts "Error : Projection of a 3D point on surface using GeomAPI_ProjectPointOnSurf works incorrect" +} diff --git a/tests/bugs/moddata/bug601 b/tests/bugs/moddata/bug601 new file mode 100755 index 0000000000..46428f8005 --- /dev/null +++ b/tests/bugs/moddata/bug601 @@ -0,0 +1,26 @@ +puts "TODO OCC12345 ALL: Faulty OCC601: function BLEND works wrongly" + +puts "========================" +puts " OCC601 " +puts "SAM1542" +puts "========================" +puts "" +############################################# +## No possibility to make a fillet 13 at the inner edge of the shape +############################################# + +restore [locate_data_file OCC601.brep] a +checkshape a + +explode a e + +if [catch {blend result a 13 a_41 } res] { + puts "Faulty OCC601: function BLEND works wrongly" +} else { + puts "OCC601 OK: function BLEND works without exception" + checkshape result + + set check_square 1 + set square 10 + set 2dviewer 0 +} diff --git a/tests/bugs/moddata/bug604 b/tests/bugs/moddata/bug604 new file mode 100755 index 0000000000..c460f07d16 --- /dev/null +++ b/tests/bugs/moddata/bug604 @@ -0,0 +1,35 @@ +puts "TODO OCC12345 ALL: Faulty OCC604: Result of intersection operation is INcorrect !!!" + +puts "========================" +puts " OCC604" +puts "========================" +puts "" +############################ +## Wrong intersection between two tores. +############################ + +restore [locate_data_file OCC604a.draw] a +restore [locate_data_file OCC604b.draw] b + +if { [catch { intersect result a b } catch_result] } { + puts "Faulty OCC604: function INTERSECTION works with exception" +} else { + set nom 0 + set j 1 + repeat 10 { + set err [lindex [whatis res_$j] 5] + if { $err != "curve"} { + break + } else { + set nom [expr $nom + 1] + } + incr j + } + if { $nom != 1 } { + puts "Faulty OCC604: Result of intersection operation is INcorrect !!!" + } else { + puts "OCC604 OK : Result of intersection operation is CORRECT !!! " + } +} + +set 3dviewer 1 diff --git a/tests/bugs/moddata/bug611_1 b/tests/bugs/moddata/bug611_1 new file mode 100755 index 0000000000..998f762324 --- /dev/null +++ b/tests/bugs/moddata/bug611_1 @@ -0,0 +1,21 @@ +puts "========================" +puts "OCC611" +puts "SAM1564" +puts "(case 1)" +puts "========================" +puts "" +############################ +## No possibility to fuse the shapes. +############################ + +restore [locate_data_file OCC611.brep] a +explode a +checkshape a_1 +checkshape a_2 + +bfuse result a_1 a_2 +checkshape result + +set check_square 1 +set square 531.197 +set 2dviewer 0 diff --git a/tests/bugs/moddata/bug611_2 b/tests/bugs/moddata/bug611_2 new file mode 100755 index 0000000000..71616d41b1 --- /dev/null +++ b/tests/bugs/moddata/bug611_2 @@ -0,0 +1,22 @@ +puts "=================7=======" +puts "OCC611" +puts "SAM1564" +puts "(case 2)" +puts "========================" +puts "" +############################ +## No possibility to fuse the shapes. +############################ + +restore [locate_data_file OCC611.brep] a +explode a +checkshape a_1 +checkshape a_2 + +bop a_1 a_2 +bopfuse result +checkshape result + +set check_square 1 +set square 531.197 +set 2dviewer 0 diff --git a/tests/bugs/moddata/bug611_3 b/tests/bugs/moddata/bug611_3 new file mode 100755 index 0000000000..308a525d32 --- /dev/null +++ b/tests/bugs/moddata/bug611_3 @@ -0,0 +1,21 @@ +puts "========================" +puts "OCC611" +puts "SAM1564" +puts "(case 1)" +puts "========================" +puts "" +############################ +## No possibility to fuse the shapes. +############################ + +restore [locate_data_file OCC611.brep] a +explode a +checkshape a_1 +checkshape a_2 + +bfuse result a_2 a_1 +checkshape result + +set check_square 1 +set square 531.197 +set 2dviewer 0 diff --git a/tests/bugs/moddata/bug613_1 b/tests/bugs/moddata/bug613_1 new file mode 100755 index 0000000000..071719b0bc --- /dev/null +++ b/tests/bugs/moddata/bug613_1 @@ -0,0 +1,26 @@ +puts "========================" +puts " OCC613" +puts "(case 1)" +puts "========================" +puts "" +############################################# +## Meshing algo cannot create mesh for faces with internal edges +############################################# + +restore [locate_data_file OCC613a.brep] result + +tclean result +isos result 0 +incmesh result .1 +triangles result + +set tri_info [trinfo result] +regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri +regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod + +if { $tri == 0 || $nod == 0 } { + puts "Error : Meshing algo cannot create mesh for faces with internal edges " +} + +set 3dviewer 1 + diff --git a/tests/bugs/moddata/bug613_2 b/tests/bugs/moddata/bug613_2 new file mode 100755 index 0000000000..44a4b84083 --- /dev/null +++ b/tests/bugs/moddata/bug613_2 @@ -0,0 +1,26 @@ +puts "========================" +puts " OCC613" +puts "(case 2)" +puts "========================" +puts "" +############################################# +## Meshing algo cannot create mesh for faces with internal edges +############################################# + +restore [locate_data_file OCC613b.brep] result + +tclean result +isos result 0 +incmesh result .1 +triangles result + +set tri_info [trinfo result] +regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri +regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod + +if { $tri == 0 || $nod == 0 } { + puts "Error : Meshing algo cannot create mesh for faces with internal edges " +} + +set 3dviewer 1 + diff --git a/tests/bugs/moddata/bug618 b/tests/bugs/moddata/bug618 index f061aa66a2..688f9e02c6 100755 --- a/tests/bugs/moddata/bug618 +++ b/tests/bugs/moddata/bug618 @@ -8,9 +8,9 @@ puts "" ############################ restore [locate_data_file OCC618a.brep] a -puts [checkshape a] +checkshape a restore [locate_data_file OCC618b.brep] b -puts [checkshape b] +checkshape b if [catch {bop a b} catch_result] { puts "Faulty OCC618 : BOP operation was made wrongly" diff --git a/tests/bugs/moddata/bug65 b/tests/bugs/moddata/bug65 index cbcf3e158c..af394df2e8 100755 --- a/tests/bugs/moddata/bug65 +++ b/tests/bugs/moddata/bug65 @@ -12,11 +12,11 @@ puts "" ############################################### restore [locate_data_file OCC65.brep] sh -puts [checkshape sh] +checkshape sh revol result sh 0 0 0 0 0 1 360 -puts [checkshape result] +checkshape result set check_square 1 set volume 10 diff --git a/tests/bugs/moddata/bug703 b/tests/bugs/moddata/bug703 new file mode 100755 index 0000000000..5244823097 --- /dev/null +++ b/tests/bugs/moddata/bug703 @@ -0,0 +1,22 @@ +puts "==========" +puts "OCC703 " +puts "==========" +puts "" +################################################## +## Wrong result of extrema +## Draw command extrema c1 ce gives no solutions, but must be 2 solutions +################################################## + +restore [locate_data_file OCC703_1.draw] c1 +restore [locate_data_file OCC703_2.draw] ce + +set result [extrema c1 ce] +set err [llength $result] +if { $err != 2} { + puts "Faulty OCC703 (amount of solution): command extrema does NOT work properly" +} else { + puts "OCC703 OK (amount of solution): command extrema works properly" +} + +set 2dviewer 0 + diff --git a/tests/bugs/moddata/bug726_3 b/tests/bugs/moddata/bug726_3 new file mode 100755 index 0000000000..708f6d290b --- /dev/null +++ b/tests/bugs/moddata/bug726_3 @@ -0,0 +1,24 @@ +puts "TODO OCC12345 ALL: Tcl Exception: result is not a topological shape!!!" +puts "TODO OCC12345 ALL: TEST INCOMPLETE" + +puts "========" +puts "OCC726" +puts "SAM1594" +puts "========" +puts "" +###################################### +## Boolean operations are impossible on the attachment. +###################################### + +restore [locate_data_file OCC726.brep] a +explode a +checkshape a_1 +checkshape a_2 + +bcut result a_2 a_1 + +checkshape result + +set check_square 1 +set square 10 +set 2dviewer 0 diff --git a/tests/bugs/moddata/bug736 b/tests/bugs/moddata/bug736 new file mode 100755 index 0000000000..5507ea2327 --- /dev/null +++ b/tests/bugs/moddata/bug736 @@ -0,0 +1,21 @@ +puts "========" +puts "OCC736" +puts "========" +puts "" +##################################################### +## After restoring attached shape(face) it is obviously that there is +## selfintersecting wire. However BRepCheck gives reply that shape looks OK. +##################################################### + +restore [locate_data_file OCC736.brep] result +decho off +set che [checkshape result r] +decho on +if { [regexp {OK} $che ] == 1 } { + puts "Faulty OCC736: checkshape command works wrongly" +} else { + puts "OCC736 OK: checkshape command works PROPERLY" +} + +set 2dviewer 0 + diff --git a/tests/bugs/moddata/bug747 b/tests/bugs/moddata/bug747 new file mode 100755 index 0000000000..859231ac7d --- /dev/null +++ b/tests/bugs/moddata/bug747 @@ -0,0 +1,20 @@ + +puts "========" +puts "OCC747" +puts "========" +puts "" +############################### +## Exception in DRAW-command "distmini" +############################### + +restore [locate_data_file OCC747_1.brep] s1 +checkshape s1 +restore [locate_data_file OCC747_2.brep] s2 +checkshape s2 + +if { [catch { distmini result s1 s2 } status] } { + puts "Faulty OCC747" +} else { + puts "OCC747 OK" +} + diff --git a/tests/bugs/moddata/bug76 b/tests/bugs/moddata/bug76 index e932d6d1d3..214185d658 100755 --- a/tests/bugs/moddata/bug76 +++ b/tests/bugs/moddata/bug76 @@ -7,11 +7,11 @@ puts "================" puts "" restore [locate_data_file shading_177.brep] sh1 -puts [checkshape sh1] +checkshape sh1 regexp {Mass +: +([-0-9.+eE]+)} [vprops sh1] full l1 restore [locate_data_file OCC76-2.brep] sh2 -puts [checkshape sh2] +checkshape sh2 regexp {Mass +: +([-0-9.+eE]+)} [vprops sh2] full l2 if { [expr abs([expr $l1 - 3020.94])] > 0.00999} { diff --git a/tests/bugs/moddata/bug766 b/tests/bugs/moddata/bug766 new file mode 100755 index 0000000000..afdf179a46 --- /dev/null +++ b/tests/bugs/moddata/bug766 @@ -0,0 +1,21 @@ +puts "========" +puts "OCC766" +puts "========" +puts "" +############################### +## Can not project the 3-D point on the ellipse +############################### + +restore [locate_data_file OCC766.draw] c + +set result [proj c 30 3.944304526105059e-31 20.0] + +set length [llength $result] + +if {$length > 0} { + puts "OCC770 OK" +} else { + puts "Faulty OCC770" +} + +set 2dviewer 1 diff --git a/tests/bugs/moddata/bug8 b/tests/bugs/moddata/bug8 index 5bee838f5c..75e16f53c6 100755 --- a/tests/bugs/moddata/bug8 +++ b/tests/bugs/moddata/bug8 @@ -9,7 +9,7 @@ puts "" pload XDE restore [locate_data_file OCC8.brep] result -puts [checkshape result] +checkshape result explode result w set info [expwire result_1 sh] diff --git a/tests/bugs/moddata/bug813 b/tests/bugs/moddata/bug813 new file mode 100755 index 0000000000..0cde7ffdb8 --- /dev/null +++ b/tests/bugs/moddata/bug813 @@ -0,0 +1,24 @@ +pload QAcommands + +puts "=========" +puts " OCC813 " +puts "=========" +puts "" +##################################### +## Geom2dGcc_Lin2d2Tan fails on point and ellipse +##################################### +set U 200 +set V 200 + +set result [OCC813 $U $V] + +set nb_sol 0 + +regexp {nb of solutions = ([-0-9.+eE]+)} $result full nb_sol + +if {$nb_sol > 0} { + puts "OCC813 OK" +} else { + puts "Faulty OCC813" +} + diff --git a/tests/bugs/moddata/bug814 b/tests/bugs/moddata/bug814 new file mode 100755 index 0000000000..9772a63d72 --- /dev/null +++ b/tests/bugs/moddata/bug814 @@ -0,0 +1,23 @@ +pload QAcommands + +puts "=========" +puts " OCC814 " +puts "=========" +puts "" +#################################### +## Geom2dGcc_Lin2d2Tan fails on circle and ellipse +#################################### + +set result [OCC814] + +set nb_sol 0 + +regexp {nb of solutions = ([-0-9.+eE]+)} $result full nb_sol + +if {$nb_sol > 0} { + puts "OCC814 OK" +} else { + puts "Faulty OCC814" +} + + diff --git a/tests/bugs/moddata/bug862 b/tests/bugs/moddata/bug862 new file mode 100755 index 0000000000..a1a7fad1e8 --- /dev/null +++ b/tests/bugs/moddata/bug862 @@ -0,0 +1,21 @@ + +puts "================" +puts "OCC862" +puts "================" +puts "" +######################################## +## The result is just one extremum - intersection is not found. +######################################## +restore [locate_data_file OCC862_1.draw] c1 +restore [locate_data_file OCC862_2.draw] c2 + +set result [extrema c1 c2] +set err [llength $result] +if { $err <= 1} { + puts "Faulty OCC862 (amount of solution): command extrema does NOT work properly" +} else { + puts "OCC862 OK (amount of solution): command extrema works properly" +} + +set 2dviewer 0 + diff --git a/tests/bugs/moddata/bug867 b/tests/bugs/moddata/bug867 new file mode 100755 index 0000000000..b2c780dc90 --- /dev/null +++ b/tests/bugs/moddata/bug867 @@ -0,0 +1,24 @@ +pload QAcommands + +puts "========" +puts "OCC867" +puts "========" +puts "" +###################################################### +## When calling method Init() with surface and its boundary parameters are the +## arguments and then calling method Perform() it raises an exception. +###################################################### + +cylinder c 10 20 +trim c c 0 4 0 2 +point p 30 30 30 +set Umin 0 +set Usup 3 +set Vmin 0 +set Vsup 2 + +if { [ catch {OCC867 p c $Umin $Usup $Vmin $Vsup} catch_result ] } { + puts "Faulty OCC867" +} else { + puts "OCC867 OK" +} diff --git a/tests/bugs/moddata/bug88 b/tests/bugs/moddata/bug88 index 3f4ded502d..dd5438ebe2 100755 --- a/tests/bugs/moddata/bug88 +++ b/tests/bugs/moddata/bug88 @@ -12,8 +12,8 @@ restore [locate_data_file OCC88.brep] sh set che [checkshape sh] explode sh f -puts [checkshape sh_1] -puts [checkshape sh_2] +checkshape sh_1 +checkshape sh_2 mksurface surf1 sh_1 mksurface surf2 sh_2 diff --git a/tests/bugs/moddata/bug889 b/tests/bugs/moddata/bug889 new file mode 100755 index 0000000000..4be5dd3b33 --- /dev/null +++ b/tests/bugs/moddata/bug889 @@ -0,0 +1,22 @@ +puts "TODO OCC12345 ALL: Faulty OCC889 : Checkshape says that the shape has FAULTY, but it is not truth" + +puts "============" +puts "OCC889" +puts "============" +puts "" +############################################ +## Checkshape founds number of errors on new face. It is not true. +############################################ +restore [locate_data_file OCC889.rle] result + +decho off +set che [checkshape result] +decho on + +if { [ regexp {Faulty} $che ] == 1 } { + puts "Faulty OCC889 : Checkshape says that the shape has FAULTY, but it is not truth" +} else { + puts "OCC889 OK : Checkshape works properly" +} + +set 2dviewer 0 diff --git a/tests/bugs/moddata/bug909 b/tests/bugs/moddata/bug909 new file mode 100755 index 0000000000..3573115919 --- /dev/null +++ b/tests/bugs/moddata/bug909 @@ -0,0 +1,27 @@ +puts "TODO OCC12345 ALL: Faulty OCC909" + +pload QAcommands + +puts "=======" +puts "OCC909" +puts "=======" +puts "" +####################################################### +## BRepTools_WireExplorer give different number of edges in dev and FIXOCC40 +####################################################### + +restore [locate_data_file OCC909_f.rle] f +restore [locate_data_file OCC909_w.rle] w + +if { [ catch { set result [OCC909 w f] } ] } { + puts "Faulty OCC909" +} else { + set count 0 + regexp {Count = ()} $result full count + if {$count != 2} { + puts "Faulty OCC909" + } else { + puts "OCC909 OK" + } +} + diff --git a/tests/bugs/moddata/bug921 b/tests/bugs/moddata/bug921 new file mode 100755 index 0000000000..0ea374ac34 --- /dev/null +++ b/tests/bugs/moddata/bug921 @@ -0,0 +1,72 @@ +pload QAcommands + +puts "=======" +puts "OCC921" +puts "=======" +puts "" +############################################################ +## I have found that regresiion on file a054a.sat depends on changes in +## BRepTools::AddUVBounds. The method BRepTools::UVBounds(F, u1, u2, v1, v2) +## returns different values in C40 and in dev. It is because there are different +## strings of code. BRepTools.cxx line 213 (in dev version) +############################################################ + +set good_u1 -0.157166 +set good_u2 4.88216 +set good_v1 -1.65583 +set good_v2 7.93778 + +set percent_max 0.1 + +restore [locate_data_file OCC921.rle] a + +set BoundsList [OCC921 a] + +set u1 0 +set u2 0 +set v1 0 +set v2 0 + +regexp {Bounds: *([-0-9.+eE]+) *([-0-9.+eE]+) *([-0-9.+eE]+) *([-0-9.+eE]+)} $BoundsList full u1 u2 v1 v2 + +set u1_percent [expr abs(${u1} - ${good_u1}) / double(${good_u1}) * 100.] +set u2_percent [expr abs(${u2} - ${good_u2}) / double(${good_u2}) * 100.] +set v1_percent [expr abs(${v1} - ${good_v1}) / double(${good_v1}) * 100.] +set v2_percent [expr abs(${v2} - ${good_v2}) / double(${good_v2}) * 100.] + +puts "u1 = ${u1}" +puts "u2 = ${u2}" +puts "v1 = ${v1}" +puts "v2 = ${v2}" + +puts "u1_percent = ${u1_percent}" +puts "u2_percent = ${u2_percent}" +puts "v1_percent = ${v1_percent}" +puts "v2_percent = ${v2_percent}" + +set status 0 + +if {${u1_percent} > ${percent_max}} { + puts "OCC921: Error (case 1)" + set status 1 +} + +if {${u2_percent} > ${percent_max}} { + puts "OCC921: Error (case 2)" + set status 1 +} + +if {${v1_percent} > ${percent_max}} { + puts "OCC921: Error (case 3)" + set status 1 +} + +if {${v2_percent} > ${percent_max}} { + puts "OCC921: Error (case 4)" + set status 1 +} + +if {${status} == 0} { + puts "OCC921: OK" +} + diff --git a/tests/bugs/moddata/bug935_1 b/tests/bugs/moddata/bug935_1 new file mode 100755 index 0000000000..07ddf00b74 --- /dev/null +++ b/tests/bugs/moddata/bug935_1 @@ -0,0 +1,33 @@ + +puts "=========" +puts " OCC935 " +puts "(case 1)" +puts "=========" +puts "" +############################### +## instability in checkshape in KAS:dev version. +############################### + +restore [locate_data_file OCC935_1.brep] result + +decho off +set err [checkshape result] +decho on +set j 1 +repeat 25 { + restore [locate_data_file OCC935_1.brep] result + decho off + set err1 [checkshape result] + decho on + if { $err != $err1 } { + puts [format " Faulty OCC935 (case 1): function CHECKSHAPE works wrongly on %s time" $j] + break + } else { + puts [format " OCC935 (case 1) OK: function CHECKSHAPE works properly %s time" $j] + } + incr j +} + +set 2dviewer 0 + + diff --git a/tests/bugs/moddata/bug935_2 b/tests/bugs/moddata/bug935_2 new file mode 100755 index 0000000000..7f738a4c26 --- /dev/null +++ b/tests/bugs/moddata/bug935_2 @@ -0,0 +1,32 @@ + +puts "=========" +puts " OCC935 " +puts "(case 2)" +puts "=========" +puts "" +############################### +## instability in checkshape in KAS:dev version. +############################### + +restore [locate_data_file OCC935_2.brep] result + +decho off +set err [checkshape result] +decho on + +set j 1 +repeat 25 { + restore [locate_data_file OCC935_2.brep] result + decho off + set err1 [checkshape result] + decho on + if { $err != $err1 } { + puts [format " Faulty OCC935 (case 2): function CHECKSHAPE works wrongly on %s time" $j] + break + } else { + puts [format " OCC935 (case 2) OK: function CHECKSHAPE works properly %s time" $j] + } + incr j +} + +set 2dviewer 0 diff --git a/tests/bugs/moddata/bug943_1 b/tests/bugs/moddata/bug943_1 new file mode 100755 index 0000000000..4ee1a39ae1 --- /dev/null +++ b/tests/bugs/moddata/bug943_1 @@ -0,0 +1,36 @@ + +puts "=========" +puts " OCC943 " +puts "(case 1)" +puts "=========" +puts "" +##################################################### +## The regression is intersecting pcurves of face, They are added by fixshape. +## (To see this you can try fixshape dF.rle from attachment. But please note, that +## checkshape on result of fixshape sometimes fails and sometimes not. It is +## instability!) +###################################################### + +restore [locate_data_file OCC943_1.brep] result + +decho off +set err [checkshape result] +decho on + +set j 1 +repeat 25 { + restore [locate_data_file OCC943_1.brep] result + decho off + set err1 [checkshape result] + decho on + if { $err != $err1 } { + puts [format " Faulty OCC943 (case 1): function CHECKSHAPE works wrongly on %s time" $j] + break + } else { + puts [format " OCC943 (case 1) OK: function CHECKSHAPE works properly %s time" $j] + } + incr j +} + +set 2dviewer 0 + diff --git a/tests/bugs/moddata/bug943_2 b/tests/bugs/moddata/bug943_2 new file mode 100755 index 0000000000..5e44ef832e --- /dev/null +++ b/tests/bugs/moddata/bug943_2 @@ -0,0 +1,36 @@ + +puts "=========" +puts " OCC943 " +puts "(case 2)" +puts "=========" +puts "" +######################################################### +## distinace between projection and initial point in dev version is larger then in C40. +######################################################### + +restore [locate_data_file OCC943_2.draw] su + +set X 5.759527537723098 +set Y 31.81368637070151 +set Z -0.2989616405627145 + +vertex v $X $Y $Z +proj su $X $Y $Z + +regexp {Parameters +: +[-0-9.+eE]+ +([-0-9.+eE]+)} [dump ext_1] full resV + +cvalue ext_1 $resV cx cy cz +vertex V cx cy cz +distmini d V v + +regexp {([-0-9.+eE]+)$} [dump d_val] full res + +set res_good 1.108e-05 + +if { $res > $res_good } { + puts "" + puts "Faulty OCC493 (case 2)" +} else { + puts "" + puts " OCC493 (case 2) OK" +} diff --git a/tests/bugs/moddata/bug956_1 b/tests/bugs/moddata/bug956_1 new file mode 100755 index 0000000000..dbb943901f --- /dev/null +++ b/tests/bugs/moddata/bug956_1 @@ -0,0 +1,25 @@ +puts "TODO OCC12345 ALL: Faulty OCC956" + +puts "=========" +puts " OCC956 " +puts "(case 1)" +puts "=========" +puts "" +############################################### +##possible regression in KAS:dev on checkshape. Fails on valid shape +############################################### + +restore [locate_data_file OCC956_1.brep] result + +decho off +set che [checkshape result] +decho on + +if { [regexp {Faulty} $che] } { + puts "Faulty OCC956 (case 1): Checkshape says that the shape is incorrect, but it is not truth" +} else { + puts "OCC956 OK (case 1): Checkshape works properly" +} + +set 2dviewer 0 + diff --git a/tests/bugs/moddata/bug956_2 b/tests/bugs/moddata/bug956_2 new file mode 100755 index 0000000000..ef6fae634e --- /dev/null +++ b/tests/bugs/moddata/bug956_2 @@ -0,0 +1,26 @@ +puts "TODO OCC12345 ALL: Faulty OCC956" + +puts "=========" +puts " OCC956 " +puts "(case 2)" +puts "=========" +puts "" +############################################### +##possible regression in KAS:dev on checkshape. Fails on valid shape +############################################### + +restore [locate_data_file OCC956_2.brep] result + +decho off +set che [checkshape result] +decho on + +if { [regexp {Faulty} $che] } { + puts "Faulty OCC956 (case 2): Checkshape says that the shape is incorrect, but it is not truth" +} else { + puts "OCC956 OK (case 2): Checkshape works properly" +} + +set 2dviewer 0 + + diff --git a/tests/bugs/moddata/fra62476_1 b/tests/bugs/moddata/fra62476_1 old mode 100644 new mode 100755 index da675ce6b4..9d62fef020 --- a/tests/bugs/moddata/fra62476_1 +++ b/tests/bugs/moddata/fra62476_1 @@ -9,7 +9,7 @@ puts "==================================" puts "" restore [locate_data_file fra62476a.brep] result -puts [checkshape result] +checkshape result tclean result incmesh result .1 diff --git a/tests/bugs/moddata/fra62476_2 b/tests/bugs/moddata/fra62476_2 old mode 100644 new mode 100755 index 379f01e5ee..242acd6312 --- a/tests/bugs/moddata/fra62476_2 +++ b/tests/bugs/moddata/fra62476_2 @@ -8,7 +8,7 @@ puts "==================================" puts "" restore [locate_data_file fra62476b.brep] result -puts [checkshape result] +checkshape result tclean result incmesh result .1 diff --git a/tests/bugs/moddata/ger61235 b/tests/bugs/moddata/ger61235 index 7535a07f6a..c61d04087d 100755 --- a/tests/bugs/moddata/ger61235 +++ b/tests/bugs/moddata/ger61235 @@ -3,14 +3,14 @@ puts "GER61235" puts "===========" restore [locate_data_file ger61235a.brep] tool -puts [checkshape tool] +checkshape tool restore [locate_data_file ger61235b.brep] object -puts [checkshape object] +checkshape object bsection result object tool puts "Result of section :" -puts [checkshape result] +checkshape result #To check geometry part mksurface s1 tool mksurface s2 object diff --git a/tests/bugs/moddata/pro19422_1 b/tests/bugs/moddata/pro19422_1 index fb0b6513ab..332f598bfb 100755 --- a/tests/bugs/moddata/pro19422_1 +++ b/tests/bugs/moddata/pro19422_1 @@ -9,9 +9,9 @@ puts "" ############################################################# restore [locate_data_file pro19422a.brep] shape -puts [checkshape shape] +checkshape shape restore [locate_data_file pro19422b.brep] tool -puts [checkshape tool] +checkshape tool bcut result shape tool diff --git a/tests/bugs/moddata/pro19422_2 b/tests/bugs/moddata/pro19422_2 index 63a2fb9b92..f41f11d3b2 100755 --- a/tests/bugs/moddata/pro19422_2 +++ b/tests/bugs/moddata/pro19422_2 @@ -8,9 +8,9 @@ puts "" ############################################################# restore [locate_data_file pro19422c.brep] shape -puts [checkshape shape] +checkshape shape restore [locate_data_file pro19422d.brep] tool -puts [checkshape tool] +checkshape tool bcut result shape tool diff --git a/tests/bugs/moddata/pro20333 b/tests/bugs/moddata/pro20333 old mode 100644 new mode 100755 index dcaf6dc86c..0f67ccf038 --- a/tests/bugs/moddata/pro20333 +++ b/tests/bugs/moddata/pro20333 @@ -8,7 +8,7 @@ puts "It takes visual check for this BUG" puts "==================================" restore [locate_data_file pro20333a.brep] result -puts [checkshape result] +checkshape result tclean result isos result 0 diff --git a/tests/bugs/step/buc60624 b/tests/bugs/step/buc60624 old mode 100644 new mode 100755 index 29a53cd0f0..41a60faea9 --- a/tests/bugs/step/buc60624 +++ b/tests/bugs/step/buc60624 @@ -5,6 +5,6 @@ puts "========================" stepread [locate_data_file buc60624a.stp] a * tpcompound result -puts [checkshape result] +checkshape result set 2dviewer 0 diff --git a/tests/bugs/step/buc60809 b/tests/bugs/step/buc60809 old mode 100644 new mode 100755 index 1d02ef17cf..f058643e36 --- a/tests/bugs/step/buc60809 +++ b/tests/bugs/step/buc60809 @@ -10,8 +10,8 @@ param read.step.product.mode OFF stepread [locate_data_file BUC60809.stp] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/step/buc60810 b/tests/bugs/step/buc60810 old mode 100644 new mode 100755 diff --git a/tests/bugs/step/buc60906 b/tests/bugs/step/buc60906 old mode 100644 new mode 100755 index d608ebf10d..cd13b4cb39 --- a/tests/bugs/step/buc60906 +++ b/tests/bugs/step/buc60906 @@ -67,8 +67,8 @@ if { ${IsOK} == 1 } { if { ${IsOK} == 1 } { fixshape result com ${delta} - puts [ checkshape result] - puts [checkshape result r] + checkshape result + checkshape result r } set 2dviewer 0 diff --git a/tests/bugs/step/buc60948 b/tests/bugs/step/buc60948 old mode 100644 new mode 100755 index cb02f493ad..c955bd9059 --- a/tests/bugs/step/buc60948 +++ b/tests/bugs/step/buc60948 @@ -5,7 +5,7 @@ puts "BUC60948" puts "========================" restore [locate_data_file pump4.brep] a_1 -puts [checkshape a_1] +checkshape a_1 ##################################################################### catch {exec rm ${imagedir}/buc60948.stp} @@ -16,7 +16,7 @@ dall stepread ${imagedir}/buc60948.stp a * tpcompound result -puts [checkshape result] +checkshape result set 2dviewer 0 diff --git a/tests/bugs/step/bug272_7 b/tests/bugs/step/bug272_7 index 40bb7af12f..f08c7d6ff4 100755 --- a/tests/bugs/step/bug272_7 +++ b/tests/bugs/step/bug272_7 @@ -9,7 +9,7 @@ tpcompound result if { [llength [whatis result]] == 3 } { puts "Error : There is no result" } -puts [checkshape result] +checkshape result set 2dviewer 0 diff --git a/tests/bugs/step/bug348_1 b/tests/bugs/step/bug348_1 index 6b9080ce70..c07cf3d5b8 100755 --- a/tests/bugs/step/bug348_1 +++ b/tests/bugs/step/bug348_1 @@ -14,7 +14,7 @@ vinit stepread [locate_data_file BUC61003-1.stp] a * tpcompound result -puts [checkshape result] +checkshape result vdisplay result vsetdispmode 1 diff --git a/tests/bugs/step/bug348_2 b/tests/bugs/step/bug348_2 index 60b44a3b14..caa5f85c5a 100755 --- a/tests/bugs/step/bug348_2 +++ b/tests/bugs/step/bug348_2 @@ -14,7 +14,7 @@ vinit stepread [locate_data_file BUC61003-2.stp] a * tpcompound result -puts [checkshape result] +checkshape result vdisplay result vsetdispmode 1 diff --git a/tests/bugs/step/bug348_3 b/tests/bugs/step/bug348_3 index 4f380e9ecd..82c4fb6b39 100755 --- a/tests/bugs/step/bug348_3 +++ b/tests/bugs/step/bug348_3 @@ -16,7 +16,7 @@ vinit stepread [locate_data_file BUC61003-3.stp] a * tpcompound result -puts [checkshape result] +checkshape result vdisplay result vsetdispmode 1 diff --git a/tests/bugs/step/bug348_4 b/tests/bugs/step/bug348_4 index e9e50453af..41861f147c 100755 --- a/tests/bugs/step/bug348_4 +++ b/tests/bugs/step/bug348_4 @@ -15,7 +15,7 @@ vinit stepread [locate_data_file BUC61003-4.stp] a * tpcompound result -puts [checkshape result] +checkshape result vdisplay result vsetdispmode 1 diff --git a/tests/bugs/step/bug365_2 b/tests/bugs/step/bug365_2 index bd628f6d69..d5533d2ee8 100755 --- a/tests/bugs/step/bug365_2 +++ b/tests/bugs/step/bug365_2 @@ -8,7 +8,7 @@ cpulimit 3000 stepread [locate_data_file BUC61004.stp] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/step/bug51 b/tests/bugs/step/bug51 index 00f75eacaa..8e426c52d1 100755 --- a/tests/bugs/step/bug51 +++ b/tests/bugs/step/bug51 @@ -24,7 +24,7 @@ puts " Read IGES file " igesbrep ${imagedir}/box.igs b * compound a_1 b_1 result -puts [checkshape result] +checkshape result set 2dviewer 0 diff --git a/tests/bugs/step/bug55 b/tests/bugs/step/bug55 index bb038df619..4785268388 100755 --- a/tests/bugs/step/bug55 +++ b/tests/bugs/step/bug55 @@ -10,7 +10,7 @@ cpulimit 2000 stepread [locate_data_file OCC55.stp] a * tpcompound result -puts [checkshape result] +checkshape result set 2dviewer 0 diff --git a/tests/bugs/step/bug609 b/tests/bugs/step/bug609 new file mode 100755 index 0000000000..65da6ec01f --- /dev/null +++ b/tests/bugs/step/bug609 @@ -0,0 +1,28 @@ +puts "================" +puts "OCC609" +puts "================" +puts "" +################################# +## Impossible to write separate vertices to STEP +################################# + +restore [locate_data_file OCC609.brep] a1 + +###################################################################### +file delete ${imagedir}/vertises.stp +stepwrite a a1 ${imagedir}/vertises.stp + +dall + +stepread ${imagedir}/vertises.stp a2 * + +set tex [nbshapes a2_1] +regexp {VERTEX +: +([-0-9.+eE]+)} $tex full ve + +if { $ve != 0 } { + puts " OCC609 : vertexes were saved and restored properly" +} else { + puts "Faulty OCC609: vertexes were saved and restored wrongly" +} + + diff --git a/tests/bugs/step/bug630 b/tests/bugs/step/bug630 new file mode 100755 index 0000000000..84803156e6 --- /dev/null +++ b/tests/bugs/step/bug630 @@ -0,0 +1,25 @@ +puts "================" +puts "OCC630" +puts "================" +puts "" +######################################################## +## DRAW hungs up at the attempt to restore solid previously saved in STEP format +######################################################## + +restore [locate_data_file OCC630.brep] a1 +checkshape a1 + +###################################################################### +file delete ${imagedir}/solid.stp +stepwrite a a1 ${imagedir}/solid.stp + +dall + +if [catch {stepread ${imagedir}/solid.stp a2 * } res] { + puts "Faulty OCC630: here is reading problem" +} else { + tpcompound result + checkshape result + + set 2dviewer 0 +} diff --git a/tests/bugs/step/bug725 b/tests/bugs/step/bug725 new file mode 100755 index 0000000000..8aa7cb9c3c --- /dev/null +++ b/tests/bugs/step/bug725 @@ -0,0 +1,14 @@ +puts "=======" +puts "OCC725" +puts "=======" +puts "" +############################################################# +## Storing all free vertices of STEP into one SHAPE_DEFINITION_REPRESENTATION +############################################################# + +stepread [locate_data_file OCC725.stp] a * + +tpcompound result +checkshape result + +set 2dviewer 0 diff --git a/tests/bugs/step/bug725_1 b/tests/bugs/step/bug725_1 new file mode 100755 index 0000000000..ad87e2cdc5 --- /dev/null +++ b/tests/bugs/step/bug725_1 @@ -0,0 +1,26 @@ +puts "============" +puts "OCC725" +puts "============" +puts "" +########################################################### +## Storing all free vertices of STEP into one SHAPE_DEFINITION_REPRESENTATION +###################################################################### + +set file2 ${imagedir}/OCC725.stp + +stepread [locate_data_file OCC725.stp] a * + +set len [nbshapes a_1] +regexp {VERTEX +: +([-0-9.+eE]+)} $len full VERTEX1 + +stepwrite a a_1 $file2 + +stepread $file2 b * + +set len [nbshapes b_1] +regexp {VERTEX +: +([-0-9.+eE]+)} $len full VERTEX2 + +if { ${VERTEX1} != ${VERTEX2} } { + puts "Faulty OCC725" +} + diff --git a/tests/bugs/step/bug926 b/tests/bugs/step/bug926 new file mode 100755 index 0000000000..c9be90b2a2 --- /dev/null +++ b/tests/bugs/step/bug926 @@ -0,0 +1,39 @@ +puts "TODO OCC12345 ALL: Error on Record" +puts "TODO OCC12345 ALL: OCC926 Faulty" + +puts "================" +puts "OCC926" +puts "================" +puts "" + +stepread [locate_data_file OCC926.stp] a * + +tpcompound result +set list [nbshapes result] + +regexp {VERTEX +: +([-0-9.+eE]+)} $list full VERTEX +regexp {EDGE +: +([-0-9.+eE]+)} $list full EDGE +regexp {WIRE +: +([-0-9.+eE]+)} $list full WIRE +regexp {FACE +: +([-0-9.+eE]+)} $list full FACE +regexp {SHELL +: +([-0-9.+eE]+)} $list full SHELL +regexp {SOLID +: +([-0-9.+eE]+)} $list full SOLID +regexp {COMPSOLID +: +([-0-9.+eE]+)} $list full COMPSOLID +regexp {COMPOUND +: +([-0-9.+eE]+)} $list full COMPOUND +regexp {SHAPE +: +([-0-9.+eE]+)} $list full SHAPE + +if { $VERTEX != 4474 || \ + $EDGE != 6907 || \ + $WIRE != 3823 || \ + $FACE != 3085 || \ + $SHELL != 196 || \ + $SOLID != 154 || \ + $COMPSOLID != 0 || \ + $COMPOUND != 32 || \ + $SHAPE != 18671 } { + puts "OCC926 Faulty" +} else { + puts "OCC926 OK" +} + +set 2dviewer 0 + diff --git a/tests/bugs/step/pro19854 b/tests/bugs/step/pro19854 old mode 100644 new mode 100755 index 2d4bae1710..799c73fcac --- a/tests/bugs/step/pro19854 +++ b/tests/bugs/step/pro19854 @@ -5,15 +5,15 @@ puts "Incorrect translation of one entity from STEP file in optimaze mode of C30 stepread [locate_data_file id_turbine-B.stp] a * -puts [checkshape a_1] -puts [checkshape a_1 r] +checkshape a_1 +checkshape a_1 r renamevar a_1 result tpdraw 2637 -puts [checkshape tp_2637] -puts [checkshape tp_2637 r] +checkshape tp_2637 +checkshape tp_2637 r set 2dviewer 0 diff --git a/tests/bugs/step/pro19895 b/tests/bugs/step/pro19895 old mode 100644 new mode 100755 index c202d42add..65dd709038 --- a/tests/bugs/step/pro19895 +++ b/tests/bugs/step/pro19895 @@ -16,8 +16,8 @@ tpcompound result tpdraw 2139 -puts [checkshape tp_2139] -puts [checkshape tp_2139 r] +checkshape tp_2139 +checkshape tp_2139 r set MaxTolerance [ lindex [ split [ lindex [tolerance tp_2139] 1 ] = ] 1 ] puts "MaxTolerance = $MaxTolerance" diff --git a/tests/bugs/step/pro20361_1 b/tests/bugs/step/pro20361_1 old mode 100644 new mode 100755 diff --git a/tests/bugs/step/pro20361_2 b/tests/bugs/step/pro20361_2 old mode 100644 new mode 100755 index 23ba2c747b..f9880b53b9 --- a/tests/bugs/step/pro20361_2 +++ b/tests/bugs/step/pro20361_2 @@ -7,7 +7,7 @@ param read.step.product.mode OFF stepread [locate_data_file PRO20361-1.stp] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/step/pro20361_3 b/tests/bugs/step/pro20361_3 old mode 100644 new mode 100755 index c48e870185..3f153b3f79 --- a/tests/bugs/step/pro20361_3 +++ b/tests/bugs/step/pro20361_3 @@ -7,7 +7,7 @@ param read.step.product.mode OFF stepread [locate_data_file PRO20361-3.stp] a * tpcompound result -puts [checkshape result] -puts [checkshape result r] +checkshape result +checkshape result r set 2dviewer 0 diff --git a/tests/bugs/step/pro20362 b/tests/bugs/step/pro20362 old mode 100644 new mode 100755 index a80a6f145e..db197ff738 --- a/tests/bugs/step/pro20362 +++ b/tests/bugs/step/pro20362 @@ -7,8 +7,8 @@ stepread [locate_data_file PRO20362.stp] a * explode a_1 f renamevar a_1 result -puts [checkshape a_1_1] -puts [checkshape a_1_1 r] +checkshape a_1_1 +checkshape a_1_1 r set l [explode a_1_1 e] set n [llength $l] @@ -16,8 +16,8 @@ if { $n != 4 } { puts "Error : The amount of edges in FIRST face is more than four" } -puts [checkshape a_1_2] -puts [checkshape a_1_2 r] +checkshape a_1_2 +checkshape a_1_2 r set i [explode a_1_2 e] set m [llength $i] diff --git a/tests/bugs/vis/buc60547 b/tests/bugs/vis/buc60547 new file mode 100755 index 0000000000..5e7081530f --- /dev/null +++ b/tests/bugs/vis/buc60547 @@ -0,0 +1,22 @@ +puts "TODO OCC12345 ALL: An exception was caught" +puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*" +puts "TODO OCC12345 ALL: TEST INCOMPLETE" + +puts "==========" +puts "BUC60547" +puts "=========================" +puts "It takes visul check for this BUG" +puts "We must see 4 contours" +puts "=========================" + +vinit +BUC60547 f +vfit +QAUpdateLights + +set x_coord 290 +set y_coord 33 + +checkcolor $x_coord $y_coord 1 0 0 + +set only_screen 1 diff --git a/tests/bugs/vis/buc60574 b/tests/bugs/vis/buc60574 new file mode 100755 index 0000000000..fdecb787df --- /dev/null +++ b/tests/bugs/vis/buc60574 @@ -0,0 +1,36 @@ +if { [array get env os_type] != "" } { + set os $env(os_type) +} +if { [string compare $os "windows"] != 0 } { + puts "TODO OCC12345 ALL: An exception was caught" + puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*" + puts "TODO OCC12345 ALL: TEST INCOMPLETE" +} + +puts "===========" +puts "BUC60574" +puts "===========" +puts "==================================" +puts "It takes visual check for this BUG" +puts "==================================" + +vinit +BUC60574 + +QASelect 220 210 +QASelect 220 210 +QAUpdateLights +puts "" + +set x_coord 205 +set y_coord 205 + +checkcolor $x_coord $y_coord 0.8 0.8 0.8 + +if {$stat != 1} { + puts "OK: Plane of trihedron was selected properly " +} + +## modified colors + +set only_screen 1 diff --git a/tests/bugs/vis/buc60587 b/tests/bugs/vis/buc60587 new file mode 100755 index 0000000000..d5f3479a62 --- /dev/null +++ b/tests/bugs/vis/buc60587 @@ -0,0 +1,31 @@ + +puts "=========" +puts "BUC60587" +puts "=========" +puts "" +puts "==================================" +puts "It takes visual check for this BUG" +puts "==================================" + +restore [locate_data_file buc60587a.brep] result +checkshape result +tclean result +vinit +vdisplay result +vfit +vsetdispmode 1 +QASelect 180 180 +QASelect 180 180 +vsetcolor result CYAN3 + +set x_coord 120 +set y_coord 180 + +checkcolor $x_coord $y_coord 0.7 1 0.9 + +if { $stat != 1 } { + puts "Error : Model has NOT CYAN colour." +} + +set only_screen 1 + diff --git a/tests/bugs/vis/buc60614 b/tests/bugs/vis/buc60614 new file mode 100755 index 0000000000..a469365c4d --- /dev/null +++ b/tests/bugs/vis/buc60614 @@ -0,0 +1,16 @@ + +puts "================" +puts "BUC60614" +puts "================" +puts "The application crashs when you set the selection mode to compound." +puts "" + +box b 10 30 50 +compound b c +vinit +BUC60614 c +QAMoveTo 200 200 +QAMoveTo 200 200 +vfit + +set only_screen 1 diff --git a/tests/bugs/vis/buc60632_1 b/tests/bugs/vis/buc60632_1 new file mode 100755 index 0000000000..a24fa58c63 --- /dev/null +++ b/tests/bugs/vis/buc60632_1 @@ -0,0 +1,32 @@ +if { [array get env os_type] != "" } { + set os $env(os_type) +} +if { [string compare $os "windows"] != 0 } { + puts "TODO OCC12345 ALL: An exception was caught" + puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*" + puts "TODO OCC12345 ALL: TEST INCOMPLETE" +} + +puts "================" +puts "BUC60632" +puts "================" + +vinit +BUC60632 0 100 +vfit +QAMoveTo 313 254 +QAMoveTo 313 254 +puts "Highlighting by 'Move To' command in wireframe mode" + +set x_coord 315 +set y_coord 256 + +checkcolor $x_coord $y_coord 0 1 1 + +if { $stat != 1 } { + puts "Error : Highlighting by Move To command in wireframe mode is WRONG." +} + +set only_screen 1 + + diff --git a/tests/bugs/vis/buc60632_2 b/tests/bugs/vis/buc60632_2 new file mode 100755 index 0000000000..f4831a7ad7 --- /dev/null +++ b/tests/bugs/vis/buc60632_2 @@ -0,0 +1,32 @@ +if { [array get env os_type] != "" } { + set os $env(os_type) +} +if { [string compare $os "windows"] != 0 } { + puts "TODO OCC12345 ALL: An exception was caught" + puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*" + puts "TODO OCC12345 ALL: TEST INCOMPLETE" +} + +puts "================" +puts "BUC60632" +puts "================" + +vinit +BUC60632 1 100 +vfit +QAMoveTo 313 254 +QAMoveTo 313 254 +puts "Highlighting by 'Move To' command in shading mode" + +set x_coord 315 +set y_coord 256 + +checkcolor $x_coord $y_coord 0 1 1 + +if { $stat != 1 } { + puts "Error : Highlighting by Move To command in shading mode is WRONG." +} + +set only_screen 1 + + diff --git a/tests/bugs/vis/buc60659 b/tests/bugs/vis/buc60659 new file mode 100755 index 0000000000..1c55258a5a --- /dev/null +++ b/tests/bugs/vis/buc60659 @@ -0,0 +1,16 @@ + +puts "==========================" +puts "BUC60659" +puts "==========================" +puts "" +########################################## +## puts "There was Exception after vsetshading command" +########################################## + +box a 10 30 50 +vinit +vdisplay a +vfit +vsetshading a + +set only_screen 1 diff --git a/tests/bugs/vis/buc60661 b/tests/bugs/vis/buc60661 new file mode 100755 index 0000000000..942153655e --- /dev/null +++ b/tests/bugs/vis/buc60661 @@ -0,0 +1,48 @@ +puts "==================================" +puts "BUC60661" +puts "It takes visual check for this BUG" +puts "==================================" +puts "" + +pload XDE + +################################################################## +##DESCRIPTION: It is impossible to nominate "sheding" mode in 3D-viewer for the some shapes in +## C30 (SUN station), which were stored in "IGES" format previousl and then were retrieved again +## into "BREP" format. +################################################################## + +restore [locate_data_file buc60661a.brep] buc60661 +checkshape buc60661 + +###################################################################### +file delete ${imagedir}/buc60661.igs } +brepiges buc60661 ${imagedir}/buc60661.igs +###################################################################### + +dall + +if [catch { igesbrep ${imagedir}//buc60661.igs a * } res] { + puts "Faulty BUC60661: here is reading problem of iges file" +} else { + puts "Reading of iges in BUC60661 is OK" +} + +tpcompound result +checkshape result + +vinit +tclean result +vdisplay result +vsetdispmode result 1 + +set info [trinfo result] +regexp { +([-0-9.+eE]+) +triangles} $info full tri +regexp { +([-0-9.+eE]+) +nodes} $info full nod + +if { $tri == 0 || $nod ==0 } { + puts "Error : here is shading problem" +} + +set 3dviewer 1 + diff --git a/tests/bugs/vis/buc60688 b/tests/bugs/vis/buc60688 new file mode 100755 index 0000000000..cfb683a24d --- /dev/null +++ b/tests/bugs/vis/buc60688 @@ -0,0 +1,37 @@ +puts "===========" +puts "BUC60688" +puts "===========" +puts "==================================" +puts "It takes visual check for this BUG" +puts "==================================" + +vinit +vertex v_1 .003 .0 .0 +vertex v_2 .003 .0 .003 +vertex v_3 .0 .0 .003 +vertex v_4 .0 .0 .0 +edge e_1 v_1 v_2 +edge e_2 v_2 v_3 +edge e_3 v_3 v_4 +edge e_4 v_4 v_1 +wire w_1 e_1 e_2 e_3 e_4 +mkplane r w_1 +vdisplay r +vfit +QASelect 120 21 +QASelect 120 21 +QAUpdateLights + +puts "WARNING : The rectangular MUST be highlighted !" +puts "" + +set x_coord 88 +set y_coord 272 + +checkcolor $x_coord $y_coord 0.8 0.8 0.8 + +if {$stat != 1} { + puts "Error : The rectangular is NOT highlighted." +} + +set only_screen 1 diff --git a/tests/bugs/vis/buc60701 b/tests/bugs/vis/buc60701 new file mode 100755 index 0000000000..16ab817cce --- /dev/null +++ b/tests/bugs/vis/buc60701 @@ -0,0 +1,11 @@ + +puts "========================" +puts "BUC60701" +puts "========================" + +box result 10 10 10 +vinit +vdisplay result +set 3dviewer 1 + +### Photo of V3Dview is less than image in the viewer (only half-part of viewer is present on a photo). diff --git a/tests/bugs/vis/buc60738 b/tests/bugs/vis/buc60738 new file mode 100755 index 0000000000..c175349f5e --- /dev/null +++ b/tests/bugs/vis/buc60738 @@ -0,0 +1,35 @@ +### by apn (no regresion in CR23352_3 +###if { [array get env os_type] != "" } { +### set os $env(os_type) +###} +###if { [string compare $os "windows"] == 0 } { +### puts "TODO OCC12345 ALL: Error : Colors are not equal in default coordinate and in the near coordinates too" +### puts "TODO OCC12345 ALL: Error : The style of edge is NOT dash" +### by apn: Image is not correct on WNT +###} + +puts "========================" +puts "BUC60738" +puts "========================" +puts "" +puts "==================================" +puts "It takes visual check for this BUG" +puts "==================================" + +vinit +BUC60738 +vfit +vsetdispmode 1 + +QAUpdateLights + +set x_coord 261 +set y_coord 314 + +checkcolor $x_coord $y_coord 0 1 0 + +if {$stat != 1} { + puts "Error : The style of edge is NOT dash" +} + +set only_screen 1 diff --git a/tests/bugs/vis/buc60740 b/tests/bugs/vis/buc60740 new file mode 100755 index 0000000000..e79c9d4e93 --- /dev/null +++ b/tests/bugs/vis/buc60740 @@ -0,0 +1,29 @@ +puts "===========" +puts "BUC60740" +puts "===========" +puts "==================================" +puts "It takes visual check for this BUG" +puts "==================================" + +vinit +box b 0 0 0 10 10 10 +pcylinder c 10 10 +vdisplay b +vsetdispmode b 1 +vdisplay c +vsetdispmode c 1 +vfit +vsettransparency c 0.5 + +set x_coord 154 +set y_coord 257 + +QAUpdateLights + +checkcolor $x_coord $y_coord 0.6 0.4 0.07 + +if {$stat != 1} { + puts "Error :function vsettransparency works WRONGLY" +} + +set only_screen 1 diff --git a/tests/bugs/vis/buc60747 b/tests/bugs/vis/buc60747 new file mode 100755 index 0000000000..a45d4529d7 --- /dev/null +++ b/tests/bugs/vis/buc60747 @@ -0,0 +1,25 @@ +puts "===========" +puts "BUC60747" +puts "BUC60611" +puts "BUC60639" +puts "===========" +puts "==================================" +puts "It takes visual check for this BUG" +puts "==================================" + +v2dinit +pcone c_o 15 0 50 360 +v2ddisplay c_o +v2dfit + +set x_coord 37 +set y_coord 287 +set color2d 1 + +checkcolor $x_coord $y_coord 1 1 0 + +if {$stat != 1} { + puts "Error : function V2DFIT works wrongly" +} + +set only_screen2d 1 diff --git a/tests/bugs/vis/buc60753 b/tests/bugs/vis/buc60753 new file mode 100755 index 0000000000..a5262475d0 --- /dev/null +++ b/tests/bugs/vis/buc60753 @@ -0,0 +1,20 @@ +puts "========" +puts "BUC60753" +puts "========" +puts "" + +restore [locate_data_file buc60753.brep] a +checkshape a + +tclean a +vinit +vdisplay a +vsetdispmode a 1 +vfit + +set TypeOfDegenerateModel 2 +set Ratio 0.5 + +BUC60753 ${TypeOfDegenerateModel} ${Ratio} + +set only_screen 1 diff --git a/tests/bugs/vis/buc60774 b/tests/bugs/vis/buc60774 new file mode 100755 index 0000000000..4e6afcac22 --- /dev/null +++ b/tests/bugs/vis/buc60774 @@ -0,0 +1,14 @@ +puts "========" +puts "BUC60774" +puts "========" +puts "" + +vinit +catch {BUC60774} +vfit + +set only_screen 1 + + + + diff --git a/tests/bugs/vis/buc60814 b/tests/bugs/vis/buc60814 new file mode 100755 index 0000000000..730c549040 --- /dev/null +++ b/tests/bugs/vis/buc60814 @@ -0,0 +1,31 @@ +puts "========" +puts "BUC60814" +puts "========" +puts "" + +vinit +BUC60814 +vfit +QAUpdateLights + +set x_coord 131 +set y_coord 352 + +checkcolor $x_coord $y_coord 0 0 1 + +#AKI.111002.Against **Exception..-it's on lin.Changed coord of trihedron. + +if {$stat != 1} { + puts "Error : Circle has NOT blue color." +} + +set x_coord 170 +set y_coord 319 + +checkcolor $x_coord $y_coord 0 0 1 + +if {$stat != 1} { + puts "Error : Trihedron has NOT blue color." +} + +set only_screen 1 diff --git a/tests/bugs/vis/buc60818 b/tests/bugs/vis/buc60818 new file mode 100755 index 0000000000..3b066f311b --- /dev/null +++ b/tests/bugs/vis/buc60818 @@ -0,0 +1,9 @@ +puts "===========" +puts "BUC60818" +puts "===========" + +vinit +BUC60818 + +set only_screen 1 + diff --git a/tests/bugs/vis/buc60821 b/tests/bugs/vis/buc60821 new file mode 100755 index 0000000000..7c4c33e999 --- /dev/null +++ b/tests/bugs/vis/buc60821 @@ -0,0 +1,23 @@ +puts "===========" +puts "BUC60821" +puts "===========" +puts "==================================" +puts "It takes visual check for this BUG" +puts "==================================" +puts "" + +vinit + +catch {BUC60821 100 200 300} + +set x_coord 206 +set y_coord 195 + +checkcolor $x_coord $y_coord 0 0 0 + +if {$stat != 1} { + puts "Error : The texts have identical height" +} + +set only_screen 1 + diff --git a/tests/bugs/vis/buc60830_1 b/tests/bugs/vis/buc60830_1 new file mode 100755 index 0000000000..1ae875ad8a --- /dev/null +++ b/tests/bugs/vis/buc60830_1 @@ -0,0 +1,17 @@ +puts "=============" +puts "BUC60830" +puts "BUC60829" +puts "=============" + +restore [locate_data_file BUC60830-face1.brep] res +checkshape res + +topoload res +side left +mat +result + +side right +mat +result + diff --git a/tests/bugs/vis/buc60830_2 b/tests/bugs/vis/buc60830_2 new file mode 100755 index 0000000000..b135dcbcae --- /dev/null +++ b/tests/bugs/vis/buc60830_2 @@ -0,0 +1,15 @@ +puts "=============" +puts "BUC60830" +puts "BUC60829" +puts "=============" +coordload res [locate_data_file cont1.dat] +topoload res +drawcont +side left +mat +result +side right +mat +result + + diff --git a/tests/bugs/vis/buc60830_3 b/tests/bugs/vis/buc60830_3 new file mode 100755 index 0000000000..5fa3bf53b9 --- /dev/null +++ b/tests/bugs/vis/buc60830_3 @@ -0,0 +1,16 @@ +puts "=============" +puts "BUC60830" +puts "BUC60829" +puts "=============" + +coordload res [locate_data_file cont2.dat] +topoload res +drawcont +side left +mat +result +side right +mat +result + + diff --git a/tests/bugs/vis/buc60832 b/tests/bugs/vis/buc60832 new file mode 100755 index 0000000000..5dd0f58954 --- /dev/null +++ b/tests/bugs/vis/buc60832 @@ -0,0 +1,21 @@ +puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_" + +puts "============" +puts "BUC60832" +puts "============" +puts "" +################################################################################ +## Try to display this shape in the viewer 3D by means of the method AIS_InteractiveContext::Display(). +## This method calls StdSelect_BRepSelectionTool::ComputeSelection() a recursive method which hangs up an application. +################################################################################ + +restore [locate_data_file BUC60832.brep] result +checkshape result + +tclean result +vinit +vdisplay result +vsetdispmode result 1 +vfit + +set only_screen 1 diff --git a/tests/bugs/vis/buc60851 b/tests/bugs/vis/buc60851 new file mode 100755 index 0000000000..02cb66418d --- /dev/null +++ b/tests/bugs/vis/buc60851 @@ -0,0 +1,14 @@ + +puts "=============" +puts "BUC60851" +puts "=============" +puts "" +########################################################## +## After several manipulations with Triedron of V3d_View class it raises an exception +## (detected in method Visual3d_View::TriedronDisplay) +########################################################## + +BUC60851 +vfit + +set only_screen 1 diff --git a/tests/bugs/vis/buc60857 b/tests/bugs/vis/buc60857 new file mode 100755 index 0000000000..d2e234d143 --- /dev/null +++ b/tests/bugs/vis/buc60857 @@ -0,0 +1,89 @@ +puts "========" +puts "BUC60857" +puts "========" + +vinit +BUC60857 +vfit + +set Property_BLUE [sprops BUC60857_BLUE] +set Square_BLUE [lindex ${Property_BLUE} 2] + +set Property_RED [sprops BUC60857_RED] +set Square_RED [lindex ${Property_RED} 2] + +set Property_GREEN [sprops BUC60857_GREEN] +set Square_GREEN [lindex ${Property_GREEN} 2] + +boundingstr BUC60857_BLUE xmin_BLUE ymin_BLUE zmin_BLUE xmax_BLUE ymax_BLUE zmax_BLUE +boundingstr BUC60857_RED xmin_RED ymin_RED zmin_RED xmax_RED ymax_RED zmax_RED +boundingstr BUC60857_GREEN xmin_GREEN ymin_GREEN zmin_GREEN xmax_GREEN ymax_GREEN zmax_GREEN + +set delta_Square_GB [expr abs(${Square_GREEN} - ${Square_BLUE}) / ${Square_BLUE} * 100] +set delta_Square_BR [expr ${Square_BLUE} / ${Square_RED}] + +set delta_xmin_GB [expr abs([dval xmin_GREEN] - [dval xmin_BLUE]) / [dval xmin_BLUE] * 100] +set delta_ymin_GB [expr abs([dval ymin_GREEN] - [dval ymin_BLUE]) / [dval ymin_BLUE] * 100] +set delta_zmin_GB [expr abs([dval zmin_GREEN] - [dval zmin_BLUE]) / [dval zmin_BLUE] * 100] +set delta_xmax_GB [expr abs([dval xmax_GREEN] - [dval xmax_BLUE]) / [dval xmax_BLUE] * 100] +set delta_ymax_GB [expr abs([dval ymax_GREEN] - [dval ymax_BLUE]) / [dval ymax_BLUE] * 100] +set delta_zmax_GB [expr abs([dval zmax_GREEN] - [dval zmax_BLUE]) / [dval zmax_BLUE] * 100] + +set delta_xmin_RB [expr abs([dval xmin_RED] - [dval xmin_BLUE]) / [dval xmin_BLUE] * 100] +set delta_ymin_RB [expr abs([dval ymin_RED] - [dval ymin_BLUE]) / [dval ymin_BLUE] * 100] +set delta_zmin_RB [expr abs([dval zmin_RED] - [dval zmin_BLUE]) / [dval zmin_BLUE] * 100] +set delta_xmax_RB [expr abs([dval xmax_RED] - [dval xmax_BLUE]) / [dval xmax_BLUE] * 100] +set delta_ymax_RB [expr abs([dval ymax_RED] - [dval ymax_BLUE]) / [dval ymax_BLUE] * 100] +set delta_zmax_RB [expr abs([dval zmax_RED] - [dval zmax_BLUE]) / [dval zmax_BLUE] * 100] + +set H_BLUE [expr [dval zmax_BLUE] - [dval zmin_BLUE] ] +set H_RED [expr [dval zmax_RED] - [dval zmin_RED] ] +set delta_H_RB [expr abs(${H_RED} - ${H_BLUE}) / ${H_BLUE} * 100] + +set maxdelta 0.01 + +if {${delta_Square_GB} > ${maxdelta}} { + puts "delta_Square_GB = ${delta_Square_GB}" + puts "maxdelta = ${maxdelta}" + puts "BUC60857: ERROR (case 1)" +} else { + puts "BUC60857: OK (case 1)" +} + +if {${delta_Square_BR} > 3.0 || \ + ${delta_Square_BR} < 2.9 } { + puts "delta_Square_BR = ${delta_Square_BR}" + puts "delta_Square_BR = ${delta_Square_BR}" + puts "BUC60857: ERROR (case 2)" +} else { + puts "BUC60857: OK (case 2)" +} + +if {${delta_xmin_GB} > ${maxdelta} || \ + ${delta_ymin_GB} > ${maxdelta} || \ + ${delta_zmin_GB} > ${maxdelta} || \ + ${delta_xmax_GB} > ${maxdelta} || \ + ${delta_ymax_GB} > ${maxdelta} || \ + ${delta_zmax_GB} > ${maxdelta} } { + puts "delta_xmin_GB = ${delta_xmin_GB}" + puts "delta_ymin_GB = ${delta_ymin_GB}" + puts "delta_zmin_GB = ${delta_zmin_GB}" + puts "delta_xmax_GB = ${delta_xmax_GB}" + puts "delta_ymax_GB = ${delta_ymax_GB}" + puts "delta_zmax_GB = ${delta_zmax_GB}" + puts "maxdelta = ${maxdelta}" + puts "BUC60857: ERROR (case 3)" +} else { + puts "BUC60857: OK (case 3)" +} + +set maxdelta_H 10 +if {${delta_H_RB} > ${maxdelta_H}} { + puts "delta_H_RB = ${delta_H_RB}" + puts "maxdelta_H = ${maxdelta_H}" + puts "BUC60857: ERROR (case 4)" +} else { + puts "BUC60857: OK (case 4)" +} + +set only_screen 1 diff --git a/tests/bugs/vis/buc60858 b/tests/bugs/vis/buc60858 new file mode 100755 index 0000000000..323e3faa73 --- /dev/null +++ b/tests/bugs/vis/buc60858 @@ -0,0 +1,37 @@ +puts "============" +puts "BUC60858" +puts "============" +puts "" +###################################################################### +## When I gave command "vdisplay a" , where a is shape restored from attached file.DRAW crashes +## with segmentation fault. Exception is raised in the file BRepMesh/triangle.cxx. +###################################################################### + +restore [locate_data_file BUC60858.brep] result + +tclean result +isos 0 +vinit +incmesh result 0.01 +vdisplay result +vfit + +vclear +vdisplay result +vsetdispmode result 1 + +isos result 0 +triangles result + +set info [trinfo result] +regexp { +([-0-9.+eE]+) +triangles} $info full tr +regexp { +([-0-9.+eE]+) +nodes} $info full nd + +if { $tr == 0 || $nd == 0 } { + puts "Error : here is shading problem" +} + +set 3dviewer 1 + + + diff --git a/tests/bugs/vis/buc60876 b/tests/bugs/vis/buc60876 new file mode 100755 index 0000000000..4fb521670c --- /dev/null +++ b/tests/bugs/vis/buc60876 @@ -0,0 +1,21 @@ +puts "========" +puts "BUC60876" +puts "========" +puts "" + +pcylinder c 100 300 +vinit +BUC60876 c +vfit +QAMoveTo 200 200 +QAMoveTo 200 200 + +QAUpdateLights + +set x_coord 200 +set y_coord 200 + +checkcolor $x_coord $y_coord 0 1 1 + +set only_screen 1 + diff --git a/tests/bugs/vis/buc60887 b/tests/bugs/vis/buc60887 new file mode 100755 index 0000000000..3f94031a71 --- /dev/null +++ b/tests/bugs/vis/buc60887 @@ -0,0 +1,20 @@ +puts "============" +puts "BUC60887" +puts "============" +puts "" +############################################ +## Shape hangs after command " vdisplay " in the Viewer3d. +############################################ + +restore [locate_data_file BUC60887.brep] result + +set nb_info [nbshapes result] +regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full nb_v + +puts [format "Shape res contains %s vertexes" $nb_v] +if { $nb_v == 0} { + puts "Error : Result shape is NULL shape" +} else { + set 3dviewer 1 +} + diff --git a/tests/bugs/vis/buc60915 b/tests/bugs/vis/buc60915 new file mode 100755 index 0000000000..12d64d1d68 --- /dev/null +++ b/tests/bugs/vis/buc60915 @@ -0,0 +1,31 @@ +if { [array get env os_type] != "" } { + set os $env(os_type) +} +if { [string compare $os "windows"] != 0 } { + puts "TODO OCC12345 ALL: An exception was caught" + puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*" + puts "TODO OCC12345 ALL: TEST INCOMPLETE" +} + +puts "===========" +puts "BUC60915" +puts "===========" +puts "==================================" +puts "It takes visual check for this BUG" +puts "==================================" + +vinit +BUC60915 + +set x_coord 300 +set y_coord 164 + +checkcolor $x_coord $y_coord 0.51 0.98 0 + +if {$stat != 1} { + puts "Error : Cannot set the arrow size when using AIS_LengthDimension or AIS_RadiusDimensin." +} + +set only_screen 1 + + diff --git a/tests/bugs/vis/buc60920 b/tests/bugs/vis/buc60920 new file mode 100755 index 0000000000..03ddc39b5f --- /dev/null +++ b/tests/bugs/vis/buc60920 @@ -0,0 +1,22 @@ +puts "===========" +puts "BUC60920" +puts "===========" +puts "==================================" +puts "It takes visual check for this BUG" +puts "==================================" +######################################################################### +## Bug in Viewer3d: curves and points are not highlighted when mouse pointer is moved over in shading mode. +######################################################################### + +vinit +BUC60920 +vfit + +QAUpdateLights + +set x_coord 315 +set y_coord 210 + +checkcolor $x_coord $y_coord 0 1 1 + +set only_screen 1 diff --git a/tests/bugs/vis/bug112_1 b/tests/bugs/vis/bug112_1 index 3fb9064ceb..4b2186f35a 100755 --- a/tests/bugs/vis/bug112_1 +++ b/tests/bugs/vis/bug112_1 @@ -4,7 +4,7 @@ puts " OCC112 " puts "========================" restore [locate_data_file OCC20.brep] res -puts [checkshape res] +checkshape res set first [trinfo res] tclean res diff --git a/tests/bugs/vis/bug173_1 b/tests/bugs/vis/bug173_1 index 8e4b5b732e..dcc9f0e6fd 100755 --- a/tests/bugs/vis/bug173_1 +++ b/tests/bugs/vis/bug173_1 @@ -9,7 +9,7 @@ puts "" ########################################################### restore [locate_data_file OCC173.brep] result -puts [checkshape result] +checkshape result vinit result tclean diff --git a/tests/bugs/vis/bug173_2 b/tests/bugs/vis/bug173_2 index 65a05cac43..fcc6bbb0bc 100755 --- a/tests/bugs/vis/bug173_2 +++ b/tests/bugs/vis/bug173_2 @@ -9,7 +9,7 @@ puts "" ########################################################### restore [locate_data_file OCC173.brep] result -puts [checkshape result] +checkshape result vinit tclean result diff --git a/tests/bugs/vis/bug173_3 b/tests/bugs/vis/bug173_3 index 2e9c422449..f99919b26a 100755 --- a/tests/bugs/vis/bug173_3 +++ b/tests/bugs/vis/bug173_3 @@ -10,7 +10,7 @@ puts "" restore [locate_data_file OCC173.brep] result -puts [checkshape result] +checkshape result vinit tclean result diff --git a/tests/bugs/vis/bug19_1 b/tests/bugs/vis/bug19_1 index c718051632..fd341932b2 100755 --- a/tests/bugs/vis/bug19_1 +++ b/tests/bugs/vis/bug19_1 @@ -4,7 +4,7 @@ puts "================" puts "" restore [locate_data_file OCC19.brep] result -puts [checkshape result] +checkshape result tclean result incmesh result .9 diff --git a/tests/bugs/vis/bug19_2 b/tests/bugs/vis/bug19_2 index 23c01b5a43..0089a7d77f 100755 --- a/tests/bugs/vis/bug19_2 +++ b/tests/bugs/vis/bug19_2 @@ -4,7 +4,7 @@ puts "================" puts "" restore [locate_data_file OCC19.brep] result -puts [checkshape result] +checkshape result tclean result vinit diff --git a/tests/bugs/vis/bug288_1 b/tests/bugs/vis/bug288_1 index 4c2029ab52..2d6c8bc28b 100755 --- a/tests/bugs/vis/bug288_1 +++ b/tests/bugs/vis/bug288_1 @@ -4,7 +4,7 @@ puts "(case 1)" puts "========================" restore [locate_data_file shading_058.brep] result -puts [checkshape result] +checkshape result tclean result vinit diff --git a/tests/bugs/vis/bug288_2 b/tests/bugs/vis/bug288_2 index 8657c2c1c2..e9ec41c774 100755 --- a/tests/bugs/vis/bug288_2 +++ b/tests/bugs/vis/bug288_2 @@ -4,7 +4,7 @@ puts "(case 2)" puts "========================" restore [locate_data_file shading_105.brep] result -puts [checkshape result] +checkshape result tclean result vinit diff --git a/tests/bugs/vis/bug288_3 b/tests/bugs/vis/bug288_3 index dad77c3729..8da0807dbf 100755 --- a/tests/bugs/vis/bug288_3 +++ b/tests/bugs/vis/bug288_3 @@ -4,7 +4,7 @@ puts "(case 3)" puts "========================" restore [locate_data_file shading_107.brep] result -puts [checkshape result] +checkshape result tclean result vinit diff --git a/tests/bugs/vis/bug288_4 b/tests/bugs/vis/bug288_4 index fab7c1b1ee..45e0302852 100755 --- a/tests/bugs/vis/bug288_4 +++ b/tests/bugs/vis/bug288_4 @@ -4,7 +4,7 @@ puts "(case 4)" puts "========================" restore [locate_data_file shading_151.brep] result -puts [checkshape result] +checkshape result tclean result vinit diff --git a/tests/bugs/vis/bug288_5 b/tests/bugs/vis/bug288_5 index 5b72f3610f..46c7f960bd 100755 --- a/tests/bugs/vis/bug288_5 +++ b/tests/bugs/vis/bug288_5 @@ -1,7 +1,7 @@ puts "============ OCC288 (case 5) ===============" restore [locate_data_file OCC288e.brep] result -puts [checkshape result] +checkshape result tclean result vinit diff --git a/tests/bugs/vis/bug344 b/tests/bugs/vis/bug344 index d895859c69..ec4e51dab7 100755 --- a/tests/bugs/vis/bug344 +++ b/tests/bugs/vis/bug344 @@ -9,7 +9,7 @@ puts "" ############################################# restore [locate_data_file OCC344.brep] result -puts [checkshape result] +checkshape result tclean result vinit diff --git a/tests/bugs/vis/bug364 b/tests/bugs/vis/bug364 index 472c96f662..b42dd85ae4 100755 --- a/tests/bugs/vis/bug364 +++ b/tests/bugs/vis/bug364 @@ -8,7 +8,7 @@ puts "" ############################################## restore [locate_data_file OCC364.brep] result -puts [checkshape result] +checkshape result tclean result isos result 0 diff --git a/tests/bugs/vis/bug378 b/tests/bugs/vis/bug378 new file mode 100755 index 0000000000..a085386883 --- /dev/null +++ b/tests/bugs/vis/bug378 @@ -0,0 +1,23 @@ +puts "========================" +puts "BUC61058" +puts " OCC378 " +puts "========================" +puts "" +######################################################################## +##Regression on KAS:dev:ros. Draw hangs after try to load 6381.brep shape to 3D Viewer. Case : cgg/004/S2 +######################################################################## + +restore [locate_data_file OCC378.brep] result + +tclean result +vinit + +if [catch {vdisplay result } res] { + puts "Error : function VDISPLAY works wrongly" +} + +vfit + +set only_screen 1 + + diff --git a/tests/bugs/vis/bug443 b/tests/bugs/vis/bug443 new file mode 100755 index 0000000000..0461af9413 --- /dev/null +++ b/tests/bugs/vis/bug443 @@ -0,0 +1,22 @@ +puts "========" +puts "OCC443" +puts "========" +puts "" +############################################################### +##"Fit all view" ives not centered picture during fitting the view (SAM024). +############################################################### + +restore [locate_data_file OCC443.brep] result + +vinit +vdisplay result +vfit + +set x_coord 31 +set y_coord 304 + +QAUpdateLights + +checkcolor $x_coord $y_coord 0 0 0 + +set only_screen 1 diff --git a/tests/bugs/vis/bug451 b/tests/bugs/vis/bug451 new file mode 100755 index 0000000000..f940d902c4 --- /dev/null +++ b/tests/bugs/vis/bug451 @@ -0,0 +1,34 @@ +puts "========================" +puts " OCC451 " +puts "========================" +puts "" +############################################################# +## puts "Choosing of viewer MODA for selection of VERTEX" +## puts "(visual checking for this case is desirable)" +## +# Selection Modes Activation: +# 0 - OBJECT, 1 - VERTEX, 2 - ELEMENT, 3 - VERTEX, 4 - NONE +############################################################# + +vertex v1 0 0 0 +vertex v2 10 10 10 +v2dinit +v2ddisplay v1 +v2ddisplay v2 +v2dfit + +set x_coord 49 +set y_coord 361 +set color2d 1 + +QAv2dSetHighlightMode 3 +QAMoveTo2d 0 0 +QASelect2d $x_coord $y_coord + +checkcolor $x_coord $y_coord 0.8 0.8 0.8 + +if {$stat != 1} { + puts "Error : Choosing of viewer MOD for selection of VERTEX was NOT MADE properly" +} + +set only_screen2d 1 diff --git a/tests/bugs/vis/bug591 b/tests/bugs/vis/bug591 new file mode 100755 index 0000000000..c2ff934634 --- /dev/null +++ b/tests/bugs/vis/bug591 @@ -0,0 +1,25 @@ +puts "========" +puts "OCC591" +puts "========" +puts "" + +restore [locate_data_file OCC591.brep] result +tclean result +vinit +vdisplay result +vfit +vsetdispmode result 1 +vsettransparency result .5 + +QAUpdateLights + +set x_coord 250 +set y_coord 115 + +checkcolor $x_coord $y_coord 0.58 0.41 0.07 + +if {$stat != 1} { + puts "Error : Function VSETTRANSPARENCY works wrongly." +} + +set only_screen 1 diff --git a/tests/bugs/vis/bug597_1 b/tests/bugs/vis/bug597_1 new file mode 100755 index 0000000000..cce24f1aaa --- /dev/null +++ b/tests/bugs/vis/bug597_1 @@ -0,0 +1,52 @@ +if { [array get env os_type] != "" } { + set os $env(os_type) +} +if { [string compare $os "windows"] != 0 } { + puts "TODO OCC12345 ALL: An exception was caught" + puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*" + puts "TODO OCC12345 ALL: TEST INCOMPLETE" +} + +puts "==================================" +puts "BUC60569" +puts "OCC597" +puts "==================================" +puts "It takes visual check for this BUG" +puts "==================================" + +restore [locate_data_file buc60569a.rle] result +tclean result +vinit + +checkshape result + +BUC60569 result +vfit +QAMoveTo 250 190 +QASelect 250 190 +QAUpdateLights + +set x_coord 335 +set y_coord 331 + +checkcolor $x_coord $y_coord 0.8 0.8 0.8 + +if {$stat != 1} { + puts "Error : The right face is NOT Selected by Select command." +} + +QAShiftSelect 180 350 +QAUpdateLights + +set x_coord 101 +set y_coord 347 + +checkcolor $x_coord $y_coord 0.8 0.8 0.8 + +if {$stat != 1} { + puts "Error : The left face is NOT Selected by Shift Select command." +} + +set only_screen 1 + + diff --git a/tests/bugs/vis/bug597_2 b/tests/bugs/vis/bug597_2 new file mode 100755 index 0000000000..361e55bca6 --- /dev/null +++ b/tests/bugs/vis/bug597_2 @@ -0,0 +1,41 @@ +if { [array get env os_type] != "" } { + set os $env(os_type) +} +if { [string compare $os "windows"] != 0 } { + puts "TODO OCC12345 ALL: An exception was caught" + puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*" + puts "TODO OCC12345 ALL: TEST INCOMPLETE" +} + +puts "==================================" +puts "BUC60569" +puts "OCC597" +puts "==================================" +puts "It takes visual check for this BUG" +puts "==================================" +puts "" + +restore [locate_data_file buc60569a.rle] result +tclean result +vinit + +checkshape result + +BUC60569 result +vfit +QAMoveTo 250 190 +QASelect 250 190 +QAShiftSelect 180 350 +QAMoveTo 250 190 +QAUpdateLights + +set x_coord 335 +set y_coord 331 + +checkcolor $x_coord $y_coord 0.8 0.8 0.8 + +if {$stat != 1} { + puts "Error : The right face is highlighted by Move To command." +} + +set only_screen 1 diff --git a/tests/bugs/vis/bug597_3 b/tests/bugs/vis/bug597_3 new file mode 100755 index 0000000000..aa3430f5e9 --- /dev/null +++ b/tests/bugs/vis/bug597_3 @@ -0,0 +1,46 @@ +if { [array get env os_type] != "" } { + set os $env(os_type) +} +if { [string compare $os "windows"] != 0 } { + puts "TODO OCC12345 ALL: An exception was caught" + puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*" + puts "TODO OCC12345 ALL: TEST INCOMPLETE" +} + +puts "==================================" +puts "BUC60569" +puts "OCC597" +puts "==================================" +puts "" +puts "==================================" +puts "It takes visual check for this BUG" +puts "==================================" +puts "" + +restore [locate_data_file buc60569a.rle] result +tclean result +vinit + +checkshape result + +BUC60569 result +vfit + +QAMoveTo 250 190 +QASelect 250 190 +QAShiftSelect 180 350 +QAMoveTo 250 190 +QAMoveTo 180 350 +QAUpdateLights + +set x_coord 101 +set y_coord 347 + +checkcolor $x_coord $y_coord 0 1 1 + +if {$stat != 1} { + puts "Error : The left face is highlighted by Move To command" +} + +set only_screen 1 + diff --git a/tests/bugs/vis/bug597_4 b/tests/bugs/vis/bug597_4 new file mode 100755 index 0000000000..7befdc918f --- /dev/null +++ b/tests/bugs/vis/bug597_4 @@ -0,0 +1,56 @@ +if { [array get env os_type] != "" } { + set os $env(os_type) +} +if { [string compare $os "windows"] != 0 } { + puts "TODO OCC12345 ALL: An exception was caught" + puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*" + puts "TODO OCC12345 ALL: TEST INCOMPLETE" +} + +puts "==================================" +puts "BUC60569" +puts "OCC597" +puts "==================================" +puts "" +puts "==================================" +puts "It takes visual check for this BUG" +puts "==================================" +puts "" + +restore [locate_data_file buc60569a.rle] result +tclean result +vinit + +checkshape result + +BUC60569 result +vfit +QAMoveTo 250 190 + +QASelect 250 190 +QAShiftSelect 180 350 +QAMoveTo 250 190 +QAMoveTo 180 350 +QASelect 390 390 +QAUpdateLights + +set x_coord 335 +set y_coord 331 + +checkcolor $x_coord $y_coord 1 1 0 + +if {$stat != 1} { + puts "Error : The right face is NOT deSelected." +} + +set x_coord 101 +set y_coord 347 + +checkcolor $x_coord $y_coord 1 1 0 + +if {$stat != 1} { + puts "Error : The left face is NOT deSelected" +} + +set only_screen 1 + diff --git a/tests/bugs/vis/bug597_5 b/tests/bugs/vis/bug597_5 new file mode 100755 index 0000000000..70f8ce6969 --- /dev/null +++ b/tests/bugs/vis/bug597_5 @@ -0,0 +1,59 @@ +if { [array get env os_type] != "" } { + set os $env(os_type) +} +if { [string compare $os "windows"] != 0 } { + puts "TODO OCC12345 ALL: An exception was caught" + puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*" + puts "TODO OCC12345 ALL: TEST INCOMPLETE" +} + +puts "==================================" +puts "BUC60569" +puts "OCC597" +puts "==================================" +puts "" +puts "==================================" +puts "It takes visual check for this BUG" +puts "==================================" +puts "" + +restore [locate_data_file buc60569a.rle] result +tclean result +vinit + +checkshape result + +BUC60569 result +vfit +QAMoveTo 250 190 +QASelect 250 190 +QAShiftSelect 180 350 +QAMoveTo 250 190 +QAMoveTo 180 350 +QASelect 390 390 +QAShiftSelect 250 190 +QAUpdateLights + +set x_coord 335 +set y_coord 331 + +checkcolor $x_coord $y_coord 0.8 0.8 0.8 + +if {$stat != 1} { + puts "Error : The right face is NOT Selected by Shift Select command" +} + +QAShiftSelect 180 350 +QAUpdateLights + +set x_coord 101 +set y_coord 347 + +checkcolor $x_coord $y_coord 0.8 0.8 0.8 + +if {$stat != 1} { + puts "Error : The left face is Selected by Shift Select command" +} + +set only_screen 1 + diff --git a/tests/bugs/vis/bug597_6 b/tests/bugs/vis/bug597_6 new file mode 100755 index 0000000000..e8d632e169 --- /dev/null +++ b/tests/bugs/vis/bug597_6 @@ -0,0 +1,49 @@ +if { [array get env os_type] != "" } { + set os $env(os_type) +} +if { [string compare $os "windows"] != 0 } { + puts "TODO OCC12345 ALL: An exception was caught" + puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*" + puts "TODO OCC12345 ALL: TEST INCOMPLETE" +} + +puts "==================================" +puts "BUC60569" +puts "OCC597" +puts "==================================" +puts "" +puts "==================================" +puts "It takes visual check for this BUG" +puts "==================================" +puts "" + +restore [locate_data_file buc60569a.rle] result +tclean result +vinit + +checkshape result + +BUC60569 result +vfit + +QAMoveTo 250 190 +QASelect 250 190 +QAShiftSelect 180 350 +QAMoveTo 250 190 +QAMoveTo 180 350 +QASelect 390 390 +QAShiftSelect 250 190 +QAShiftSelect 180 350 +QAMoveTo 250 190 +QAUpdateLights + +set x_coord 335 +set y_coord 331 + +checkcolor $x_coord $y_coord 0 1 1 + +if {$stat != 1} { + puts "Error : The right face is NOT highlighted by Move To command." +} + +set only_screen 1 diff --git a/tests/bugs/vis/bug597_7 b/tests/bugs/vis/bug597_7 new file mode 100755 index 0000000000..88a331ae94 --- /dev/null +++ b/tests/bugs/vis/bug597_7 @@ -0,0 +1,51 @@ +if { [array get env os_type] != "" } { + set os $env(os_type) +} +if { [string compare $os "windows"] != 0 } { + puts "TODO OCC12345 ALL: An exception was caught" + puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*" + puts "TODO OCC12345 ALL: TEST INCOMPLETE" +} + + +puts "==================================" +puts "BUC60569" +puts "OCC597" +puts "==================================" +puts "" +puts "==================================" +puts "It takes visual check for this BUG" +puts "==================================" +puts "" + +restore [locate_data_file buc60569a.rle] result +tclean result +vinit + +checkshape result + +BUC60569 result +vfit + +QAMoveTo 250 190 +QASelect 250 190 +QAShiftSelect 180 350 +QAMoveTo 250 190 +QAMoveTo 180 350 +QASelect 390 390 +QAShiftSelect 250 190 +QAShiftSelect 180 350 +QAMoveTo 250 190 +QAMoveTo 180 350 + +set x_coord 335 +set y_coord 331 + +checkcolor $x_coord $y_coord 0.8 0.8 0.8 + +if {$stat != 1} { + puts "Error : The right face is NOT highlighted by Move To command." +} + +set only_screen 1 + diff --git a/tests/bugs/vis/bug641 b/tests/bugs/vis/bug641 new file mode 100755 index 0000000000..25aa839d6e --- /dev/null +++ b/tests/bugs/vis/bug641 @@ -0,0 +1,28 @@ +puts "================" +puts "OCC641" +puts "SAM1559" +puts "================" +puts "" +################################################# +## Exception during attemption to display shape ==>SAM1559 (#2901) +################################################# + +restore [locate_data_file OCC641.brep] a + +vinit +vdisplay a +vfit + +copy a b + +if [catch {tmirror result 0 0 0 0 1 0 } res] { + puts "Error : function tmirror works wrongly" +} else { + if [catch { vdisplay result } res] { + puts "Error : result shape is displaed wrongly" + } + vfit +} + +set only_screen 1 + diff --git a/tests/bugs/vis/bug708 b/tests/bugs/vis/bug708 new file mode 100755 index 0000000000..cc235d8076 --- /dev/null +++ b/tests/bugs/vis/bug708 @@ -0,0 +1,18 @@ +puts "========" +puts "OCC708" +puts "OCC1011" +puts "========" +puts "" +####################################################### +## UnsetTransformation() of the AIS_InteractiveObject crashes an application +####################################################### +vinit +box result 10 10 10 +vdisplay result +vfit + +if [catch { OCC708 result }] { + puts "Faulty OCC708" +} + +set only_screen 1 diff --git a/tests/bugs/vis/bug727 b/tests/bugs/vis/bug727 new file mode 100755 index 0000000000..6d9b1b697e --- /dev/null +++ b/tests/bugs/vis/bug727 @@ -0,0 +1,38 @@ +puts "============" +puts "OCC727" +puts "============" +puts "" +############################# +## The second object can not be deselected. +############################# + +box a 10 10 10 +box b 50 50 50 10 10 10 + +vinit +vdisplay a +vdisplay b +vfit + +set x1 60 +set y1 300 +set x2 350 +set y2 120 + +QASelect 0 0 +QASelect ${x1} ${y1} +QAShiftSelect ${x2} ${y2} + +set NbSelected1 [QANbSelected] +if { ${NbSelected1} != 2 } { + puts "Error : (case 1)" +} + +QAShiftSelect ${x2} ${y2} + +set NbSelected1 [QANbSelected] +if { ${NbSelected1} != 1 } { + puts "Error : (case 2)" +} + +set only_screen 1 diff --git a/tests/bugs/vis/bug872 b/tests/bugs/vis/bug872 new file mode 100755 index 0000000000..77d80e8e75 --- /dev/null +++ b/tests/bugs/vis/bug872 @@ -0,0 +1,21 @@ +puts "=======" +puts "OCC872" +puts "SAM1660" +puts "=======" +puts "" + +######################################## +## Exception is raised during vizualization attached shape. +######################################## + +cpulimit 3000 +cpulimit 3500 + +restore [locate_data_file OCC872.brep] result + +vinit +vdisplay result +vfit +vsetdispmode 1 + +set only_screen 1 diff --git a/tests/bugs/vis/ger61351_1 b/tests/bugs/vis/ger61351_1 new file mode 100755 index 0000000000..62b89343a6 --- /dev/null +++ b/tests/bugs/vis/ger61351_1 @@ -0,0 +1,20 @@ +puts "===============" +puts " GER61351 " +puts "==================================" +puts "CASE 1 :takes visual check " +puts "==================================" + +vinit +GER61351 RED2 +QAUpdateLights + +set x_coord 200 +set y_coord 200 + +checkcolor $x_coord $y_coord 0.93 0 0 + +if {$stat != 1} { + puts "Error : Background color is NOT RED2." +} + +set only_screen 1 diff --git a/tests/bugs/vis/ger61351_2 b/tests/bugs/vis/ger61351_2 new file mode 100755 index 0000000000..50964299f5 --- /dev/null +++ b/tests/bugs/vis/ger61351_2 @@ -0,0 +1,24 @@ +puts "===============" +puts " GER61351 " +puts " CASE 2 " +puts "===============" +puts "" +puts "==================================" +puts "It takes visual check for this BUG" +puts "==================================" + +vinit + +GER61351 0 255 0 +QAUpdateLights + +set x_coord 200 +set y_coord 200 + +checkcolor $x_coord $y_coord 0 1 0 + +if {$stat != 1} { + puts "Error : Background color is NOT 0 1 0." +} + +set only_screen 1 diff --git a/tests/bugs/vis/ger61351_3 b/tests/bugs/vis/ger61351_3 new file mode 100755 index 0000000000..221fef770c --- /dev/null +++ b/tests/bugs/vis/ger61351_3 @@ -0,0 +1,22 @@ +puts "===============" +puts " GER61351 " +puts "==================================" +puts "CASE 3 :takes visual check " +puts "==================================" + +vinit +box b 10 20 30 +GER61351 b RED2 +vfit +QAUpdateLights + +set x_coord 89 +set y_coord 363 + +checkcolor $x_coord $y_coord 0.93 0 0 + +if {$stat != 1} { + puts "Error : Box color is NOT RED2." +} + +set only_screen 1 diff --git a/tests/bugs/vis/ger61351_4 b/tests/bugs/vis/ger61351_4 new file mode 100755 index 0000000000..c35f22e044 --- /dev/null +++ b/tests/bugs/vis/ger61351_4 @@ -0,0 +1,30 @@ +puts "TODO OCC12345 ALL: An exception was caught" +puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*" +puts "TODO OCC12345 ALL: TEST INCOMPLETE" + +puts "===============" +puts " GER61351 " +puts " CASE 4 " +puts "===============" +puts "" +puts "==================================" +puts "It takes visual check for this BUG" +puts "==================================" + +vinit + +box b 30 20 10 +GER61351 b 0 0 255 +vfit +QAUpdateLights + +set x_coord 89 +set y_coord 363 + +checkcolor $x_coord $y_coord 0 1 1 + +if {$stat != 1} { + puts "Error : Box color is NOT 0 0 1" +} + +set only_screen 1 diff --git a/tests/bugs/vis/ger61351_5 b/tests/bugs/vis/ger61351_5 new file mode 100755 index 0000000000..8536571436 --- /dev/null +++ b/tests/bugs/vis/ger61351_5 @@ -0,0 +1,30 @@ +puts "TODO OCC12345 ALL: An exception was caught" +puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*" +puts "TODO OCC12345 ALL: TEST INCOMPLETE" + +puts "===============" +puts " GER61351 " +puts " CASE 5 " +puts "===============" +puts "" +puts "==================================" +puts "It takes visual check for this BUG" +puts "==================================" + +vinit + +box b 20 10 30 +GER61351 b 0 255 255 +vfit +QAUpdateLights + +set x_coord 89 +set y_coord 363 + +checkcolor $x_coord $y_coord 0 1 1 + +if {$stat != 1} { + puts "Error : Box color is NOT 0 1 1" +} + +set only_screen 1 diff --git a/tests/bugs/vis/ger61351_6 b/tests/bugs/vis/ger61351_6 new file mode 100755 index 0000000000..d616613ab5 --- /dev/null +++ b/tests/bugs/vis/ger61351_6 @@ -0,0 +1,22 @@ +puts "===============" +puts " GER61351 " +puts "============================" +puts "CASE 6 takes visual check " +puts "============================" + +vinit +box b 20 10 30 +GER61351 b CYAN3 +vfit +QAUpdateLights + +set x_coord 88 +set y_coord 316 + +checkcolor $x_coord $y_coord 0 0.8 0.8 + +if {$stat != 1} { + puts "Error : Box color is NOT CYAN3" +} + +set only_screen 1 diff --git a/tests/bugs/vis/pro20342 b/tests/bugs/vis/pro20342 new file mode 100755 index 0000000000..ebfaeb68f1 --- /dev/null +++ b/tests/bugs/vis/pro20342 @@ -0,0 +1,24 @@ +puts "TODO OCC12345 ALL: Tcl Exception: result_1 is not a topological shape!!!" +puts "TODO OCC12345 ALL: TEST INCOMPLETE" +puts "=============" +puts "PRO20342" +puts "=============" + +############################################################################## +## Calling of the function "vsetshading" with argument less than 1.0 calls exception "Segmentation Fault". Command +## works properly in C30. There is line in the file "C40/Gallery/ViewerTest.cxx" in the function "Vshading": +############################################################################## + +pload XDE + +igesbrep [locate_data_file fra62523a.igs] result * + +checkshape result_1 r + +vinit +tclean result_1 +vdisplay result_1 +vsetshading result_1 0.1 +vfit + +set only_screen 1 diff --git a/tests/bugs/xde/bug125_1 b/tests/bugs/xde/bug125_1 index fb059b8caa..a2b6af9c42 100755 --- a/tests/bugs/xde/bug125_1 +++ b/tests/bugs/xde/bug125_1 @@ -9,7 +9,7 @@ puts "" restore [locate_data_file OCC125-1.brep] shell1 fixshape result shell1 1e-7 -puts [checkshape result] +checkshape result set square 282.743 diff --git a/tests/bugs/xde/bug125_2 b/tests/bugs/xde/bug125_2 index 18a03f0e63..a9ff9380e3 100755 --- a/tests/bugs/xde/bug125_2 +++ b/tests/bugs/xde/bug125_2 @@ -9,7 +9,7 @@ puts "" restore [locate_data_file OCC125-2.brep] shell2 fixshape result shell2 1e-7 -puts [checkshape result] +checkshape result set square 282.743 diff --git a/tests/bugs/xde/bug168 b/tests/bugs/xde/bug168 index 939c096b1a..c1da362100 100755 --- a/tests/bugs/xde/bug168 +++ b/tests/bugs/xde/bug168 @@ -8,7 +8,7 @@ puts "" restore [locate_data_file OCC168.brep] a fixshape result a 1e-7 -puts [checkshape result] +checkshape result set square 992.596 diff --git a/tests/bugs/xde/bug169 b/tests/bugs/xde/bug169 index 8c4c6030f8..285356f4b1 100755 --- a/tests/bugs/xde/bug169 +++ b/tests/bugs/xde/bug169 @@ -6,7 +6,7 @@ puts "" restore [locate_data_file OCC169.brep] a fixshape result a 1e-7 -puts [checkshape result] +checkshape result set square 6.27959 diff --git a/tests/bugs/xde/bug184 b/tests/bugs/xde/bug184 index 15e1226415..3c13195f1a 100755 --- a/tests/bugs/xde/bug184 +++ b/tests/bugs/xde/bug184 @@ -10,7 +10,7 @@ puts "FaceBrep must be identical FaceIGES!!!" puts "========" restore [locate_data_file OCC184.brep] FaceBrep -puts [checkshape FaceBrep] +checkshape FaceBrep set dum1 [nbshapes FaceBrep] regexp {VERTEX +: +([-0-9.+eE]+)} $dum1 full nb_v1 @@ -32,7 +32,7 @@ catch {exec chmod 777 ${imagedir}/OCC184.igs} igesbrep ${imagedir}/OCC184.igs FaceIGES * sewing result FaceIGES -puts [checkshape result] +checkshape result set dum2 [nbshapes result] regexp {VERTEX +: +([-0-9.+eE]+)} $dum2 full nb_v2 diff --git a/tests/bugs/xde/bug2 b/tests/bugs/xde/bug2 index 69466466cd..69a8a730be 100755 --- a/tests/bugs/xde/bug2 +++ b/tests/bugs/xde/bug2 @@ -4,7 +4,7 @@ puts "================" puts "" restore [locate_data_file OCC46.brep] result -puts [checkshape result] +checkshape result set l [lindex [statshape result] 5] diff --git a/tests/bugs/xde/bug23384 b/tests/bugs/xde/bug23384 old mode 100644 new mode 100755 diff --git a/tests/bugs/xde/bug321 b/tests/bugs/xde/bug321 index 1c2c204c03..29d99e492d 100755 --- a/tests/bugs/xde/bug321 +++ b/tests/bugs/xde/bug321 @@ -12,8 +12,8 @@ puts '' stepread [locate_data_file OCC321.stp] a * tpcompound a -puts [checkshape a] -puts [checkshape a r] +checkshape a +checkshape a r ###################################################################### catch {exec rm ${imagedir}/OCC321.iges} @@ -24,7 +24,7 @@ dall igesbrep ${imagedir}/OCC321.iges b * tpcompound result -puts [checkshape result] +checkshape result set 2dviewer 0 diff --git a/tests/bugs/xde/bug34 b/tests/bugs/xde/bug34 index f7e58f06f4..868205e6d9 100755 --- a/tests/bugs/xde/bug34 +++ b/tests/bugs/xde/bug34 @@ -10,7 +10,7 @@ restore [locate_data_file OCC34.brep] sh fixshape result sh 1.e-7 1 -puts [checkshape result] +checkshape result set square 116.889 set prop "square" diff --git a/tests/bugs/xde/bug445 b/tests/bugs/xde/bug445 index de1f6a90ac..6f385bf37d 100755 --- a/tests/bugs/xde/bug445 +++ b/tests/bugs/xde/bug445 @@ -7,7 +7,7 @@ restore [locate_data_file OCC501.brep] a fixshape result a 1e-7 -puts [checkshape result] +checkshape result set volume 477547 set prop "volume" diff --git a/tests/bugs/xde/bug547_1 b/tests/bugs/xde/bug547_1 new file mode 100755 index 0000000000..aa0bd7d143 --- /dev/null +++ b/tests/bugs/xde/bug547_1 @@ -0,0 +1,33 @@ +puts "========================" +puts " OCC547 " +puts "(case 1)" +puts "========================" +puts "" +#################################### +## Big tolerance after commmand fixshape r a 1.e-7 1 +#################################### + +cpulimit 3000 + +restore [locate_data_file OCC547.brep] a + +set tol1 [maxtolerance a] +regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full face1 +regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full edge1 +regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full vert1 + +fixshape result a 1.e-7 1 + +set tol2 [ maxtolerance result] +regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full face2 +regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full edge2 +regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full vert2 + +if { ${face2} > ${face1} || ${edge2} > ${edge1} || ${vert2} > ${vert1} } { + puts "Error : Tolerance invalid. Function FixShape works WRONGLY" +} else { + puts "Tolerance valed. Function FixShape works CORRECTLY" +} + +set 2dviewer 1 + diff --git a/tests/bugs/xde/bug547_2 b/tests/bugs/xde/bug547_2 new file mode 100755 index 0000000000..371773ad92 --- /dev/null +++ b/tests/bugs/xde/bug547_2 @@ -0,0 +1,32 @@ +puts "TODO OCC12345 ALL: Error : Tolerance invalid. Function FixShape works WRONGLY" + +puts "========================" +puts " OCC547 " +puts "(case 2)" +puts "========================" +puts "" +################################## +## Big tolerance after "sewing" with tolearnce 0.5 +################################## + +restore [locate_data_file OCC547.brep] a + +set tol1 [maxtolerance a] +regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full face1 +regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full edge1 +regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol1 full vert1 + +sewing result a 0.5 a + +set tol2 [ maxtolerance result] +regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full face2 +regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full edge2 +regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tol2 full vert2 + +if { ${face2} > ${face1} || ${edge2} > ${edge1} || ${vert2} > ${vert1} } { + puts "Error : Tolerance invalid. Function FixShape works WRONGLY" +} else { + puts "Tolerance valed. Function FixShape works CORRECTLY" +} + +set 2dviewer 1 diff --git a/tests/bugs/xde/bug659 b/tests/bugs/xde/bug659 new file mode 100755 index 0000000000..453f780bf7 --- /dev/null +++ b/tests/bugs/xde/bug659 @@ -0,0 +1,42 @@ +puts "================" +puts "OCC659" +puts "================" +puts "" +############################################# +## Units are not taken into account while translating IGES surfaces +############################################# + +param read.surfacecurve.mode -2 + +if [catch { igesbrep [locate_data_file D44-11325-6.igs] a 6425 } res] { + puts "Faulty OCC659 first: here is reading problem" +} + +renamevar a_1 a1 + +param read.surfacecurve.mode -3 + +if [catch { igesbrep . a 6425 } res] { + puts "Faulty OCC659 second: here is reading problem" +} + +renamevar a_1 a2 + +set size1 [ bounding a1 ] +set size2 [ bounding a2 ] + +set x1_a1 [ lindex $size1 0 ] +set x2_a1 [ lindex $size1 3 ] + +set x1_a2 [ lindex $size2 0 ] +set x2_a2 [ lindex $size2 3 ] + +set dim2 [ expr $x2_a2 - $x1_a2 ] +set dim1 [ expr $x2_a1 - $x1_a1 ] + +set siz [expr ${dim1} / ${dim2}] +if { $siz > 25} { + puts "Faulty OCC659" +} else { + puts " OCC659 OK" +} diff --git a/tests/bugs/xde/bug660 b/tests/bugs/xde/bug660 new file mode 100755 index 0000000000..92a396a829 --- /dev/null +++ b/tests/bugs/xde/bug660 @@ -0,0 +1,23 @@ +puts "================" +puts "OCC660" +puts "================" +puts "" +####################################################### +## Surfaces types changed while reading IGES, causing problems with 2d mapping +####################################################### + +if [catch { igesbrep [locate_data_file D44-11325-6.igs] a 6425 } res] { + puts "Faulty OCC660: here is reading problem" +} + +renamevar a_1 a + +mksurface result a + +set info [dump result] + +if { [regexp "SurfaceOfLinearExtrusion" $info] != 1 } { + puts "Faulty OCC660" +} + +set 2dviewer 1 diff --git a/tests/bugs/xde/bug810 b/tests/bugs/xde/bug810 new file mode 100755 index 0000000000..66a68ffbac --- /dev/null +++ b/tests/bugs/xde/bug810 @@ -0,0 +1,17 @@ +puts "========================" +puts " OCC810 " +puts "========================" +puts "" +######################################################################## +## This bug reproducing by doing fixshape for face (In fixshape command invokes segment of bspline curve) +## The fix for this bug is fix of OCC311 for Geom_BSplineCurve and Geom2d_BSplineCurve. +######################################################################## + +restore [locate_data_file OCC810.rle] a + +if { [catch { fixshape result a 1.e-7 0.1 } ] > 0 } { + puts "Faulty OCC810" +} + +set 2dviewer 1 + diff --git a/tests/bugs/xde/bug816_1 b/tests/bugs/xde/bug816_1 new file mode 100755 index 0000000000..26f0ff8117 --- /dev/null +++ b/tests/bugs/xde/bug816_1 @@ -0,0 +1,24 @@ +puts "=======" +puts "OCC816" +puts "=======" +puts "" +######################################################## +## Fail occur during reading iges file that stored in brep mode. It is happens on +## torus-apple and torus-lemon files (standard files in DE xloop nonregression test). +######################################################## + +set file ${imagedir}/OCC816.stp + +restore [locate_data_file OCC816-apple.rle] result + +if [ catch { brepiges result $file } res ] { + puts "Faulty OCC816 : brepiges not complite" +} + +if [ catch { igesbrep $file a *} res ] { + puts "Faulty OCC816 : igesbrep not complite" +} + +set 2dviewer 1 + + diff --git a/tests/bugs/xde/bug816_2 b/tests/bugs/xde/bug816_2 new file mode 100755 index 0000000000..c15b7ef07a --- /dev/null +++ b/tests/bugs/xde/bug816_2 @@ -0,0 +1,23 @@ +puts "=======" +puts "OCC816" +puts "=======" +puts "" +######################################################## +## Fail occur during reading iges file that stored in brep mode. It is happens on +## torus-apple and torus-lemon files (standard files in DE xloop nonregression test). +######################################################## + +set file ${imagedir}/OCC816.stp + +restore [locate_data_file OCC816-lemon.rle] result + +if [ catch { brepiges result $file } res ] { + puts "Faulty OCC816 : brepiges not complite" +} + +if [ catch { igesbrep $file a *} res ] { + puts "Faulty OCC816 : igesbrep not complite" +} + +set 2dviewer 1 + diff --git a/tests/bugs/xde/bug859 b/tests/bugs/xde/bug859 new file mode 100755 index 0000000000..f32730984c --- /dev/null +++ b/tests/bugs/xde/bug859 @@ -0,0 +1,23 @@ +puts "================" +puts "OCC859" +puts "SAM1637" +puts "================" +puts "" +##################### +## Attached shape is not sewed. +##################### + +restore [locate_data_file OCC859.brep] a +checkshape a + +sewing result a + +freebounds result 0.1 + +set list [statshape result_o] + +if {[llength ${list}] > 4} { + puts "Faulty OCC859: here is sewing problem" +} + +set 2dviewer 1 diff --git a/tests/bugs/xde/bug861 b/tests/bugs/xde/bug861 new file mode 100755 index 0000000000..255f2aa920 --- /dev/null +++ b/tests/bugs/xde/bug861 @@ -0,0 +1,22 @@ +puts "================" +puts "OCC861" +puts "SAM1626" +puts "================" +puts "" +###################################################### +## Invalid free boundary get by command DRAW "freebound" on attached shape. +###################################################### + +restore [locate_data_file OCC859.brep] result +checkshape result + +freebounds result 0.1 + +set list [statshape result_o] + +if {[llength ${list}] > 4} { + puts "Faulty OCC861" +} + +set 2dviewer 1 + diff --git a/tests/bugs/xde/bug901 b/tests/bugs/xde/bug901 new file mode 100755 index 0000000000..fd7b33e5a9 --- /dev/null +++ b/tests/bugs/xde/bug901 @@ -0,0 +1,58 @@ +puts "=======" +puts "OCC901" +puts "OCC884" +puts "=======" +puts "" + +########################################### +## ShapeFix_Wire::FixSelfIntersection does not remove all loops +############################################ + +pload QAcommands + +restore [locate_data_file OCC884.brep] a + +OCC884 result a 1.1 1.1 + +explode result e +mkplane p result +pcurve c2d result_1 p +mkcurve c3d result_1 + +set list_3 [length $c3d] +set list_4 [length $c2d] + +# len2 is the length of 3d curve +regexp {The length c3d is +([-0-9.+eE]+)} $list_3 full len2 + +# len1 is the length of 2d curve +regexp {The length c2d is +([-0-9.+eE]+)} $list_4 full len1 + +set percent_max 0.1 +set percent1 [expr abs(${len2} - ${len1}) / double(${len1}) * 100.] + +set len3 1.55056 +set percent2 [expr abs(${len2} - ${len3}) / double(${len3}) * 100.] + +puts "len1 = ${len1}" +puts "len2 = ${len2}" +puts "percent1 = ${percent1}" +puts "percent2 = ${percent2}" + +set status 0 + +if {${percent1} > ${percent_max}} { + puts "OCC901: Error (case 1)" + set status 1 +} + +if {${percent2} > ${percent_max}} { + puts "OCC901: Error (case 2)" + set status 1 +} + +if {${status} == 0} { + puts "OCC901: OK" +} + +set 2dviewer 0 diff --git a/tests/bugs/xde/bug904 b/tests/bugs/xde/bug904 new file mode 100755 index 0000000000..420d44ba4d --- /dev/null +++ b/tests/bugs/xde/bug904 @@ -0,0 +1,26 @@ +puts "============" +puts "OCC904" +puts "============" +puts "" +##################################################### +## Invalid resut shell after command fixshell in DRAW with non-manifold mode +##################################################### + +pload QAcommands + +restore [locate_data_file OCC904.brep] a + +if [ catch { set res [OCC904 result a 1] } ] { + puts "Faulty OCC904 (case 1)" +} else { + set info [checkshape result] + set index [lsearch $result Faulty] + if { [regexp "Faulty" $info] == 1 } { + puts "Faulty OCC904 (case 2)" + } else { + puts "OCC904 OK" + } +} + +set 2dviewer 1 + diff --git a/tests/bugs/xde/bug991 b/tests/bugs/xde/bug991 new file mode 100755 index 0000000000..2c8a0161fb --- /dev/null +++ b/tests/bugs/xde/bug991 @@ -0,0 +1,18 @@ +puts "================" +puts "OCC991" +puts "================" +puts "" + +puts "" +puts "TEST COMPLETED" +puts "" + +exit + +set status 0 + +if { ${status} == 0 } { + puts "OCC991: Error" +} else { + puts "OCC991: OK" +} -- 2.20.1