mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
0e443e130c
Test parse rules are improved to recognize messages with word 'fail' or 'failure' as errors. Test cases are corrected accordingly (TODO or REQUIRED statements added where fail messages were not noticed previously).
334 lines
11 KiB
Plaintext
334 lines
11 KiB
Plaintext
puts "==========="
|
|
puts "0027241: Create a complete test case to verify reading of all attribute types from MDTV-Standard document"
|
|
puts "==========="
|
|
puts ""
|
|
|
|
# Set Create_Doc to 1 to generate the document (using OCCT 6.9.1 or earlier)
|
|
set Create_Doc 0
|
|
|
|
set test_file_name bug27241_ocaf_all_attributes.std
|
|
|
|
set test_name "OCC26961"
|
|
set test_int 123
|
|
set test_real 123.456e-7
|
|
set test_int_arr {10 20}
|
|
set test_real_arr {1.1 3.14 5.4e18}
|
|
set test_extstr_arr {"sample string 1" "string 2"}
|
|
set test_bool_arr {0 1}
|
|
set test_ref_arr {"0:1:2:3:2" "0:1:2:3:1"}
|
|
set test_byte_arr {15 25}
|
|
set test_map {1 5 2 10}
|
|
set test_map_sorted {1 2 5 10}
|
|
set test_named_ints {i1 1 i2 2}
|
|
set test_named_reals {r1 1.1 r2 2.2}
|
|
set test_named_strings {s1 string1 s2 string2}
|
|
set test_named_bytes {b1 65 b2 66}
|
|
set test_ref "0:1:1"
|
|
set test_guid "00000000-0000-0000-2222-000000000000"
|
|
set test_comment "Sample document containing various attributes"
|
|
set test_string "Sample string"
|
|
set test_expr "2*pi*r"
|
|
set test_var1 "0:1:2:3:2"
|
|
set test_var2 "0:1:2:3:1"
|
|
set test_point "111 222 333"
|
|
set test_axisPos "10 10 30"
|
|
set test_axisDir "11 22 33"
|
|
set test_plane "15 25 35"
|
|
set test_boxXYZ "10 20 30"
|
|
set test_boxDX 100
|
|
set test_boxDY 200
|
|
set test_boxDZ 300
|
|
set test_geom_t "cir"
|
|
set test_failure 1
|
|
set test_driver "G"
|
|
set test_driver_id "2a96b604-ec8b-11d0-bee7-080009dc3333"
|
|
set test_transp 0.5
|
|
set test_color 11
|
|
set test_material 22
|
|
set test_positionX 100
|
|
set test_positionY 200
|
|
set test_positionZ 300
|
|
|
|
proc checkarray {name array expected} {
|
|
set exp_len [llength $expected]
|
|
if {$exp_len != [llength $array]} {puts "Error: invalid $name"; return}
|
|
for {set i 0} {$i < $exp_len} {incr i} {
|
|
if {[lindex $array $i] != [lindex $expected $i]} {puts "Error: invalid $name"}
|
|
}
|
|
}
|
|
|
|
pload TOPTEST
|
|
|
|
catch {Close D}
|
|
|
|
# Normal test execution
|
|
if !$Create_Doc {
|
|
|
|
# Load document
|
|
Open [locate_data_file $test_file_name] D
|
|
|
|
|
|
# Simple values
|
|
if [catch {GetInteger D 0:1:1 i}] {puts "Error: Integer not found"
|
|
} elseif {[dval i] != $test_int} {puts "Error: invalid Integer"}
|
|
|
|
if [catch {GetReal D 0:1:1 r}] {puts "Error: Real not found"
|
|
} elseif {[dval r] != $test_real} {puts "Error: invalid Real"}
|
|
|
|
if [catch {set name [GetName D 0:1:1]}] {puts "Error: Name not found"
|
|
} elseif {$name != $test_name} {puts "Error: invalid Name"}
|
|
|
|
if [catch {set comment [GetComment D 0:1:1]}] {puts "Error: Comment not found"
|
|
} elseif {$comment != $test_comment} {puts "Error: invalid Comment"}
|
|
|
|
if [catch {set string [GetAsciiString D 0:1:1]}] {puts "Error: AsciiString not found"}
|
|
|
|
|
|
# TagSource
|
|
if [catch {NewTag D 0:1:2}] {puts "Error: TagSource not found"}
|
|
|
|
|
|
# Reference
|
|
if [catch {set ref [GetReference D 0:1:3]}] {puts "Error: Reference not found"
|
|
} elseif {[string compare $ref $test_ref] != 0} {puts "Error: invalid Reference"}
|
|
|
|
|
|
# Directory
|
|
if [catch {AddDirectory D 0:1:2:1}] {puts "Error: Directory not found"}
|
|
|
|
|
|
# UAttribute
|
|
if [catch {set guid [GetUAttribute D 0:1:2:2 $test_guid]}] {puts "Error: no label for UAttribute"
|
|
} elseif {$guid == "No UAttribute Attribute on label"} {puts "Error: $guid"
|
|
} elseif {$guid != $test_guid} {puts "Error: invalid UAttribute"}
|
|
|
|
|
|
# Variable
|
|
if [regexp "no such attribute" [GetVariable D $test_var2 is_const units]] {puts "Error: Variable not found"
|
|
} elseif {$is_const != 0 || $units != "mm"} {puts "Error: invalid Variable"}
|
|
|
|
|
|
# Relation
|
|
if [catch {set rel_dump [DumpRelation D 0:1:2:3]}] {puts "Error: Relation not found"
|
|
} elseif ![regexp "$test_expr.*$test_var1 $test_var2" $rel_dump] {
|
|
puts "Error: invalid Relation"}
|
|
|
|
|
|
# TreeNode
|
|
if [catch {set root_node [RootNode D 0:1:2:4]}] {puts "Error: TreeNode not found"
|
|
} elseif {$root_node != "0:1:2:4"} {puts "Error: invalid TreeNode"}
|
|
|
|
|
|
# Arrays
|
|
if [catch {set iarr [GetIntArray D 0:1:1]}] {puts "Error: IntegerArray not found"
|
|
} else { checkarray "IntegerArray" $iarr $test_int_arr }
|
|
|
|
if [catch {set rarr [GetRealArray D 0:1:1]}] {puts "Error: RealArray not found"
|
|
} else { checkarray "RealArray" $rarr $test_real_arr }
|
|
|
|
if [catch {set esarr [GetExtStringArray D 0:1:1]}] {puts "Error: ExtStringArray not found"
|
|
} else { checkarray "ExtStringArray" $esarr [join $test_extstr_arr " "]}
|
|
|
|
if [catch {set boolarr [GetBooleanArray D 0:1:1]}] {puts "Error: BooleanArray not found"
|
|
} else { checkarray "BooleanArray" $boolarr $test_bool_arr }
|
|
|
|
if [catch {set refarr [GetRefArray D 0:1:1]}] {puts "Error: ReferenceArray not found"
|
|
} else { checkarray "ReferenceArray" $refarr $test_ref_arr }
|
|
|
|
if [catch {set bytearr [GetByteArray D 0:1:1]}] {puts "Error: ByteArray not found"
|
|
} else { checkarray "ByteArray" $bytearr $test_byte_arr }
|
|
|
|
|
|
# Lists
|
|
if [catch {set ilst [GetIntegerList D 0:1:1]}] {puts "Error: IntegerList not found"
|
|
} else { checkarray "IntegerList" $ilst $test_int_arr }
|
|
|
|
if [catch {set rlst [GetRealList D 0:1:1]}] {puts "Error: RealList not found"
|
|
} else { checkarray "RealList" $rlst $test_real_arr }
|
|
|
|
if [catch {set eslst [GetExtStringList D 0:1:1]}] {puts "Error: ExtStringList not found"
|
|
} else { checkarray "ExtStringList" $eslst [join $test_extstr_arr " "]}
|
|
|
|
if [catch {set blst [GetBooleanList D 0:1:1]}] {puts "Error: BooleanList not found"
|
|
} else { checkarray "BooleanList" $blst $test_bool_arr }
|
|
|
|
if [catch {set reflst [GetReferenceList D 0:1:1]}] {puts "Error: ReferenceList not found"
|
|
} else { checkarray "ReferenceList" $reflst $test_ref_arr }
|
|
|
|
|
|
# IntPackedMap
|
|
if [catch {set map [GetIntPackedMap D 0:1:1]}] {puts "Error: IntPackedMap not found"
|
|
} else { checkarray "IntPackedMap" $map $test_map_sorted }
|
|
|
|
|
|
# NamedData
|
|
if [catch {GetNDIntegers D 0:1:4}] {puts "Error: NamedData not found"}
|
|
if [catch {GetNDReals D 0:1:4}] {puts "Error: NamedData not found"}
|
|
if [catch {GetNDStrings D 0:1:4}] {puts "Error: NamedData not found"}
|
|
if [catch {GetNDBytes D 0:1:4}] {puts "Error: NamedData not found"}
|
|
if [catch {GetNDIntArrays D 0:1:4}] {puts "Error: NamedData not found"}
|
|
if [catch {GetNDRealArrays D 0:1:4}] {puts "Error: NamedData not found"}
|
|
|
|
|
|
# NamedShape
|
|
eval box Box $test_boxXYZ $test_boxDX $test_boxDY $test_boxDZ
|
|
if [catch {GetShape D 0:1:6 b}] {puts "Error: NamedShape not found"
|
|
} elseif {[bounding -s b -dump] != [bounding -s Box -dump]} {puts "Error: invalid NamedShape"
|
|
} else {
|
|
checkshape b
|
|
checkprops b -l [expr $test_boxDX * 8 + $test_boxDY * 8 + $test_boxDZ * 8]
|
|
checkprops b -s [expr $test_boxDX * $test_boxDY * 2 + $test_boxDY * $test_boxDZ * 2 + $test_boxDX * $test_boxDZ * 2]
|
|
checkprops b -v [expr $test_boxDX * $test_boxDY * $test_boxDZ]
|
|
}
|
|
|
|
|
|
# Point, Axis, Plane
|
|
if [catch {GetPoint D 0:1:5:1 pnt}] {puts "Error: Point not found"}
|
|
if [catch {GetAxis D 0:1:5:2 axs}] {puts "Error: Axis not found"}
|
|
if [catch {GetPlane D 0:1:5:3 pln}] {puts "Error: Plane not found"}
|
|
|
|
|
|
# Geometry
|
|
if [catch {set geom_t [GetGeometryType D 0:1:6]}] {puts "Error: Geometry not found"
|
|
} elseif {$geom_t != $test_geom_t} { puts "Error: invalid Geometry" }
|
|
|
|
|
|
# Constraint
|
|
if [catch {set constraint [GetConstraint D 0:1:1]}] {puts "Error: Constraint not found"
|
|
} elseif {$constraint != "0:1:1 COINCIDENT G_1 (0:1:6) "} { puts "Error: invalid Constraint" }
|
|
|
|
|
|
# PatternStd
|
|
if [catch {set pattern [DumpPattern D 0:1:1]}] {puts "Error: PatternStd not found"
|
|
} elseif {$pattern != "0:1:1 signature = 5 Mirror (0:1:6)"} { puts "Error: invalid PatternStd" }
|
|
|
|
|
|
# Function
|
|
if [catch {GetFunction D 0:1:1 fguid failureNb}] {puts "Error: Function not found"
|
|
} elseif {$fguid != $test_guid || $failureNb != $test_failure} { puts "Error: invalid Function" }
|
|
|
|
|
|
# AISPresentation
|
|
AISInitViewer D
|
|
if [catch {set driver [AISDriver D 0:1:1]}] {puts "Error: AISPresentation not found"
|
|
} elseif [catch {set transp [AISTransparency D 0:1:1]}] {puts "Error: AISPresentation not found"
|
|
} elseif [catch {set color [AISColor D 0:1:1]}] {puts "Error: AISPresentation not found"
|
|
} elseif [catch {set material [AISMaterial D 0:1:1]}] {puts "Error: AISPresentation not found"
|
|
} elseif {$driver != $test_driver_id} { puts "Error: invalid AISPresentation"
|
|
} elseif {[lindex [split $transp "\n"] 1] != $test_transp} { puts "Error: invalid AISPresentation"
|
|
} elseif {[lindex [split $color "\n"] 1] != $test_color} { puts "Error: invalid AISPresentation"
|
|
} elseif {[lindex [split $material "\n"] 1] != $test_material} { puts "Error: invalid AISPresentation" }
|
|
|
|
|
|
# Position
|
|
if [catch {GetPosition D 0:1:1 posX posY posZ}] {puts "Error: Position not found"
|
|
} elseif {$posX != $test_positionX} { puts "Error: invalid Position"
|
|
} elseif {$posY != $test_positionY} { puts "Error: invalid Position"
|
|
} elseif {$posZ != $test_positionZ} { puts "Error: invalid Position" }
|
|
|
|
} else {
|
|
|
|
# Creation of the document to be used in normal execution.
|
|
# Note! This will work only on OCCT versions older than 7.0,
|
|
# as since 7.0 there is no more storage driver for old persistence.
|
|
|
|
puts "Creating document"
|
|
NewDocument D MDTV-Standard
|
|
|
|
# Simple values
|
|
SetInteger D 0:1:1 $test_int
|
|
SetReal D 0:1:1 $test_real
|
|
SetName D 0:1:1 $test_name
|
|
SetComment D 0:1:1 $test_comment
|
|
SetAsciiString D 0:1:1 $test_string
|
|
|
|
# TagSource
|
|
SetTagger D 0:1:2
|
|
|
|
# Reference
|
|
SetReference D 0:1:3 $test_ref
|
|
|
|
# Directory
|
|
NewDirectory D 0:1:2:1
|
|
|
|
# UAttribute
|
|
SetUAttribute D 0:1:2:2 $test_guid
|
|
|
|
# Variable
|
|
SetVariable D $test_var2 0 mm
|
|
SetVariable D $test_var1 1 ""
|
|
|
|
# Relation
|
|
SetRelation D 0:1:2:3 "2*pi*r" $test_var1 $test_var2
|
|
|
|
# TreeNode
|
|
SetNode D 0:1:2:4
|
|
|
|
# Arrays
|
|
eval SetIntArray D 0:1:1 1 1 2 $test_int_arr
|
|
eval SetRealArray D 0:1:1 1 1 3 $test_real_arr
|
|
eval SetExtStringArray D 0:1:1 1 1 2 $test_extstr_arr
|
|
eval SetBooleanArray D 0:1:1 1 1 2 $test_bool_arr
|
|
eval SetRefArray D 0:1:1 1 2 $test_ref_arr
|
|
eval SetByteArray D 0:1:1 1 1 2 $test_byte_arr
|
|
|
|
# Lists
|
|
eval SetIntegerList D 0:1:1 $test_int_arr
|
|
eval SetRealList D 0:1:1 $test_real_arr
|
|
eval SetExtStringList D 0:1:1 $test_extstr_arr
|
|
eval SetBooleanList D 0:1:1 $test_bool_arr
|
|
eval SetReferenceList D 0:1:1 $test_ref_arr
|
|
|
|
# IntPackedMap
|
|
eval SetIntPackedMap D 0:1:1 1 $test_map
|
|
|
|
# NamedData
|
|
eval SetNDataIntegers D 0:1:4 2 $test_named_ints
|
|
eval SetNDataReals D 0:1:4 2 $test_named_reals
|
|
eval SetNDataStrings D 0:1:4 2 $test_named_strings
|
|
eval SetNDataBytes D 0:1:4 2 $test_named_bytes
|
|
eval SetNDataIntArrays D 0:1:4 ia 2 $test_int_arr
|
|
eval SetNDataRealArrays D 0:1:4 ra 3 $test_real_arr
|
|
|
|
# NamedShape
|
|
eval box Box $test_boxXYZ $test_boxDX $test_boxDY $test_boxDZ
|
|
SetShape D 0:1:6 Box
|
|
|
|
# Point
|
|
eval point Point $test_point
|
|
SetPoint D 0:1:5:1 Point
|
|
|
|
# Axis
|
|
eval line Axis $test_axisPos $test_axisDir
|
|
SetAxis D 0:1:5:2 Axis
|
|
|
|
# Plane
|
|
eval plane Plane $test_plane
|
|
SetPlane D 0:1:5:3 Plane
|
|
|
|
# Geometry
|
|
SetGeometry D 0:1:6 $test_geom_t
|
|
|
|
# Constraint
|
|
SetConstraint D 0:1:1 equal 0:1:6
|
|
|
|
# PatternStd
|
|
SetPattern D 0:1:1 5 0:1:6
|
|
|
|
# Function
|
|
SetFunction D 0:1:1 $test_guid $test_failure
|
|
|
|
# AISPresentation
|
|
AISInitViewer D
|
|
AISSet D 0:1:1 $test_driver
|
|
AISTransparency D 0:1:1 $test_transp
|
|
AISColor D 0:1:1 $test_color
|
|
AISMaterial D 0:1:1 $test_material
|
|
|
|
# Position
|
|
SetPosition D 0:1:1 $test_positionX $test_positionY $test_positionZ
|
|
|
|
SaveAs D $imagedir/ocaf_all_attributes.std
|
|
puts "Document saved to $imagedir/$test_file_name"
|
|
}
|