Adding test cases for chl grid
authorapn <apn@opencascade.com>
Fri, 21 Dec 2012 12:39:38 +0000 (16:39 +0400)
committerapn <apn@opencascade.com>
Fri, 21 Dec 2012 12:39:38 +0000 (16:39 +0400)
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

711 files changed:
src/QABugs/QABugs_3.cxx
tests/bugs/caf/buc60921 [changed mode: 0644->0755]
tests/bugs/caf/bug1029 [new file with mode: 0755]
tests/bugs/caf/bug1030 [new file with mode: 0755]
tests/bugs/caf/bug1031 [new file with mode: 0755]
tests/bugs/caf/bug1032 [new file with mode: 0755]
tests/bugs/caf/bug1033 [new file with mode: 0755]
tests/bugs/caf/bug1034 [new file with mode: 0755]
tests/bugs/caf/bug114 [changed mode: 0644->0755]
tests/bugs/caf/bug170_3 [new file with mode: 0755]
tests/bugs/caf/bug5023 [new file with mode: 0755]
tests/bugs/caf/bug669 [new file with mode: 0755]
tests/bugs/caf/bug738_1 [new file with mode: 0755]
tests/bugs/caf/bug738_2 [new file with mode: 0755]
tests/bugs/caf/bug739 [new file with mode: 0755]
tests/bugs/demo/bug23409 [changed mode: 0644->0755]
tests/bugs/demo/bug23416 [changed mode: 0644->0755]
tests/bugs/end
tests/bugs/fclasses/bug11568_1 [new file with mode: 0755]
tests/bugs/fclasses/bug11568_2 [new file with mode: 0755]
tests/bugs/fclasses/bug23237 [changed mode: 0644->0755]
tests/bugs/fclasses/bug23403 [changed mode: 0644->0755]
tests/bugs/fclasses/bug63
tests/bugs/fclasses/bug670 [new file with mode: 0755]
tests/bugs/fclasses/bug6794 [new file with mode: 0755]
tests/bugs/fclasses/bug710 [new file with mode: 0755]
tests/bugs/fclasses/bug7287_1 [new file with mode: 0755]
tests/bugs/fclasses/bug7287_2 [new file with mode: 0755]
tests/bugs/fclasses/bug7287_3 [new file with mode: 0755]
tests/bugs/fclasses/bug7287_4 [new file with mode: 0755]
tests/bugs/fclasses/bug7287_5 [new file with mode: 0755]
tests/bugs/fclasses/bug7287_6 [new file with mode: 0755]
tests/bugs/fclasses/bug7639 [new file with mode: 0755]
tests/bugs/fclasses/bug902 [new file with mode: 0755]
tests/bugs/fclasses/bug984 [new file with mode: 0755]
tests/bugs/fclasses/bug9848_1 [new file with mode: 0755]
tests/bugs/fclasses/bug9848_2 [new file with mode: 0755]
tests/bugs/fclasses/bug984_1 [new file with mode: 0755]
tests/bugs/heal/buc60940 [changed mode: 0644->0755]
tests/bugs/heal/buc60950 [changed mode: 0644->0755]
tests/bugs/heal/bug1642 [new file with mode: 0755]
tests/bugs/heal/bug208
tests/bugs/heal/bug209
tests/bugs/heal/bug210 [new file with mode: 0755]
tests/bugs/heal/bug210_2
tests/bugs/heal/bug22 [new file with mode: 0755]
tests/bugs/heal/bug329
tests/bugs/heal/bug482
tests/bugs/heal/bug518 [new file with mode: 0755]
tests/bugs/heal/bug884 [new file with mode: 0755]
tests/bugs/iges/buc60591_1 [changed mode: 0644->0755]
tests/bugs/iges/buc60591_2 [changed mode: 0644->0755]
tests/bugs/iges/buc60591_3 [changed mode: 0644->0755]
tests/bugs/iges/buc60591_4 [changed mode: 0644->0755]
tests/bugs/iges/buc60594 [changed mode: 0644->0755]
tests/bugs/iges/buc60595_1 [changed mode: 0644->0755]
tests/bugs/iges/buc60595_2 [changed mode: 0644->0755]
tests/bugs/iges/buc60595_3 [changed mode: 0644->0755]
tests/bugs/iges/buc60610 [changed mode: 0644->0755]
tests/bugs/iges/buc60625 [changed mode: 0644->0755]
tests/bugs/iges/buc60646 [changed mode: 0644->0755]
tests/bugs/iges/buc60685
tests/bugs/iges/buc60686 [changed mode: 0644->0755]
tests/bugs/iges/buc60687 [changed mode: 0644->0755]
tests/bugs/iges/buc60820_1 [changed mode: 0644->0755]
tests/bugs/iges/buc60820_2 [changed mode: 0644->0755]
tests/bugs/iges/buc60823 [changed mode: 0644->0755]
tests/bugs/iges/buc60850 [changed mode: 0644->0755]
tests/bugs/iges/buc60894 [changed mode: 0644->0755]
tests/bugs/iges/buc60949 [changed mode: 0644->0755]
tests/bugs/iges/bug111_1
tests/bugs/iges/bug111_2
tests/bugs/iges/bug131_1
tests/bugs/iges/bug131_2
tests/bugs/iges/bug131_3
tests/bugs/iges/bug131_4
tests/bugs/iges/bug131_5
tests/bugs/iges/bug131_6
tests/bugs/iges/bug131_7
tests/bugs/iges/bug131_8
tests/bugs/iges/bug133_1
tests/bugs/iges/bug133_10
tests/bugs/iges/bug133_5
tests/bugs/iges/bug133_7
tests/bugs/iges/bug133_8
tests/bugs/iges/bug201
tests/bugs/iges/bug22888 [changed mode: 0644->0755]
tests/bugs/iges/bug23377 [changed mode: 0644->0755]
tests/bugs/iges/bug272_1
tests/bugs/iges/bug272_2
tests/bugs/iges/bug272_3
tests/bugs/iges/bug283
tests/bugs/iges/bug285
tests/bugs/iges/bug306
tests/bugs/iges/bug365_1
tests/bugs/iges/bug365_3
tests/bugs/iges/bug365_4
tests/bugs/iges/bug365_5
tests/bugs/iges/bug386
tests/bugs/iges/bug514 [new file with mode: 0755]
tests/bugs/iges/bug58_1
tests/bugs/iges/bug58_2
tests/bugs/iges/bug58_3
tests/bugs/iges/bug700 [new file with mode: 0755]
tests/bugs/iges/bug89
tests/bugs/iges/fra62523 [changed mode: 0644->0755]
tests/bugs/iges/ger61337 [changed mode: 0644->0755]
tests/bugs/mesh/end
tests/bugs/modalg/buc60409_1 [changed mode: 0644->0755]
tests/bugs/modalg/buc60409_2 [changed mode: 0644->0755]
tests/bugs/modalg/buc60409_3 [changed mode: 0644->0755]
tests/bugs/modalg/buc60462_1
tests/bugs/modalg/buc60462_2
tests/bugs/modalg/buc60463
tests/bugs/modalg/buc60523 [changed mode: 0644->0755]
tests/bugs/modalg/buc60531_1 [changed mode: 0644->0755]
tests/bugs/modalg/buc60531_2 [changed mode: 0644->0755]
tests/bugs/modalg/buc60532 [changed mode: 0644->0755]
tests/bugs/modalg/buc60532_1 [changed mode: 0644->0755]
tests/bugs/modalg/buc60532_2 [changed mode: 0644->0755]
tests/bugs/modalg/buc60533 [changed mode: 0644->0755]
tests/bugs/modalg/buc60555_1 [changed mode: 0644->0755]
tests/bugs/modalg/buc60555_2
tests/bugs/modalg/buc60555_3
tests/bugs/modalg/buc60585_1
tests/bugs/modalg/buc60585_2 [changed mode: 0644->0755]
tests/bugs/modalg/buc60623_1 [changed mode: 0644->0755]
tests/bugs/modalg/buc60623_2 [changed mode: 0644->0755]
tests/bugs/modalg/buc60635 [changed mode: 0644->0755]
tests/bugs/modalg/buc60649
tests/bugs/modalg/buc60663_1 [changed mode: 0644->0755]
tests/bugs/modalg/buc60663_2
tests/bugs/modalg/buc60668 [changed mode: 0644->0755]
tests/bugs/modalg/buc60669
tests/bugs/modalg/buc60684 [changed mode: 0644->0755]
tests/bugs/modalg/buc60703_1
tests/bugs/modalg/buc60703_2 [changed mode: 0644->0755]
tests/bugs/modalg/buc60703_3 [changed mode: 0644->0755]
tests/bugs/modalg/buc60703_4 [changed mode: 0644->0755]
tests/bugs/modalg/buc60704 [changed mode: 0644->0755]
tests/bugs/modalg/buc60708
tests/bugs/modalg/buc60712
tests/bugs/modalg/buc60714 [changed mode: 0644->0755]
tests/bugs/modalg/buc60728 [changed mode: 0644->0755]
tests/bugs/modalg/buc60776_1 [changed mode: 0644->0755]
tests/bugs/modalg/buc60776_2 [changed mode: 0644->0755]
tests/bugs/modalg/buc60782_1 [changed mode: 0644->0755]
tests/bugs/modalg/buc60782_3 [changed mode: 0644->0755]
tests/bugs/modalg/buc60787_1
tests/bugs/modalg/buc60787_2
tests/bugs/modalg/buc60788_1 [changed mode: 0644->0755]
tests/bugs/modalg/buc60788_2
tests/bugs/modalg/buc60788_3
tests/bugs/modalg/buc60789_1
tests/bugs/modalg/buc60789_2
tests/bugs/modalg/buc60801 [changed mode: 0644->0755]
tests/bugs/modalg/buc60803 [changed mode: 0644->0755]
tests/bugs/modalg/buc60826
tests/bugs/modalg/buc60830_4
tests/bugs/modalg/buc60839 [changed mode: 0644->0755]
tests/bugs/modalg/buc60841 [changed mode: 0644->0755]
tests/bugs/modalg/buc60849 [changed mode: 0644->0755]
tests/bugs/modalg/buc60853
tests/bugs/modalg/buc60865 [changed mode: 0644->0755]
tests/bugs/modalg/buc60878_1
tests/bugs/modalg/buc60878_2
tests/bugs/modalg/buc60878_3
tests/bugs/modalg/buc60880
tests/bugs/modalg/buc60881 [changed mode: 0644->0755]
tests/bugs/modalg/buc60899_1 [changed mode: 0644->0755]
tests/bugs/modalg/buc60899_2 [changed mode: 0644->0755]
tests/bugs/modalg/buc60901 [changed mode: 0644->0755]
tests/bugs/modalg/buc60905 [changed mode: 0644->0755]
tests/bugs/modalg/buc60909 [changed mode: 0644->0755]
tests/bugs/modalg/buc60922
tests/bugs/modalg/buc60926
tests/bugs/modalg/buc60927 [changed mode: 0644->0755]
tests/bugs/modalg/buc60930 [changed mode: 0644->0755]
tests/bugs/modalg/buc60934 [changed mode: 0644->0755]
tests/bugs/modalg/buc60942 [changed mode: 0644->0755]
tests/bugs/modalg/buc60946
tests/bugs/modalg/buc60971 [changed mode: 0644->0755]
tests/bugs/modalg/bug100
tests/bugs/modalg/bug101
tests/bugs/modalg/bug1013
tests/bugs/modalg/bug102_1
tests/bugs/modalg/bug102_2
tests/bugs/modalg/bug108
tests/bugs/modalg/bug109
tests/bugs/modalg/bug110_1
tests/bugs/modalg/bug110_2
tests/bugs/modalg/bug110_3
tests/bugs/modalg/bug116
tests/bugs/modalg/bug117_1
tests/bugs/modalg/bug117_2
tests/bugs/modalg/bug118 [new file with mode: 0755]
tests/bugs/modalg/bug118_1
tests/bugs/modalg/bug118_2
tests/bugs/modalg/bug122_1
tests/bugs/modalg/bug122_2
tests/bugs/modalg/bug122_3
tests/bugs/modalg/bug122_4
tests/bugs/modalg/bug123_1
tests/bugs/modalg/bug123_2
tests/bugs/modalg/bug140
tests/bugs/modalg/bug144
tests/bugs/modalg/bug1665 [new file with mode: 0755]
tests/bugs/modalg/bug178_1
tests/bugs/modalg/bug178_2
tests/bugs/modalg/bug178_3
tests/bugs/modalg/bug21
tests/bugs/modalg/bug212 [new file with mode: 0755]
tests/bugs/modalg/bug212_1
tests/bugs/modalg/bug212_2
tests/bugs/modalg/bug212_3 [new file with mode: 0755]
tests/bugs/modalg/bug213 [new file with mode: 0755]
tests/bugs/modalg/bug213_1
tests/bugs/modalg/bug213_2
tests/bugs/modalg/bug23137_1 [changed mode: 0644->0755]
tests/bugs/modalg/bug23137_2 [changed mode: 0644->0755]
tests/bugs/modalg/bug23394 [changed mode: 0644->0755]
tests/bugs/modalg/bug23429 [changed mode: 0644->0755]
tests/bugs/modalg/bug251_1
tests/bugs/modalg/bug251_2
tests/bugs/modalg/bug264_0
tests/bugs/modalg/bug264_1
tests/bugs/modalg/bug264_10
tests/bugs/modalg/bug264_11
tests/bugs/modalg/bug264_2
tests/bugs/modalg/bug264_3
tests/bugs/modalg/bug264_4
tests/bugs/modalg/bug264_5
tests/bugs/modalg/bug264_6
tests/bugs/modalg/bug264_7
tests/bugs/modalg/bug264_8
tests/bugs/modalg/bug264_9
tests/bugs/modalg/bug269_1
tests/bugs/modalg/bug269_2
tests/bugs/modalg/bug269_3
tests/bugs/modalg/bug269_4
tests/bugs/modalg/bug287
tests/bugs/modalg/bug291
tests/bugs/modalg/bug292
tests/bugs/modalg/bug293
tests/bugs/modalg/bug298
tests/bugs/modalg/bug305
tests/bugs/modalg/bug307_1
tests/bugs/modalg/bug307_2
tests/bugs/modalg/bug315
tests/bugs/modalg/bug322
tests/bugs/modalg/bug323
tests/bugs/modalg/bug334
tests/bugs/modalg/bug335
tests/bugs/modalg/bug336
tests/bugs/modalg/bug338
tests/bugs/modalg/bug340
tests/bugs/modalg/bug341
tests/bugs/modalg/bug347_1
tests/bugs/modalg/bug347_2
tests/bugs/modalg/bug356
tests/bugs/modalg/bug357
tests/bugs/modalg/bug358
tests/bugs/modalg/bug397
tests/bugs/modalg/bug409
tests/bugs/modalg/bug410_1
tests/bugs/modalg/bug410_2
tests/bugs/modalg/bug410_3
tests/bugs/modalg/bug410_4
tests/bugs/modalg/bug411
tests/bugs/modalg/bug412
tests/bugs/modalg/bug413_1
tests/bugs/modalg/bug413_2
tests/bugs/modalg/bug415
tests/bugs/modalg/bug416
tests/bugs/modalg/bug417
tests/bugs/modalg/bug418_1
tests/bugs/modalg/bug418_2
tests/bugs/modalg/bug419
tests/bugs/modalg/bug420
tests/bugs/modalg/bug423_1
tests/bugs/modalg/bug423_2
tests/bugs/modalg/bug426 [new file with mode: 0755]
tests/bugs/modalg/bug439
tests/bugs/modalg/bug442
tests/bugs/modalg/bug449
tests/bugs/modalg/bug4717_1 [new file with mode: 0755]
tests/bugs/modalg/bug4717_2 [new file with mode: 0755]
tests/bugs/modalg/bug4717_3 [new file with mode: 0755]
tests/bugs/modalg/bug4717_4 [new file with mode: 0755]
tests/bugs/modalg/bug4717_5 [new file with mode: 0755]
tests/bugs/modalg/bug4717_6 [new file with mode: 0755]
tests/bugs/modalg/bug4717_7 [new file with mode: 0755]
tests/bugs/modalg/bug4717_8 [new file with mode: 0755]
tests/bugs/modalg/bug472_1
tests/bugs/modalg/bug472_2
tests/bugs/modalg/bug472_3
tests/bugs/modalg/bug476_1 [new file with mode: 0755]
tests/bugs/modalg/bug476_2 [new file with mode: 0755]
tests/bugs/modalg/bug476_3 [new file with mode: 0755]
tests/bugs/modalg/bug476_4 [new file with mode: 0755]
tests/bugs/modalg/bug476_5 [new file with mode: 0755]
tests/bugs/modalg/bug476_6 [new file with mode: 0755]
tests/bugs/modalg/bug476_7 [new file with mode: 0755]
tests/bugs/modalg/bug476_8 [new file with mode: 0755]
tests/bugs/modalg/bug481
tests/bugs/modalg/bug485
tests/bugs/modalg/bug488
tests/bugs/modalg/bug490
tests/bugs/modalg/bug492
tests/bugs/modalg/bug497_1
tests/bugs/modalg/bug497_2
tests/bugs/modalg/bug497_3
tests/bugs/modalg/bug497_4
tests/bugs/modalg/bug497_5
tests/bugs/modalg/bug4993_1 [new file with mode: 0755]
tests/bugs/modalg/bug4993_2 [new file with mode: 0755]
tests/bugs/modalg/bug500
tests/bugs/modalg/bug526 [new file with mode: 0755]
tests/bugs/modalg/bug527 [new file with mode: 0755]
tests/bugs/modalg/bug528 [new file with mode: 0755]
tests/bugs/modalg/bug530 [new file with mode: 0755]
tests/bugs/modalg/bug534_1 [new file with mode: 0755]
tests/bugs/modalg/bug534_2 [new file with mode: 0755]
tests/bugs/modalg/bug534_3 [new file with mode: 0755]
tests/bugs/modalg/bug534_4 [new file with mode: 0755]
tests/bugs/modalg/bug534_5 [new file with mode: 0755]
tests/bugs/modalg/bug534_6 [new file with mode: 0755]
tests/bugs/modalg/bug535 [new file with mode: 0755]
tests/bugs/modalg/bug548 [new file with mode: 0755]
tests/bugs/modalg/bug571_1
tests/bugs/modalg/bug571_2
tests/bugs/modalg/bug57_1
tests/bugs/modalg/bug57_2
tests/bugs/modalg/bug59_1
tests/bugs/modalg/bug59_2
tests/bugs/modalg/bug600
tests/bugs/modalg/bug602
tests/bugs/modalg/bug605
tests/bugs/modalg/bug615
tests/bugs/modalg/bug616
tests/bugs/modalg/bug62
tests/bugs/modalg/bug620_1
tests/bugs/modalg/bug620_2
tests/bugs/modalg/bug625
tests/bugs/modalg/bug629
tests/bugs/modalg/bug636
tests/bugs/modalg/bug637_1
tests/bugs/modalg/bug637_2
tests/bugs/modalg/bug67
tests/bugs/modalg/bug673
tests/bugs/modalg/bug68_1
tests/bugs/modalg/bug68_2
tests/bugs/modalg/bug693
tests/bugs/modalg/bug693_1 [new file with mode: 0755]
tests/bugs/modalg/bug697_1
tests/bugs/modalg/bug697_2
tests/bugs/modalg/bug698
tests/bugs/modalg/bug712_1
tests/bugs/modalg/bug714
tests/bugs/modalg/bug726_1
tests/bugs/modalg/bug726_2
tests/bugs/modalg/bug743
tests/bugs/modalg/bug745_1
tests/bugs/modalg/bug745_11
tests/bugs/modalg/bug745_12
tests/bugs/modalg/bug745_13 [new file with mode: 0755]
tests/bugs/modalg/bug745_2
tests/bugs/modalg/bug745_3 [new file with mode: 0755]
tests/bugs/modalg/bug745_4
tests/bugs/modalg/bug745_5 [new file with mode: 0755]
tests/bugs/modalg/bug745_6
tests/bugs/modalg/bug745_7
tests/bugs/modalg/bug745_8
tests/bugs/modalg/bug745_9
tests/bugs/modalg/bug748
tests/bugs/modalg/bug755_1
tests/bugs/modalg/bug758
tests/bugs/modalg/bug763
tests/bugs/modalg/bug77
tests/bugs/modalg/bug770
tests/bugs/modalg/bug771
tests/bugs/modalg/bug772
tests/bugs/modalg/bug774_1
tests/bugs/modalg/bug774_2
tests/bugs/modalg/bug775
tests/bugs/modalg/bug776_1
tests/bugs/modalg/bug776_2
tests/bugs/modalg/bug778_1
tests/bugs/modalg/bug778_2
tests/bugs/modalg/bug779
tests/bugs/modalg/bug78
tests/bugs/modalg/bug780_1
tests/bugs/modalg/bug780_2
tests/bugs/modalg/bug80
tests/bugs/modalg/bug81
tests/bugs/modalg/bug817_1 [new file with mode: 0755]
tests/bugs/modalg/bug817_2 [new file with mode: 0755]
tests/bugs/modalg/bug817_3 [new file with mode: 0755]
tests/bugs/modalg/bug82
tests/bugs/modalg/bug822_1
tests/bugs/modalg/bug822_2
tests/bugs/modalg/bug823
tests/bugs/modalg/bug823_1
tests/bugs/modalg/bug824
tests/bugs/modalg/bug824_1
tests/bugs/modalg/bug825
tests/bugs/modalg/bug825_1
tests/bugs/modalg/bug825_2
tests/bugs/modalg/bug826
tests/bugs/modalg/bug826_1
tests/bugs/modalg/bug827
tests/bugs/modalg/bug827_1
tests/bugs/modalg/bug827_2
tests/bugs/modalg/bug827_3 [new file with mode: 0755]
tests/bugs/modalg/bug828
tests/bugs/modalg/bug829_1
tests/bugs/modalg/bug829_2
tests/bugs/modalg/bug83_1
tests/bugs/modalg/bug83_2
tests/bugs/modalg/bug86
tests/bugs/modalg/bug87
tests/bugs/modalg/bug889 [moved from tests/bugs/modalg/dxf906 with 99% similarity]
tests/bugs/modalg/bug890
tests/bugs/modalg/bug910
tests/bugs/modalg/bug919
tests/bugs/modalg/bug951_1 [new file with mode: 0755]
tests/bugs/modalg/bug951_2 [new file with mode: 0755]
tests/bugs/modalg/bug951_3 [new file with mode: 0755]
tests/bugs/modalg/bug951_4 [new file with mode: 0755]
tests/bugs/modalg/fra62369 [changed mode: 0644->0755]
tests/bugs/modalg/pro16983 [changed mode: 0644->0755]
tests/bugs/modalg/pro18892
tests/bugs/modalg/pro19424 [changed mode: 0644->0755]
tests/bugs/modalg/pro19626 [changed mode: 0644->0755]
tests/bugs/modalg/pro19653 [changed mode: 0644->0755]
tests/bugs/moddata/buc60609 [new file with mode: 0755]
tests/bugs/moddata/buc60623_3
tests/bugs/moddata/buc60637 [changed mode: 0644->0755]
tests/bugs/moddata/buc60652_1 [changed mode: 0644->0755]
tests/bugs/moddata/buc60652_2 [changed mode: 0644->0755]
tests/bugs/moddata/buc60652_3 [changed mode: 0644->0755]
tests/bugs/moddata/buc60652_4 [changed mode: 0644->0755]
tests/bugs/moddata/buc60667 [changed mode: 0644->0755]
tests/bugs/moddata/buc60707 [changed mode: 0644->0755]
tests/bugs/moddata/buc60729 [changed mode: 0644->0755]
tests/bugs/moddata/buc60755 [changed mode: 0644->0755]
tests/bugs/moddata/buc60769 [changed mode: 0644->0755]
tests/bugs/moddata/buc60825 [changed mode: 0644->0755]
tests/bugs/moddata/buc60828 [changed mode: 0644->0755]
tests/bugs/moddata/buc60842 [changed mode: 0644->0755]
tests/bugs/moddata/buc60848 [changed mode: 0644->0755]
tests/bugs/moddata/buc60852 [changed mode: 0644->0755]
tests/bugs/moddata/buc60854 [changed mode: 0644->0755]
tests/bugs/moddata/buc60868 [changed mode: 0644->0755]
tests/bugs/moddata/buc60870 [changed mode: 0644->0755]
tests/bugs/moddata/buc60889 [changed mode: 0644->0755]
tests/bugs/moddata/buc60895 [changed mode: 0644->0755]
tests/bugs/moddata/buc60897 [changed mode: 0644->0755]
tests/bugs/moddata/buc60911 [changed mode: 0644->0755]
tests/bugs/moddata/buc60924 [changed mode: 0644->0755]
tests/bugs/moddata/buc60955 [changed mode: 0644->0755]
tests/bugs/moddata/buc60960 [changed mode: 0644->0755]
tests/bugs/moddata/buc60965 [changed mode: 0644->0755]
tests/bugs/moddata/buc60967 [changed mode: 0644->0755]
tests/bugs/moddata/buc60968 [changed mode: 0644->0755]
tests/bugs/moddata/buc61006 [changed mode: 0644->0755]
tests/bugs/moddata/bug104
tests/bugs/moddata/bug1048 [new file with mode: 0755]
tests/bugs/moddata/bug105
tests/bugs/moddata/bug107
tests/bugs/moddata/bug119
tests/bugs/moddata/bug12
tests/bugs/moddata/bug126
tests/bugs/moddata/bug130
tests/bugs/moddata/bug134_1
tests/bugs/moddata/bug134_2
tests/bugs/moddata/bug135
tests/bugs/moddata/bug15
tests/bugs/moddata/bug150_1
tests/bugs/moddata/bug150_2
tests/bugs/moddata/bug151_1
tests/bugs/moddata/bug151_2
tests/bugs/moddata/bug152_1
tests/bugs/moddata/bug152_2
tests/bugs/moddata/bug160_1
tests/bugs/moddata/bug160_2
tests/bugs/moddata/bug160_3
tests/bugs/moddata/bug160_4
tests/bugs/moddata/bug160_5
tests/bugs/moddata/bug160_6
tests/bugs/moddata/bug163
tests/bugs/moddata/bug164_1
tests/bugs/moddata/bug164_2
tests/bugs/moddata/bug165_1
tests/bugs/moddata/bug165_2
tests/bugs/moddata/bug165_3
tests/bugs/moddata/bug17
tests/bugs/moddata/bug175
tests/bugs/moddata/bug183_1
tests/bugs/moddata/bug183_2
tests/bugs/moddata/bug183_3
tests/bugs/moddata/bug183_4
tests/bugs/moddata/bug183_5
tests/bugs/moddata/bug183_6
tests/bugs/moddata/bug188
tests/bugs/moddata/bug188_1
tests/bugs/moddata/bug20
tests/bugs/moddata/bug211_1
tests/bugs/moddata/bug211_2
tests/bugs/moddata/bug217
tests/bugs/moddata/bug227_1
tests/bugs/moddata/bug227_2
tests/bugs/moddata/bug228
tests/bugs/moddata/bug252_1
tests/bugs/moddata/bug252_2
tests/bugs/moddata/bug252_3
tests/bugs/moddata/bug254
tests/bugs/moddata/bug256
tests/bugs/moddata/bug257
tests/bugs/moddata/bug258_1
tests/bugs/moddata/bug258_2
tests/bugs/moddata/bug259
tests/bugs/moddata/bug266
tests/bugs/moddata/bug268
tests/bugs/moddata/bug26_1
tests/bugs/moddata/bug26_2
tests/bugs/moddata/bug276
tests/bugs/moddata/bug278_1
tests/bugs/moddata/bug278_2
tests/bugs/moddata/bug27_1
tests/bugs/moddata/bug27_2
tests/bugs/moddata/bug28_1
tests/bugs/moddata/bug28_2
tests/bugs/moddata/bug31
tests/bugs/moddata/bug332
tests/bugs/moddata/bug354_1
tests/bugs/moddata/bug354_2
tests/bugs/moddata/bug368
tests/bugs/moddata/bug372 [new file with mode: 0755]
tests/bugs/moddata/bug37_1
tests/bugs/moddata/bug37_2
tests/bugs/moddata/bug3_1
tests/bugs/moddata/bug3_2
tests/bugs/moddata/bug4
tests/bugs/moddata/bug408
tests/bugs/moddata/bug42
tests/bugs/moddata/bug432
tests/bugs/moddata/bug466
tests/bugs/moddata/bug469
tests/bugs/moddata/bug486 [new file with mode: 0755]
tests/bugs/moddata/bug496
tests/bugs/moddata/bug50
tests/bugs/moddata/bug505
tests/bugs/moddata/bug513 [new file with mode: 0755]
tests/bugs/moddata/bug515 [new file with mode: 0755]
tests/bugs/moddata/bug525 [new file with mode: 0755]
tests/bugs/moddata/bug531 [new file with mode: 0755]
tests/bugs/moddata/bug537 [new file with mode: 0755]
tests/bugs/moddata/bug54
tests/bugs/moddata/bug541 [new file with mode: 0755]
tests/bugs/moddata/bug542 [new file with mode: 0755]
tests/bugs/moddata/bug565 [new file with mode: 0755]
tests/bugs/moddata/bug567 [new file with mode: 0755]
tests/bugs/moddata/bug569 [new file with mode: 0755]
tests/bugs/moddata/bug593 [new file with mode: 0755]
tests/bugs/moddata/bug601 [new file with mode: 0755]
tests/bugs/moddata/bug604 [new file with mode: 0755]
tests/bugs/moddata/bug611_1 [new file with mode: 0755]
tests/bugs/moddata/bug611_2 [new file with mode: 0755]
tests/bugs/moddata/bug611_3 [new file with mode: 0755]
tests/bugs/moddata/bug613_1 [new file with mode: 0755]
tests/bugs/moddata/bug613_2 [new file with mode: 0755]
tests/bugs/moddata/bug618
tests/bugs/moddata/bug65
tests/bugs/moddata/bug703 [new file with mode: 0755]
tests/bugs/moddata/bug726_3 [new file with mode: 0755]
tests/bugs/moddata/bug736 [new file with mode: 0755]
tests/bugs/moddata/bug747 [new file with mode: 0755]
tests/bugs/moddata/bug76
tests/bugs/moddata/bug766 [new file with mode: 0755]
tests/bugs/moddata/bug8
tests/bugs/moddata/bug813 [new file with mode: 0755]
tests/bugs/moddata/bug814 [new file with mode: 0755]
tests/bugs/moddata/bug862 [new file with mode: 0755]
tests/bugs/moddata/bug867 [new file with mode: 0755]
tests/bugs/moddata/bug88
tests/bugs/moddata/bug889 [new file with mode: 0755]
tests/bugs/moddata/bug909 [new file with mode: 0755]
tests/bugs/moddata/bug921 [new file with mode: 0755]
tests/bugs/moddata/bug935_1 [new file with mode: 0755]
tests/bugs/moddata/bug935_2 [new file with mode: 0755]
tests/bugs/moddata/bug943_1 [new file with mode: 0755]
tests/bugs/moddata/bug943_2 [new file with mode: 0755]
tests/bugs/moddata/bug956_1 [new file with mode: 0755]
tests/bugs/moddata/bug956_2 [new file with mode: 0755]
tests/bugs/moddata/fra62476_1 [changed mode: 0644->0755]
tests/bugs/moddata/fra62476_2 [changed mode: 0644->0755]
tests/bugs/moddata/ger61235
tests/bugs/moddata/pro19422_1
tests/bugs/moddata/pro19422_2
tests/bugs/moddata/pro20333 [changed mode: 0644->0755]
tests/bugs/step/buc60624 [changed mode: 0644->0755]
tests/bugs/step/buc60809 [changed mode: 0644->0755]
tests/bugs/step/buc60810 [changed mode: 0644->0755]
tests/bugs/step/buc60906 [changed mode: 0644->0755]
tests/bugs/step/buc60948 [changed mode: 0644->0755]
tests/bugs/step/bug272_7
tests/bugs/step/bug348_1
tests/bugs/step/bug348_2
tests/bugs/step/bug348_3
tests/bugs/step/bug348_4
tests/bugs/step/bug365_2
tests/bugs/step/bug51
tests/bugs/step/bug55
tests/bugs/step/bug609 [new file with mode: 0755]
tests/bugs/step/bug630 [new file with mode: 0755]
tests/bugs/step/bug725 [new file with mode: 0755]
tests/bugs/step/bug725_1 [new file with mode: 0755]
tests/bugs/step/bug926 [new file with mode: 0755]
tests/bugs/step/pro19854 [changed mode: 0644->0755]
tests/bugs/step/pro19895 [changed mode: 0644->0755]
tests/bugs/step/pro20361_1 [changed mode: 0644->0755]
tests/bugs/step/pro20361_2 [changed mode: 0644->0755]
tests/bugs/step/pro20361_3 [changed mode: 0644->0755]
tests/bugs/step/pro20362 [changed mode: 0644->0755]
tests/bugs/vis/buc60547 [new file with mode: 0755]
tests/bugs/vis/buc60574 [new file with mode: 0755]
tests/bugs/vis/buc60587 [new file with mode: 0755]
tests/bugs/vis/buc60614 [new file with mode: 0755]
tests/bugs/vis/buc60632_1 [new file with mode: 0755]
tests/bugs/vis/buc60632_2 [new file with mode: 0755]
tests/bugs/vis/buc60659 [new file with mode: 0755]
tests/bugs/vis/buc60661 [new file with mode: 0755]
tests/bugs/vis/buc60688 [new file with mode: 0755]
tests/bugs/vis/buc60701 [new file with mode: 0755]
tests/bugs/vis/buc60738 [new file with mode: 0755]
tests/bugs/vis/buc60740 [new file with mode: 0755]
tests/bugs/vis/buc60747 [new file with mode: 0755]
tests/bugs/vis/buc60753 [new file with mode: 0755]
tests/bugs/vis/buc60774 [new file with mode: 0755]
tests/bugs/vis/buc60814 [new file with mode: 0755]
tests/bugs/vis/buc60818 [new file with mode: 0755]
tests/bugs/vis/buc60821 [new file with mode: 0755]
tests/bugs/vis/buc60830_1 [new file with mode: 0755]
tests/bugs/vis/buc60830_2 [new file with mode: 0755]
tests/bugs/vis/buc60830_3 [new file with mode: 0755]
tests/bugs/vis/buc60832 [new file with mode: 0755]
tests/bugs/vis/buc60851 [new file with mode: 0755]
tests/bugs/vis/buc60857 [new file with mode: 0755]
tests/bugs/vis/buc60858 [new file with mode: 0755]
tests/bugs/vis/buc60876 [new file with mode: 0755]
tests/bugs/vis/buc60887 [new file with mode: 0755]
tests/bugs/vis/buc60915 [new file with mode: 0755]
tests/bugs/vis/buc60920 [new file with mode: 0755]
tests/bugs/vis/bug112_1
tests/bugs/vis/bug173_1
tests/bugs/vis/bug173_2
tests/bugs/vis/bug173_3
tests/bugs/vis/bug19_1
tests/bugs/vis/bug19_2
tests/bugs/vis/bug288_1
tests/bugs/vis/bug288_2
tests/bugs/vis/bug288_3
tests/bugs/vis/bug288_4
tests/bugs/vis/bug288_5
tests/bugs/vis/bug344
tests/bugs/vis/bug364
tests/bugs/vis/bug378 [new file with mode: 0755]
tests/bugs/vis/bug443 [new file with mode: 0755]
tests/bugs/vis/bug451 [new file with mode: 0755]
tests/bugs/vis/bug591 [new file with mode: 0755]
tests/bugs/vis/bug597_1 [new file with mode: 0755]
tests/bugs/vis/bug597_2 [new file with mode: 0755]
tests/bugs/vis/bug597_3 [new file with mode: 0755]
tests/bugs/vis/bug597_4 [new file with mode: 0755]
tests/bugs/vis/bug597_5 [new file with mode: 0755]
tests/bugs/vis/bug597_6 [new file with mode: 0755]
tests/bugs/vis/bug597_7 [new file with mode: 0755]
tests/bugs/vis/bug641 [new file with mode: 0755]
tests/bugs/vis/bug708 [new file with mode: 0755]
tests/bugs/vis/bug727 [new file with mode: 0755]
tests/bugs/vis/bug872 [new file with mode: 0755]
tests/bugs/vis/ger61351_1 [new file with mode: 0755]
tests/bugs/vis/ger61351_2 [new file with mode: 0755]
tests/bugs/vis/ger61351_3 [new file with mode: 0755]
tests/bugs/vis/ger61351_4 [new file with mode: 0755]
tests/bugs/vis/ger61351_5 [new file with mode: 0755]
tests/bugs/vis/ger61351_6 [new file with mode: 0755]
tests/bugs/vis/pro20342 [new file with mode: 0755]
tests/bugs/xde/bug125_1
tests/bugs/xde/bug125_2
tests/bugs/xde/bug168
tests/bugs/xde/bug169
tests/bugs/xde/bug184
tests/bugs/xde/bug2
tests/bugs/xde/bug23384 [changed mode: 0644->0755]
tests/bugs/xde/bug321
tests/bugs/xde/bug34
tests/bugs/xde/bug445
tests/bugs/xde/bug547_1 [new file with mode: 0755]
tests/bugs/xde/bug547_2 [new file with mode: 0755]
tests/bugs/xde/bug659 [new file with mode: 0755]
tests/bugs/xde/bug660 [new file with mode: 0755]
tests/bugs/xde/bug810 [new file with mode: 0755]
tests/bugs/xde/bug816_1 [new file with mode: 0755]
tests/bugs/xde/bug816_2 [new file with mode: 0755]
tests/bugs/xde/bug859 [new file with mode: 0755]
tests/bugs/xde/bug861 [new file with mode: 0755]
tests/bugs/xde/bug901 [new file with mode: 0755]
tests/bugs/xde/bug904 [new file with mode: 0755]
tests/bugs/xde/bug991 [new file with mode: 0755]

