1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-04 18:06:22 +03:00

0024927: Getting rid of "Persistent" functionality -- Tests

All uses of "MDTV-Standard" and "MDTV-Design" in tests changed to "BinOcaf", and "MDTV-XCAF" changed to "BinXCAF".
Formats changed: .std to .cbf, .dxc to .dbf.

Test groups renamed accordingly:
xcaf: brep_to_dxc -> brep_to_xbf, igs_to_dxc -> igs_to_xbf, stp_to_dxc -> stp_to_xbf, dxc -> xbf/A1, dxc_add_CL -> xbf_add_CL
xml: ocaf_std -> ocaf_cbf, xcaf_dxc -> xcaf_xbf
This commit is contained in:
dln 2014-08-29 10:24:24 +03:00 committed by bugmaster
parent fff263bd14
commit e837410dac
459 changed files with 210 additions and 210 deletions

View File

@ -5,12 +5,12 @@ puts "BUC60762"
puts "BUC60764" puts "BUC60764"
puts "===========" puts "==========="
Open [locate_data_file BUC60756_Doc.std] D Open [locate_data_file BUC60756_Doc.cbf] D
###################################################################### ######################################################################
catch {file delete ${imagedir}/Doc2.std} catch {file delete ${imagedir}/Doc2.cbf}
SaveAs D ${imagedir}/Doc2.std SaveAs D ${imagedir}/Doc2.cbf
Close D Close D
Open ${imagedir}/Doc2.std D Open ${imagedir}/Doc2.cbf D

View File

@ -5,7 +5,7 @@ puts "==========="
pload QAcommands pload QAcommands
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
set ResultError [BUC60836 D] set ResultError [BUC60836 D]

View File

@ -2,7 +2,7 @@ puts "==========="
puts "BUC60813" puts "BUC60813"
puts "===========" puts "==========="
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
NewCommand D NewCommand D

View File

@ -4,7 +4,7 @@ puts "==========="
pload QAcommands pload QAcommands
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
NewCommand D NewCommand D

View File

@ -4,7 +4,7 @@ puts "==========="
pload QAcommands pload QAcommands
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
NewCommand D NewCommand D

View File

@ -3,7 +3,7 @@ puts "BUC60844"
puts "BUC60845" puts "BUC60845"
puts "===========" puts "==========="
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
NewCommand D NewCommand D

View File

@ -4,7 +4,7 @@ puts "==========="
pload QAcommands pload QAcommands
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
NewCommand D NewCommand D

View File

@ -4,7 +4,7 @@ puts "==========="
pload QAcommands pload QAcommands
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
NewCommand D NewCommand D

View File