index 3e398ce..6184282 100644 (file)
@@ -1364,7 +1364,6 @@ static Standard_Integer BUC60856(Draw_Interpretor& di, Standard_Integer /*argc*/
   return 0;
 }
 
-#if ! defined(WNT)
 //#include <fstream.h>
 #ifdef HAVE_FSTREAM
 # include <fstream>
@@ -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);
old mode 100644 (file)
new mode 100755 (executable)
diff --git a/tests/bugs/caf/bug1029 b/tests/bugs/caf/bug1029
new file mode 100755 (executable)
index 0000000..6a2e49b
--- /dev/null
@@ -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 (executable)
index 0000000..2c6e965
--- /dev/null
@@ -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 (executable)
index 0000000..a9003a0
--- /dev/null
@@ -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 (executable)
index 0000000..d98eba3
--- /dev/null
@@ -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 (executable)
index 0000000..4edeb2c
--- /dev/null
@@ -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 (executable)
index 0000000..3d342b7
--- /dev/null
@@ -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"
+}
+
old mode 100644 (file)
new mode 100755 (executable)
diff --git a/tests/bugs/caf/bug170_3 b/tests/bugs/caf/bug170_3
new file mode 100755 (executable)
index 0000000..8cbabed
--- /dev/null
@@ -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 (executable)
index 0000000..4f255ad
--- /dev/null
@@ -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 (executable)
index 0000000..4851cae
--- /dev/null
@@ -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 (executable)
index 0000000..2a93f50
--- /dev/null
@@ -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 (executable)
index 0000000..b24ae07
--- /dev/null
@@ -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 (executable)
index 0000000..a1b020f
--- /dev/null
@@ -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"
+}
+
+
old mode 100644 (file)
new mode 100755 (executable)
old mode 100644 (file)
new mode 100755 (executable)
index f9b9af6..9178db6 100755 (executable)
@@ -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 (executable)
index 0000000..914c94c
--- /dev/null
@@ -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 (executable)
index 0000000..544b1c6
--- /dev/null
@@ -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"
+}
old mode 100644 (file)
new mode 100755 (executable)
old mode 100644 (file)
new mode 100755 (executable)
index 1f4f94a..1a7ec4a 100755 (executable)
@@ -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 (executable)
index 0000000..8b029d5
--- /dev/null
@@ -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 (executable)
index 0000000..4537966
--- /dev/null
@@ -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 (executable)
index 0000000..63df4e8
--- /dev/null
@@ -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 (executable)
index 0000000..2fed9a9
--- /dev/null
@@ -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 (executable)
index 0000000..4dc4f39
--- /dev/null
@@ -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 (executable)
index 0000000..b97a709
--- /dev/null
@@ -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 (executable)
index 0000000..413e159
--- /dev/null
@@ -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 (executable)
index 0000000..61140a4
--- /dev/null
@@ -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 (executable)
index 0000000..4b409a1
--- /dev/null
@@ -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 (executable)
index 0000000..36af027
--- /dev/null
@@ -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 (executable)
index 0000000..d12d79f
--- /dev/null
@@ -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 (executable)
index 0000000..d45dd94
--- /dev/null
@@ -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 (executable)
index 0000000..182dc9c
--- /dev/null
@@ -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 (executable)
index 0000000..1e43ea0
--- /dev/null
@@ -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 (executable)
index 0000000..f49c121
--- /dev/null
@@ -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}"
+}
old mode 100644 (file)
new mode 100755 (executable)
index 04ff551..307354a
@@ -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
old mode 100644 (file)
new mode 100755 (executable)
index 6d7f171..aaae282
@@ -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 (executable)
index 0000000..61f99c5
--- /dev/null
@@ -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
+
index 0905902..35ea345 100755 (executable)
@@ -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
 
 
index 359d81d..e5d8527 100755 (executable)
@@ -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 (executable)
index 0000000..eb008a6
--- /dev/null
@@ -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
index 906bada..a19c8c4 100755 (executable)
@@ -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 (executable)
index 0000000..e8f08f0
--- /dev/null
@@ -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
+
index eea3fca..4e2baea 100755 (executable)
@@ -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
index d7ef5ab..e6f6b6d 100755 (executable)
@@ -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 (executable)
index 0000000..0ba3ff2
--- /dev/null
@@ -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 (executable)
index 0000000..eb2e3ea
--- /dev/null
@@ -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"
+}
old mode 100644 (file)
new mode 100755 (executable)
index 47f52df..4ea9ec8
@@ -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
 
old mode 100644 (file)
new mode 100755 (executable)
index 05aedb1..a5dad57
@@ -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
 
old mode 100644 (file)
new mode 100755 (executable)
index 5afef3b..3d17511
@@ -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
 
old mode 100644 (file)
new mode 100755 (executable)
index 6860b88..8aae3ab
@@ -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
 
old mode 100644 (file)
new mode 100755 (executable)
index 54e7f12..a85ff0d
@@ -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
old mode 100644 (file)
new mode 100755 (executable)
old mode 100644 (file)
new mode 100755 (executable)
old mode 100644 (file)
new mode 100755 (executable)
old mode 100644 (file)
new mode 100755 (executable)
index 8a25734..eb85c1d
@@ -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
 
old mode 100644 (file)
new mode 100755 (executable)
index 37e49d3..292c782
@@ -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 ]
old mode 100644 (file)
new mode 100755 (executable)
index f32f8f8..8327db4
@@ -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
 
index 195116e..073899d 100755 (executable)
@@ -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
old mode 100644 (file)
new mode 100755 (executable)
old mode 100644 (file)
new mode 100755 (executable)
index d6ccd82..9e0e9e3
@@ -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
old mode 100644 (file)
new mode 100755 (executable)
index fa64f37..99a02a8
@@ -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
old mode 100644 (file)
new mode 100755 (executable)
index cb644f3..8920a04
@@ -5,7 +5,7 @@ puts "========================"
 igesbrep [locate_data_file buc60820.igs] a *
 
 tpcompound result