@ -4,7 +4,7 @@ puts "==========="
pload QAcommands pload QAcommands
set ResultError [ BUC60867 [locate_data_file BUC60756_Doc.std] ] set ResultError [ BUC60867 [locate_data_file BUC60756_Doc.cbf] ]
if { [regexp "0" $ResultError] != 1 } { if { [regexp "0" $ResultError] != 1 } {
puts "Error : 1" puts "Error : 1"

View File

@ -4,7 +4,7 @@ puts "==========="
pload QAcommands pload QAcommands
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
NewCommand D NewCommand D

View File

@ -4,7 +4,7 @@ puts "==========="
pload QAcommands pload QAcommands
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
box b 10 10 10 box b 10 10 10

View File

@ -29,7 +29,7 @@ pload QAcommands
set BREP [locate_data_file BUC60921.brep] set BREP [locate_data_file BUC60921.brep]
#set BREP [locate_data_file Bottom.brep] #set BREP [locate_data_file Bottom.brep]
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
set i_max 10 set i_max 10

View File

@ -4,7 +4,7 @@ puts "==========="
pload QAcommands pload QAcommands
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
NewCommand D NewCommand D

View File

@ -8,7 +8,7 @@ puts ""
pload QAcommands pload QAcommands
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
NewCommand D NewCommand D

View File

@ -7,7 +7,7 @@ puts "================"
pload QAcommands pload QAcommands
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
NewCommand D NewCommand D

View File

@ -8,7 +8,7 @@ puts ""
pload QAcommands pload QAcommands
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
NewCommand D NewCommand D

View File

@ -8,7 +8,7 @@ puts ""
pload QAcommands pload QAcommands
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
NewCommand D NewCommand D

View File

@ -8,7 +8,7 @@ puts ""
pload QAcommands pload QAcommands
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
NewCommand D NewCommand D

View File

@ -8,7 +8,7 @@ puts ""
pload QAcommands pload QAcommands
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
NewCommand D NewCommand D

View File

@ -6,7 +6,7 @@ puts "==========="
set i_max 10 set i_max 10
puts "Amount of iterations is $i_max" puts "Amount of iterations is $i_max"
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 10 UndoLimit D 10
restore [locate_data_file OCC294.brep] s restore [locate_data_file OCC294.brep] s

View File

@ -14,7 +14,7 @@ puts ""
set IsGood 1 set IsGood 1
# Create a new document and set UndoLimit # Create a new document and set UndoLimit
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
# Create a label # Create a label

View File

@ -12,7 +12,7 @@ puts ""
####################################################################################### #######################################################################################
# Create a new document and set UndoLimit # Create a new document and set UndoLimit
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
# Create a label # Create a label

View File

@ -7,7 +7,7 @@ puts "===== OCC1454 ====="
puts "Info: Open the document with 80000 sublabels of the label 0:2" puts "Info: Open the document with 80000 sublabels of the label 0:2"
dchrono h reset dchrono h reset
dchrono h start dchrono h start
Open [locate_data_file OCC1726.std] D Open [locate_data_file OCC1726.cbf] D
dchrono h stop dchrono h stop
set TimeList [dchrono h show] set TimeList [dchrono h show]

View File

@ -2,13 +2,13 @@ puts "=============="
puts "OCC158" puts "OCC158"
puts "==============" puts "=============="
NewDocument D MDTV-Standard NewDocument D BinOcaf
################################################################## ##################################################################
if { [catch {set res [SaveAs D ${imagedir}/OCC158.std]}] != 0 } { if { [catch {set res [SaveAs D ${imagedir}/OCC158.cbf]}] != 0 } {
puts "OCC158: Error" puts "OCC158: Error"
} else { } else {
file delete ${imagedir}/OCC158.std file delete ${imagedir}/OCC158.cbf
} }

View File

@ -4,7 +4,7 @@ puts "==========="
pload QAcommands pload QAcommands
NewDocument D MDTV-Standard NewDocument D BinOcaf
set log [OCC159 D] set log [OCC159 D]

View File

@ -8,7 +8,7 @@ puts ""
puts "Info: Open the document with 80000 sublabels of the label 0:2" puts "Info: Open the document with 80000 sublabels of the label 0:2"
chrono h reset; chrono h start chrono h reset; chrono h start
Open [locate_data_file OCC1726.std] D Open [locate_data_file OCC1726.cbf] D
chrono h stop; chrono h show chrono h stop; chrono h show
set IsGood 1 set IsGood 1

View File

@ -6,7 +6,7 @@ puts ""
# Selection of Vertex returns Compound of vertexes # Selection of Vertex returns Compound of vertexes
############################################################## ##############################################################
NewDocument D MDTV-Standard NewDocument D BinOcaf
isos 12 isos 12
NewCommand D NewCommand D
AddDriver D PntXYZ PntRLT Line3D Attach AddDriver D PntXYZ PntRLT Line3D Attach

View File

@ -10,9 +10,9 @@ pload QAcommands
set BugNumber OCC22788 set BugNumber OCC22788
NewDocument D MDTV-Standard NewDocument D BinOcaf
set aFile OCC22788.std set aFile OCC22788.cbf
Open [locate_data_file ${aFile}] D Open [locate_data_file ${aFile}] D

View File

@ -8,7 +8,7 @@ puts ""
set BugNumber OCC22788 set BugNumber OCC22788
set aFile [locate_data_file OCC22788.std] set aFile [locate_data_file OCC22788.cbf]
Open ${aFile} D Open ${aFile} D

View File

@ -9,10 +9,10 @@ puts ""
set BugNumber OCC22995 set BugNumber OCC22995
set status 0 set status 0
set aFile1 $imagedir/${test_image}-1.std set aFile1 $imagedir/${test_image}-1.cbf
set aFile2 $imagedir/${test_image}-2.std set aFile2 $imagedir/${test_image}-2.cbf
NewDocument D MDTV-Standard NewDocument D BinOcaf
if { [file exists ${aFile1}] } { if { [file exists ${aFile1}] } {
file delete ${aFile1} file delete ${aFile1}

View File

@ -8,9 +8,9 @@ puts ""
set BugNumber OCC23071 set BugNumber OCC23071
set FileName $imagedir/${test_image}.STD set FileName $imagedir/${test_image}.CBF
set FileName2 $imagedir/${test_image}.std set FileName2 $imagedir/${test_image}.cbf
set FileName3 ${FileName}.std set FileName3 ${FileName}.cbf
set status 0 set status 0
@ -30,7 +30,7 @@ if [file exists ${FileName3}] {
set status 1 set status 1
} }
catch { NewDocument D MDTV-Standard } catch { NewDocument D BinOcaf }
if [catch {SaveAs D ${FileName} }] { if [catch {SaveAs D ${FileName} }] {
puts "Faulty ${BugNumber} ; SaveAs command: Error" puts "Faulty ${BugNumber} ; SaveAs command: Error"

View File

@ -11,7 +11,7 @@ for {set i 1} {$i < 10} {incr i} {
restore $file a restore $file a
# add shape to new OCAF document # add shape to new OCAF document
NewDocument D MDTV-Standard NewDocument D BinOcaf
# add shape to document # add shape to document
SetShape D 0:1 a SetShape D 0:1 a

View File

@ -8,7 +8,7 @@ puts ""
# test to check compatibility of old std format # test to check compatibility of old std format
Open [locate_data_file bug23766_ttt1_old.std] D Open [locate_data_file bug23766_ttt1_old.cbf] D
GetShape D 0:1:2:1:2 E1 GetShape D 0:1:2:1:2 E1
set info1 [whatis E1] set info1 [whatis E1]

View File

@ -9,7 +9,7 @@ puts ""
## test for keeping Orientation (std) ## test for keeping Orientation (std)
erase erase
NewDocument D MDTV-Standard NewDocument D BinOcaf
#1 - create box #1 - create box
NewCommand D NewCommand D
set B2 [AddObject D]; ## add object set B2 [AddObject D]; ## add object
@ -50,12 +50,12 @@ if { [regexp "REVERSED" $info2] != 1 } {
} }
#4 - test persistence: check orientation after retrieving (to be the same as before) #4 - test persistence: check orientation after retrieving (to be the same as before)
file delete -force ${imagedir}/bug23766_ttt1.std file delete -force ${imagedir}/bug23766_ttt1.cbf
NewCommand D NewCommand D
SaveAs D ${imagedir}/bug23766_ttt1.std SaveAs D ${imagedir}/bug23766_ttt1.cbf
Close D Close D
##unset D ##unset D
Open ${imagedir}/bug23766_ttt1.std D Open ${imagedir}/bug23766_ttt1.cbf D
GetShape D 0:1:2:1:2 E1 GetShape D 0:1:2:1:2 E1
set info3 [whatis E1] set info3 [whatis E1]
## to be: E1 is a shape EDGE FORWARD Modified Orientable ## to be: E1 is a shape EDGE FORWARD Modified Orientable

View File

@ -6,7 +6,7 @@ if { [info exists imagedir] == 0 } {
set BugNumber OCC24164 set BugNumber OCC24164
#1 open new document #1 open new document
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 10 0 0 UndoLimit D 10 0 0
InitLogBook D InitLogBook D
AddDriver D Box AddDriver D Box
@ -23,7 +23,7 @@ GetShape D $F2:2 Box2
NewCommand D NewCommand D
#3 save shape in the document #3 save shape in the document
SaveAs D ${imagedir}/testDoc1.std SaveAs D ${imagedir}/testDoc1.cbf
#4 close document #4 close document
set catch_status 0 set catch_status 0
@ -37,7 +37,7 @@ if { ${catch_status} != 0 } {
} }
#5 reopen just saved document with the same name #5 reopen just saved document with the same name
Open ${imagedir}/testDoc1.std D Open ${imagedir}/testDoc1.cbf D
set catch_status 0 set catch_status 0
#6 close the document #6 close the document

View File

@ -6,7 +6,7 @@ if { [info exists imagedir] == 0 } {
} }
#1 open new document #1 open new document
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 10 0 0 UndoLimit D 10 0 0
#2 define set of labels #2 define set of labels
@ -40,7 +40,7 @@ GetRefArray D $Lab5
GetRefArray D $Lab6 GetRefArray D $Lab6
#6 save the document #6 save the document
SaveAs D ${imagedir}/testDoc2.std SaveAs D ${imagedir}/testDoc2.cbf
#7 close the document #7 close the document
set catch_status 0 set catch_status 0
@ -54,7 +54,7 @@ if { ${catch_status} != 0 } {
} }
#8 reopen just saved document with the same name #8 reopen just saved document with the same name
Open ${imagedir}/testDoc2.std D Open ${imagedir}/testDoc2.cbf D
#9 close the document #9 close the document
if { [catch {Close D} catch_result] } { if { [catch {Close D} catch_result] } {

View File

@ -6,7 +6,7 @@ puts ""
# OCAF testing framework extending # OCAF testing framework extending
################################################### ###################################################
NewDocument D MDTV-Standard NewDocument D BinOcaf
#1 - create box1 #1 - create box1
NewCommand D NewCommand D

View File

@ -18,7 +18,7 @@
# 8. check the restored attributes at the specified labels # 8. check the restored attributes at the specified labels
# =============================================== # ===============================================
NewDocument D MDTV-Standard NewDocument D BinOcaf
# 1. create BooleanList attribute with empty list # 1. create BooleanList attribute with empty list
set Lab1 [Label D 0:1:1] set Lab1 [Label D 0:1:1]
SetBooleanList D $Lab1 SetBooleanList D $Lab1
@ -50,11 +50,11 @@ set info5 [GetReferenceList D $Lab5]
# output => "List is empty" # output => "List is empty"
# 6. save the Document in external file # 6. save the Document in external file
SaveAs D ${imagedir}/bug26014_test1.std SaveAs D ${imagedir}/bug26014_test1.cbf
Close D Close D
# 7. reopen the Document # 7. reopen the Document
Open ${imagedir}/bug26014_test1.std D Open ${imagedir}/bug26014_test1.cbf D
# 8. Check the restored attributes at the specified labels # 8. Check the restored attributes at the specified labels
set info8 [GetBooleanList D $Lab1] set info8 [GetBooleanList D $Lab1]

View File

@ -8,7 +8,7 @@ puts ""
pload QAcommands pload QAcommands
NewDocument D MDTV-Standard NewDocument D BinOcaf
## 1. Build Primitive face <f> ## 1. Build Primitive face <f>
plane pl 0 0 0 0 0 1 plane pl 0 0 0 0 0 1

View File

@ -4,7 +4,7 @@ puts "==========="
pload QAcommands pload QAcommands
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 10 UndoLimit D 10
NewCommand D NewCommand D
SetReal D 0:1 10 SetReal D 0:1 10

View File

@ -8,7 +8,7 @@ puts ""
pload QAcommands pload QAcommands
NewDocument D MDTV-Standard NewDocument D BinOcaf
set x_ref 0.0 set x_ref 0.0
set x_tol 0.1 set x_tol 0.1

View File

@ -2,10 +2,10 @@ puts "========"
puts "OCC267" puts "OCC267"
puts "========" puts "========"
NewDocument D MDTV-Standard NewDocument D BinOcaf
###################################################################### ######################################################################
file delete ${imagedir}/OCC267.std file delete ${imagedir}/OCC267.cbf
SaveAs D ${imagedir}/OCC267.std SaveAs D ${imagedir}/OCC267.cbf

View File

@ -8,9 +8,9 @@ puts "========"
pload QAcommands pload QAcommands
NewDocument D MDTV-Standard NewDocument D BinOcaf
file delete -force ${imagedir}/OCC267.std file delete -force ${imagedir}/OCC267.cbf
catch { OCC267 D ${imagedir}/OCC267.std } status catch { OCC267 D ${imagedir}/OCC267.cbf } status
set list [split ${status}] set list [split ${status}]
set index [lsearch -exact ${list} "CDF_StoreStatus"] set index [lsearch -exact ${list} "CDF_StoreStatus"]

View File

@ -6,7 +6,7 @@ puts ""
# BinOcaf: low performance saving documents with large attributes # BinOcaf: low performance saving documents with large attributes
######################################################################## ########################################################################
NewDocument D MDTV-Standard NewDocument D BinOcaf
# Loaded shapes for attributes # Loaded shapes for attributes
restore [locate_data_file Radhaus.brep] shape1 restore [locate_data_file Radhaus.brep] shape1

View File

@ -4,7 +4,7 @@ puts "==========="
pload QAcommands pload QAcommands
NewDocument D MDTV-Standard NewDocument D BinOcaf
circle acirc 0 0 0 20 circle acirc 0 0 0 20
mkedge anEdge acirc mkedge anEdge acirc

View File

@ -9,7 +9,7 @@ puts ""
####################################################################################### #######################################################################################
# Create a new document and set UndoLimit # Create a new document and set UndoLimit
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
# Create a label and set attributes # Create a label and set attributes

View File

@ -9,7 +9,7 @@ puts ""
####################################################################################### #######################################################################################
# Create a new document and set UndoLimit # Create a new document and set UndoLimit
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
# Create a label and set attributes # Create a label and set attributes

View File

@ -9,7 +9,7 @@ puts ""
####################################################################################### #######################################################################################
# Create a new document and set UndoLimit # Create a new document and set UndoLimit
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
# Create a label and set attributes # Create a label and set attributes

View File

@ -9,7 +9,7 @@ puts ""
####################################################################################### #######################################################################################
# Create a new document and set UndoLimit # Create a new document and set UndoLimit
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
# Create a label and set attributes # Create a label and set attributes

View File

@ -9,7 +9,7 @@ puts ""
####################################################################################### #######################################################################################
# Create a new document and set UndoLimit # Create a new document and set UndoLimit
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
# Create a label and set attributes # Create a label and set attributes

View File

@ -9,7 +9,7 @@ puts ""
####################################################################################### #######################################################################################
# Create a new document and set UndoLimit # Create a new document and set UndoLimit
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
# Create a label and set attributes # Create a label and set attributes

View File

@ -9,7 +9,7 @@ puts ""
####################################################################################### #######################################################################################
# Create a new document and set UndoLimit # Create a new document and set UndoLimit
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
# Create a label and set attributes # Create a label and set attributes

View File

@ -9,7 +9,7 @@ puts ""
####################################################################################### #######################################################################################
# Create a new document and set UndoLimit # Create a new document and set UndoLimit
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
# Create a label and set attributes # Create a label and set attributes

View File

@ -11,7 +11,7 @@ puts ""
pload QAcommands pload QAcommands
# Create a new document and set UndoLimit # Create a new document and set UndoLimit
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
# Create a label and set attributes # Create a label and set attributes

View File

@ -9,7 +9,7 @@ puts ""
####################################################################################### #######################################################################################
# Create a new document and set UndoLimit # Create a new document and set UndoLimit
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
# Create a label and set attributes # Create a label and set attributes

View File

@ -9,7 +9,7 @@ puts ""
####################################################################################### #######################################################################################
# Create a new document and set UndoLimit # Create a new document and set UndoLimit
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
# Create a label and set attributes # Create a label and set attributes

View File

@ -9,7 +9,7 @@ puts ""
####################################################################################### #######################################################################################
# Create a new document and set UndoLimit # Create a new document and set UndoLimit
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
# Create a label and set attributes # Create a label and set attributes

View File

@ -9,7 +9,7 @@ puts ""
####################################################################################### #######################################################################################
# Create a new document and set UndoLimit # Create a new document and set UndoLimit
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
# Create a label and set attributes # Create a label and set attributes

View File

@ -11,7 +11,7 @@ puts ""
pload QAcommands pload QAcommands
# Create a new document and set UndoLimit # Create a new document and set UndoLimit
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
# Create a label and set attributes # Create a label and set attributes

View File

@ -9,7 +9,7 @@ puts ""
####################################################################################### #######################################################################################
# Create a new document and set UndoLimit # Create a new document and set UndoLimit
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
# Create a label and set attributes # Create a label and set attributes

View File

@ -9,7 +9,7 @@ puts ""
####################################################################################### #######################################################################################
# Create a new document and set UndoLimit # Create a new document and set UndoLimit
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
# Create a label and set attributes # Create a label and set attributes

View File

@ -9,7 +9,7 @@ puts ""
####################################################################################### #######################################################################################
# Create a new document and set UndoLimit # Create a new document and set UndoLimit
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
# Create a label and set attributes # Create a label and set attributes

View File

@ -9,7 +9,7 @@ puts ""
####################################################################################### #######################################################################################
# Create a new document and set UndoLimit # Create a new document and set UndoLimit
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
# Create a label and set attributes # Create a label and set attributes

View File

@ -9,7 +9,7 @@ puts ""
####################################################################################### #######################################################################################
# Create a new document and set UndoLimit # Create a new document and set UndoLimit
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
# Create a label and set attributes # Create a label and set attributes

View File

@ -9,7 +9,7 @@ puts ""
####################################################################################### #######################################################################################
# Create a new document and set UndoLimit # Create a new document and set UndoLimit
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
# Create a label and set attributes # Create a label and set attributes

View File

@ -11,7 +11,7 @@ puts ""
pload QAcommands pload QAcommands
# Create a new document and set UndoLimit # Create a new document and set UndoLimit
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
# Create a label and set attributes # Create a label and set attributes

View File

@ -11,7 +11,7 @@ puts ""
pload QAcommands pload QAcommands
# Create a new document and set UndoLimit # Create a new document and set UndoLimit
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
# Create a label and set attributes # Create a label and set attributes

View File

@ -9,7 +9,7 @@ puts ""
####################################################################################### #######################################################################################
# Create a new document and set UndoLimit # Create a new document and set UndoLimit
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
# Create a label and set attributes # Create a label and set attributes

View File

@ -9,7 +9,7 @@ puts ""
####################################################################################### #######################################################################################
# Create a new document and set UndoLimit # Create a new document and set UndoLimit
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 100 UndoLimit D 100
# Create a label and set attributes # Create a label and set attributes

View File

@ -4,7 +4,7 @@ puts "==========="
pload QAcommands pload QAcommands
NewDocument D MDTV-Standard NewDocument D BinOcaf
vertex v1 0 0 -50 vertex v1 0 0 -50
vertex v2 0 100 -50 vertex v2 0 100 -50

View File

@ -4,7 +4,7 @@ puts "==========="
pload QAcommands pload QAcommands
NewDocument D MDTV-Standard NewDocument D BinOcaf
NameBox D 0:1 100 100 100 NameBox D 0:1 100 100 100
NamePrism D 0:2 0:1:1 200 -1 0 0 NamePrism D 0:2 0:1:1 200 -1 0 0

View File

@ -4,7 +4,7 @@ puts "==========="
pload QAcommands pload QAcommands
NewDocument D MDTV-Standard NewDocument D BinOcaf
NameBox D 0:1 100 100 100 NameBox D 0:1 100 100 100
box abox 100 100 100 box abox 100 100 100

View File

@ -4,7 +4,7 @@ puts "==========="
pload QAcommands pload QAcommands
NewDocument D MDTV-Standard NewDocument D BinOcaf
NameCylinder D 0:1 20 100 0 Solid NameCylinder D 0:1 20 100 0 Solid
NamePrism D 0:2 0:1:2 50 0 0 1 NamePrism D 0:2 0:1:2 50 0 0 1

View File

@ -5,7 +5,7 @@ puts "================="
pload QAcommands pload QAcommands
NewDocument D MDTV-Standard NewDocument D BinOcaf
if { [catch { OCC361 D }] } { if { [catch { OCC361 D }] } {
puts "OCC361: Error" puts "OCC361: Error"

View File

@ -5,14 +5,14 @@ puts ""
pload QAcommands pload QAcommands
NewDocument D MDTV-Standard NewDocument D BinOcaf
###################################################### ######################################################
catch { SaveAs D ${imagedir}/OCC381_1.std } catch { SaveAs D ${imagedir}/OCC381_1.cbf }
if { [catch { OCC381_Save D } ] } { if { [catch { OCC381_Save D } ] } {
puts "OCC381: Error" puts "OCC381: Error"
} else { } else {
catch { exec chmod 777 ${imagedir}/OCC381_1.std } catch { exec chmod 777 ${imagedir}/OCC381_1.cbf }
file delete -force ${imagedir}/OCC381_1.std file delete -force ${imagedir}/OCC381_1.cbf
} }

View File

@ -5,13 +5,13 @@ puts ""
pload QAcommands pload QAcommands
NewDocument D MDTV-Standard NewDocument D BinOcaf
###################################################### ######################################################
if { [catch { OCC381_SaveAs D ${imagedir}/OCC381_2.std}] } { if { [catch { OCC381_SaveAs D ${imagedir}/OCC381_2.cbf}] } {
puts "OCC381: Error" puts "OCC381: Error"
} else { } else {
catch {exec chmod 777 ${imagedir}/OCC381_2.std} catch {exec chmod 777 ${imagedir}/OCC381_2.cbf}
file delete -force ${imagedir}/OCC381_2.std file delete -force ${imagedir}/OCC381_2.cbf
} }

View File

@ -3,7 +3,7 @@ puts "OCC387"
puts "SAM1452" puts "SAM1452"
puts "===========" puts "==========="
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 10 UndoLimit D 10
NewCommand D NewCommand D
SetVariable D 0:1 0 a SetVariable D 0:1 0 a

View File

@ -10,7 +10,7 @@ puts "==========="
set IsGood 1 set IsGood 1
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 10 UndoLimit D 10
# Add an attribute to a data framework # Add an attribute to a data framework
@ -23,7 +23,7 @@ SetName D ${aLabel} ${aSetAttr1}
NewCommand D NewCommand D
# Save the document # Save the document
set aFile ${imagedir}/OCC425.std set aFile ${imagedir}/OCC425.cbf
catch {file delete ${aFile}} catch {file delete ${aFile}}
SaveAs D ${aFile} SaveAs D ${aFile}
if { ![file exists ${aFile}] } { if { ![file exists ${aFile}] } {

View File

@ -6,7 +6,7 @@ puts ""
# Performance regression in opening OCAF file # Performance regression in opening OCAF file
###################################################### ######################################################
set aFile [locate_data_file OCC5023.std] set aFile [locate_data_file OCC5023.cbf]
puts "Info: Restore the document" puts "Info: Restore the document"

View File

@ -5,7 +5,7 @@ puts "==========="
pload QAcommands pload QAcommands
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 10 UndoLimit D 10
# Close/Open transaction # Close/Open transaction

View File

@ -5,7 +5,7 @@ puts "==========="
pload QAcommands pload QAcommands
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 10 UndoLimit D 10
# Close/Open transaction # Close/Open transaction

View File

@ -5,7 +5,7 @@ puts "==========="
pload QAcommands pload QAcommands
NewDocument D MDTV-Standard NewDocument D BinOcaf
UndoLimit D 10 UndoLimit D 10
# Close/Open transaction # Close/Open transaction

View File

@ -11,7 +11,7 @@ set BugNumber OCC22770
catch { pload XDE } catch { pload XDE }
# Create a new document and set UndoLimit # Create a new document and set UndoLimit
# NewDocument D MDTV-XCAF # NewDocument D BinXCAF
# UndoLimit D 100 # UndoLimit D 100
# Open a transaction # Open a transaction
# NewCommand D # NewCommand D

View File

@ -18,7 +18,7 @@ catch { pload XDE }
# Create a new document and set UndoLimit # Create a new document and set UndoLimit
# NewDocument D MDTV-XCAF # NewDocument D BinXCAF
# UndoLimit D 100 # UndoLimit D 100
# Open a transaction # Open a transaction

View File

@ -18,7 +18,7 @@ catch { pload XDE }
# Create a new document and set UndoLimit # Create a new document and set UndoLimit
# NewDocument D MDTV-XCAF # NewDocument D BinXCAF
# UndoLimit D 100 # UndoLimit D 100
# Open a transaction # Open a transaction

View File

@ -11,7 +11,7 @@ set BugNumber OCC22770
catch { pload XDE } catch { pload XDE }
# Create a new document and set UndoLimit # Create a new document and set UndoLimit
# NewDocument D MDTV-XCAF # NewDocument D BinXCAF
# UndoLimit D 100 # UndoLimit D 100
# Open a transaction # Open a transaction
# NewCommand D # NewCommand D

View File

@ -11,7 +11,7 @@ set BugNumber OCC22770
catch { pload XDE } catch { pload XDE }
# Create a new document and set UndoLimit # Create a new document and set UndoLimit
# NewDocument D MDTV-XCAF # NewDocument D BinXCAF
# UndoLimit D 100 # UndoLimit D 100
# Open a transaction # Open a transaction
# NewCommand D # NewCommand D

View File

@ -13,9 +13,9 @@ puts ""
###################################################################### ######################################################################
#set filedir $env(TmpDir) #set filedir $env(TmpDir)
#puts $filedir #puts $filedir
#catch {exec rm $filedir/OCC363.dxc} #catch {exec rm $filedir/OCC363.xbf}
pload XDE pload XDE
set T [OCC363 OCC363Doc [locate_data_file OCC363.dxc]] set T [OCC363 OCC363Doc [locate_data_file OCC363.xbf]]
puts $T puts $T

View File

@ -13,7 +13,7 @@ catch {pload DCAF}
# Create a new document and set UndoLimit # Create a new document and set UndoLimit
NewDocument D MDTV-XCAF NewDocument D BinXCAF
UndoLimit D 100 UndoLimit D 100
# Open a transaction # Open a transaction

View File

@ -8,7 +8,7 @@ puts ""
pload DCAF pload DCAF
Open [locate_data_file bug24849_Study1_GEOM.sgd] D Open [locate_data_file bug24849_Study1_GEOM.cbf] D
GetShape D 0:1:465:1:1:2 f GetShape D 0:1:465:1:1:2 f
GetShape D 0:1:283:1:1:2 w GetShape D 0:1:283:1:1:2 w

View File

@ -8,7 +8,7 @@ puts ""
pload DCAF pload DCAF
Open [locate_data_file bug24849_Study1_GEOM.sgd] D Open [locate_data_file bug24849_Study1_GEOM.cbf] D
GetShape D 0:1:465:1:1:2 f GetShape D 0:1:465:1:1:2 f
GetShape D 0:1:283:1:1:2 w GetShape D 0:1:283:1:1:2 w

View File

@ -8,7 +8,7 @@ puts ""
pload DCAF pload DCAF
Open [locate_data_file bug25969_pal22851.sgd] D Open [locate_data_file bug25969_pal22851.cbf] D
GetShape D 0:1:15:1:1:2 b1 GetShape D 0:1:15:1:1:2 b1
GetShape D 0:1:29:1:1:2 b2 GetShape D 0:1:29:1:1:2 b2

View File

@ -8,7 +8,7 @@ puts ""
pload DCAF TOPTEST pload DCAF TOPTEST
Open [locate_data_file bug_glue_edges_GEOM.sgd] D Open [locate_data_file bug_glue_edges_GEOM.cbf] D
GetShape D 0:1:9686:1:1:2 s1 GetShape D 0:1:9686:1:1:2 s1
GetShape D 0:1:9449:1:1:2 s2 GetShape D 0:1:9449:1:1:2 s2

View File

@ -9,7 +9,7 @@ puts ""
catch {pload DCAF} catch {pload DCAF}
pload QAcommands pload QAcommands
NewDocument D MDTV-Standard NewDocument D BinXCAF
UndoLimit D 100 UndoLimit D 100
NewCommand D NewCommand D

View File

@ -13,7 +13,7 @@ puts ""
set BugNumber OCC22982 set BugNumber OCC22982
pload DCAF pload DCAF
NewDocument D11 MDTV-XCAF NewDocument D11 BinXCAF
UndoLimit D11 100 UndoLimit D11 100
# Open a transaction # Open a transaction
@ -62,7 +62,7 @@ NewCommand D11
file delete -force ${imagedir}/${test_image}.step file delete -force ${imagedir}/${test_image}.step
WriteStep D11 ${imagedir}/${test_image}.step WriteStep D11 ${imagedir}/${test_image}.step
NewDocument D2 MDTV-XCAF NewDocument D2 BinXCAF
UndoLimit D2 100 UndoLimit D2 100
# Close/Open a transaction # Close/Open a transaction

View File

@ -4,7 +4,7 @@
if {[array get env os_type] != ""} { if {[array get env os_type] != ""} {
set os $env(os_type) set os $env(os_type)
} }
XOpen [locate_data_file bug23384-doc_subshapes.dxc] doc XOpen [locate_data_file bug23384-doc_subshapes.xbf] doc
set info1 [XStat doc] set info1 [XStat doc]
regexp {level N 0 +: +([-0-9.+eE]+)} $info1 full l0 regexp {level N 0 +: +([-0-9.+eE]+)} $info1 full l0
regexp {level N 1 +: +([-0-9.+eE]+)} $info1 full l1 regexp {level N 1 +: +([-0-9.+eE]+)} $info1 full l1

View File

@ -8,7 +8,7 @@ puts ""
pload DCAF pload DCAF
NewDocument D MDTV-XCAF NewDocument D BinXCAF
UndoLimit D 100 UndoLimit D 100
NewCommand D NewCommand D

View File

@ -8,7 +8,7 @@ puts ""
pload DCAF pload DCAF
NewDocument D MDTV-XCAF NewDocument D BinXCAF
UndoLimit D 100 UndoLimit D 100
NewCommand D NewCommand D

View File

@ -18,7 +18,7 @@ SetInteger D ${aLabel} ${aSetAttr1}
NewCommand D NewCommand D
# Save the document # Save the document
set aFile ${imagedir}/caf001-A3.std set aFile ${imagedir}/caf001-A3.cbf
file delete ${aFile} file delete ${aFile}
SaveAs D ${aFile} SaveAs D ${aFile}
if { ![file exists ${aFile}] } { if { ![file exists ${aFile}] } {

View File

@ -18,7 +18,7 @@ SetReal D ${aLabel} ${aSetAttr1}
NewCommand D NewCommand D
# Save the document # Save the document
set aFile ${imagedir}/caf001-B3.std set aFile ${imagedir}/caf001-B3.cbf
file delete ${aFile} file delete ${aFile}
SaveAs D ${aFile} SaveAs D ${aFile}
if { ![file exists ${aFile}] } { if { ![file exists ${aFile}] } {

Some files were not shown because too many files have changed in this diff Show More