-puts [checkshape result r]
+checkshape result r
 
 tclean result
 vinit
old mode 100644 (file)
new mode 100755 (executable)
index 039531d..c699df5
@@ -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
old mode 100644 (file)
new mode 100755 (executable)
index 3fbc4a3..98a0098
@@ -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
old mode 100644 (file)
new mode 100755 (executable)
old mode 100644 (file)
new mode 100755 (executable)
index 788453a..d7fd2f2
@@ -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
 
index e9e4518..9e072a8 100755 (executable)
@@ -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
 
index 072a986..2f683d0 100755 (executable)
@@ -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
 
index 7d8ea86..0e94610 100755 (executable)
@@ -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
 
index a91603e..1516b99 100755 (executable)
@@ -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
index b40f2cf..fc9249f 100755 (executable)
@@ -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
index 0c2184c..ae09020 100755 (executable)
@@ -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
index 6abd109..b20e4ce 100755 (executable)
@@ -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
index a4c6e5d..8ba7461 100755 (executable)
@@ -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
index 03648f4..40ba724 100755 (executable)
@@ -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
index ff6dfd5..a185355 100755 (executable)
@@ -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
index d399d3d..d4575d0 100755 (executable)
@@ -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
 
index e4474e9..4218d45 100755 (executable)
@@ -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
 
index 2dbee07..ef0fa98 100755 (executable)
@@ -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
 
index ab0dfac..0bb5ce4 100755 (executable)
@@ -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
 
index 3c8f876..4d488d5 100755 (executable)
@@ -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
 
index 7522d71..a944e00 100755 (executable)
@@ -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
 
old mode 100644 (file)
new mode 100755 (executable)
old mode 100644 (file)
new mode 100755 (executable)
index 5a9aeca..8c0b08c 100755 (executable)
@@ -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"
index 01b916c..0e0508c 100755 (executable)
@@ -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"
index 7886471..66c7815 100755 (executable)
@@ -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"
index 2fdc0cd..9973a43 100755 (executable)
@@ -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
index e77d0e8..fe126e0 100755 (executable)
@@ -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
 
index 1995795..7e505ac 100755 (executable)
@@ -13,7 +13,7 @@ tclean a
 
 sewing result a
 
-puts [checkshape result]
+checkshape result
 
 vinit
 vsetdispmode result 1
index 0c514dd..fab0839 100755 (executable)
@@ -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
index bd57997..c2a775d 100755 (executable)
@@ -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
index 7046bb1..c3741b6 100755 (executable)
@@ -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
index 882fd50..4434aa7 100755 (executable)
@@ -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
index 8a533fe..18d1db6 100755 (executable)
@@ -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 (executable)
index 0000000..209f6da
--- /dev/null
@@ -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
+
index 1080b54..b1bd700 100755 (executable)
@@ -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
 
index 3a4c159..bfad546 100755 (executable)
@@ -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
 
index 82c8302..26d2244 100755 (executable)
@@ -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 (executable)
index 0000000..381a1b3
--- /dev/null
@@ -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"
+    }
+}
+
+
index 3f092b0..c68cc2a 100755 (executable)
@@ -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
 
old mode 100644 (file)
new mode 100755 (executable)
old mode 100644 (file)
new mode 100755 (executable)
index 584022a..7895cce
@@ -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
 
index 2bb293b..769221a 100755 (executable)
@@ -17,7 +17,7 @@ if { [string compare ${TheFileName} ""] != 0 } {
     }
 }
 
-puts [checkshape res]
+checkshape res
 
 tclean res
 
old mode 100644 (file)
new mode 100755 (executable)
old mode 100644 (file)
new mode 100755 (executable)
old mode 100644 (file)
new mode 100755 (executable)
index faa1e29..bb20c30 100755 (executable)
@@ -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
index c3a7fe1..32b9d90 100755 (executable)
@@ -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"
index 7a1fbd6..3980770 100755 (executable)
@@ -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
old mode 100644 (file)
new mode 100755 (executable)
index 9a24899..a1d1cb2
@@ -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
old mode 100644 (file)
new mode 100755 (executable)
index 4a8870f..6bc69bb
@@ -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
 
old mode 100644 (file)
new mode 100755 (executable)
index ac3d913..c4e9dc3
@@ -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
 
old mode 100644 (file)
new mode 100755 (executable)
index b1f28cd..936a35b
@@ -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
old mode 100644 (file)
new mode 100755 (executable)
index 0ba7b8e..be2eeff
@@ -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
old mode 100644 (file)
new mode 100755 (executable)
index 1e288a3..9d2b373
@@ -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
old mode 100644 (file)
new mode 100755 (executable)
index df2d543..8af0357
@@ -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
 
old mode 100644 (file)
new mode 100755 (executable)
index 9fb6561..0f0ba0f
@@ -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
 
index 11a7c0b..7e55c72 100755 (executable)
@@ -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
index 7552a71..eee1c97 100755 (executable)
@@ -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
index e9bfd36..76fbd95 100755 (executable)
@@ -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
old mode 100644 (file)
new mode 100755 (executable)
index 2647039..d37af3d
@@ -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
old mode 100644 (file)
new mode 100755 (executable)
index be68670..35906ca
@@ -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
 
old mode 100644 (file)
new mode 100755 (executable)
index 501aba6..25d0b27
@@ -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
old mode 100644 (file)
new mode 100755 (executable)
index d33331f..c477cdb
@@ -4,7 +4,7 @@ puts "BUC60635"
 puts "============="
 
 restore [locate_data_file buc60635a.brep] a 
-puts [checkshape a]
+checkshape a
 
 mkplane result a
 
index 8cf1ac6..313cc93 100755 (executable)
@@ -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 } {
old mode 100644 (file)
new mode 100755 (executable)
index b688dca..2cf7b73
@@ -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
 
index e6a0c9c..3bf367b 100755 (executable)
@@ -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
 
old mode 100644 (file)
new mode 100755 (executable)
index 1e09f79..ef4feb6 100755 (executable)
@@ -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 
 
old mode 100644 (file)
new mode 100755 (executable)
index 72663b9..487dc77
@@ -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
 
index d032046..d213ff1 100755 (executable)
@@ -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"
old mode 100644 (file)
new mode 100755 (executable)
index b2976f4..a8a4b77
@@ -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] {
old mode 100644 (file)
new mode 100755 (executable)
index 1e1578a..fc773b6
@@ -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"
old mode 100644 (file)
new mode 100755 (executable)
index ec7ad8f..32f0064
@@ -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"
old mode 100644 (file)
new mode 100755 (executable)
index 5757e01..85a5fed
@@ -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
 
index f92c581..906f393 100755 (executable)
@@ -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
 
index 4e47b77..dfe87f1 100755 (executable)
@@ -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
old mode 100644 (file)
new mode 100755 (executable)
old mode 100644 (file)
new mode 100755 (executable)
index b844711..278e19f
@@ -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
 
old mode 100644 (file)
new mode 100755 (executable)
index 275a0c7..1083077
@@ -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
old mode 100644 (file)
new mode 100755 (executable)
index ba3caef..a8e30d8
@@ -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
old mode 100644 (file)
new mode 100755 (executable)
old mode 100644 (file)
new mode 100755 (executable)
index e7fd3c9..527904a 100755 (executable)
@@ -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
 
index e65731c..48e5ec7 100755 (executable)
@@ -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
 
old mode 100644 (file)
new mode 100755 (executable)
index 51f088d..bc6ba4b
@@ -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
 
index 8380af7..5b9c8ff 100755 (executable)
@@ -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
 
index 3b8085c..dbf3fd8 100755 (executable)
@@ -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
 
index 59aa0cd..6cd0887 100755 (executable)
@@ -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
 
index eee4f39..8ae8dde 100755 (executable)
@@ -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
 
old mode 100644 (file)
new mode 100755 (executable)
old mode 100644 (file)
new mode 100755 (executable)
index d97749a..78d4822
@@ -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
 
index 893aaf5..690d68b 100755 (executable)
@@ -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
 
index 1ef45ba..d0b5e69 100755 (executable)
@@ -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 } {
old mode 100644 (file)
new mode 100755 (executable)
index a76ba5b..cad2dbf
@@ -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"
 
old mode 100644 (file)
new mode 100755 (executable)
index a619046..b12cccc
@@ -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
 
old mode 100644 (file)
new mode 100755 (executable)
index 2cdd50d..cf84ffe
@@ -5,7 +5,7 @@ puts "============"
 puts ""
 
 restore [locate_data_file BUC60849.brep] result
-puts [checkshape result]
+checkshape result
 
 set bndb [ lindex [bounding result] 3 ]
 
index 60ddd30..e40cc1c 100755 (executable)
@@ -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
 
old mode 100644 (file)
new mode 100755 (executable)
index 00cb07d..acdf0d8
@@ -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
index 68c7987..c5fe7f4 100755 (executable)
@@ -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 } {
index fe21133..f68c06d 100755 (executable)
@@ -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 } {
index f51378e..a67e88e 100755 (executable)
@@ -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 } {
index 42e3529..e488e34 100755 (executable)
@@ -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
old mode 100644 (file)
new mode 100755 (executable)
index 3330cf4..0c4a2f7
@@ -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
 
old mode 100644 (file)
new mode 100755 (executable)
old mode 100644 (file)
new mode 100755 (executable)
old mode 100644 (file)
new mode 100755 (executable)
old mode 100644 (file)
new mode 100755 (executable)
old mode 100644 (file)
new mode 100755 (executable)
index 028506f..81374aa 100755 (executable)
@@ -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
index 48ee24c..d5f8bfc 100755 (executable)
@@ -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
 
old mode 100644 (file)
new mode 100755 (executable)
index abf92db..2e32acc
@@ -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
 
old mode 100644 (file)
new mode 100755 (executable)
index b25473f..80d4a4d
@@ -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
old mode 100644 (file)
new mode 100755 (executable)
index c0ced12..5a6fff9
@@ -4,7 +4,7 @@ puts "BUC60934"
 puts "============"
 
 restore [locate_data_file BUC60934.brep] a 
-puts [checkshape a]
+checkshape a
 
 mkplane result a
 
old mode 100644 (file)
new mode 100755 (executable)
index ad645da..4cbddcd
@@ -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
index 6815b28..4981868 100755 (executable)
@@ -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
old mode 100644 (file)
new mode 100755 (executable)
index fc2502f..b296845
@@ -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
index 59fe558..3a7fed6 100755 (executable)
@@ -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:
 
index 3abf8be..00d25aa 100755 (executable)
@@ -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
 
index 2314bb5..2cca8e0 100755 (executable)
@@ -5,7 +5,7 @@ puts "================"
 puts ""
 
 restore [locate_data_file DXF906.rle] wire 
-puts [checkshape wire]
+checkshape wire
 
 mkplane result wire
 
index 6bd274c..90f0ed0 100755 (executable)
@@ -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
 
index 6d59a56..c9dbb81 100755 (executable)
@@ -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
 
index cdb1f12..70b73d3 100755 (executable)
@@ -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
index 88342ea..df88060 100755 (executable)
@@ -11,7 +11,7 @@ puts ""
 
 restore [locate_data_file OCC109.brep] result
 
-puts [checkshape result]
+checkshape result
 
 vinit
 tclean result
index d2a6868..12eff3b 100755 (executable)
@@ -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
index ecd845a..523c69a 100755 (executable)
@@ -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
index eaeeefc..3d389aa 100755 (executable)
@@ -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
index 53eb908..072b962 100755 (executable)
@@ -8,7 +8,7 @@ puts ""
 #############################################
 
 restore [locate_data_file OCC116.brep] sh 
-puts [checkshape sh]
+checkshape sh
  
 explode sh f
 explode sh_6 e
index 7099cdb..df5947b 100755 (executable)
@@ -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
 
index db8dcf3..4847bb8 100755 (executable)
@@ -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 (executable)
index 0000000..936f184
--- /dev/null
@@ -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
index 1c71e44..069e6ea 100755 (executable)
@@ -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
 
index 5498302..ea8056d 100755 (executable)
@@ -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
 
index 3f5d022..3bf29a6 100755 (executable)
@@ -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
 
index 8b08cc8..1fbedc2 100755 (executable)
@@ -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
 
index 800771d..b92f668 100755 (executable)
@@ -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
 
index d7f4bde..7e892c3 100755 (executable)
@@ -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
 
index 8c42b00..ca0a6d2 100755 (executable)
@@ -5,7 +5,7 @@ puts "================"
 puts ""
 
 restore [locate_data_file OCC123.brep] sh 
-puts [checkshape sh]
+checkshape sh
 
 explode sh
 
index bb0f9ab..edb5a88 100755 (executable)
@@ -5,7 +5,7 @@ puts "================"
 puts ""
 
 restore [locate_data_file OCC123.brep] sh 
-puts [checkshape sh]
+checkshape sh
 
 explode sh
 
index c132bc0..9f342ca 100755 (executable)
@@ -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
index 0c52163..b10e67e 100755 (executable)
@@ -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 (executable)
index 0000000..f599daf
--- /dev/null
@@ -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
index 8e28662..0e8e48e 100755 (executable)
@@ -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
 
index e681e48..c71a916 100755 (executable)
@@ -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
 
index beb3466..081a383 100755 (executable)
@@ -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
 
index 20a44e0..bbf1721 100755 (executable)
@@ -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 (executable)
index 0000000..362dac5
--- /dev/null
@@ -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
+
index a6671c7..2bca211 100755 (executable)
@@ -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
 
index f0c5097..f7ae228 100755 (executable)
@@ -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 (executable)
index 0000000..a33f934
--- /dev/null
@@ -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 (executable)
index 0000000..7314139
--- /dev/null
@@ -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
+
index bd978a5..e03a130 100755 (executable)
@@ -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
index bb16519..91e347b 100755 (executable)
@@ -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
old mode 100644 (file)
new mode 100755 (executable)
old mode 100644 (file)
new mode 100755 (executable)
old mode 100644 (file)
new mode 100755 (executable)
old mode 100644 (file)
new mode 100755 (executable)
index 991849d..938d053 100755 (executable)
@@ -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
index a3ba58a..cf75ceb 100755 (executable)
@@ -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
index c03c8ee..91e2a85 100755 (executable)
@@ -5,7 +5,7 @@ puts " (case 0)"
 puts "========"
 
 restore [locate_data_file OCC264_00.rle] result
-puts [checkshape result]
+checkshape result
 
 tclean result
 vinit
index 16bc617..83974cb 100755 (executable)
@@ -7,7 +7,7 @@ puts " (case 1)"
 puts "========"
 
 restore [locate_data_file OCC264_01.brep] result
-puts [checkshape result]
+checkshape result
 
 tclean result
 vinit