occt/tests/bugs/caf/bug1724

puts "================"
puts "OCC1724"
puts "OCC2707"
puts "================"
puts ""
#######################################################################################
# BinOcaf: portability of binary file between platforms 
#######################################################################################
# Various improvements of RINA LH3D-3H project
#######################################################################################

set QA_DUP 0

set SetIntegerAttribute 100
set SetRealAttribute 123.45
set aFrom1 1
set aTo1 2
set SetReal1 3.21
set SetReal2 4.56
set aFrom2 11
set aTo2 12
set SetInteger1 3
set SetInteger2 4
set aLabel 0:2


#### FOR PREPARING TEST ONLY ####
#### # Create testing document
#### NewDocument Doc BinOcaf
#### UndoLimit Doc 100
#### NewCommand Doc
#### 
#### # Set an integer attribute
#### SetInteger Doc ${aLabel} ${SetIntegerAttribute}
#### 
#### # Set a real attribute
#### SetReal Doc ${aLabel} ${SetRealAttribute}
#### 
#### # Set a real array attribute
#### SetRealArray Doc ${aLabel} ${aFrom1} ${aTo1} ${SetReal1} ${SetReal2}
#### 
#### # Set an integer array attribute
#### SetIntArray Doc ${aLabel} ${aFrom2} ${aTo2} ${SetInteger1} ${SetInteger2}
#### 
#### NewCommand Doc
#### 
#### # Save the document
#### set OS $tcl_platform(os)
#### if { ${OS} == "SunOS" } {
####   puts "SunOS"
####   set aFile ${WorkDirectory}/OCC1724-[file tail [info script]]-SunOS.cbf
#### } else {
####   puts "WNT"
####   set aFile ${WorkDirectory}/OCC1724-[file tail [info script]]-WNT.cbf
#### }
#### puts "aFile=${aFile}"
#### catch {exec rm -f ${aFile}}
#### catch {SaveAs Doc ${aFile}}
#### if { ![file exists ${aFile}] } {
####    puts "There is not ${aFile} file; SaveAs command: Error"
####    puts "OCC1724: ERROR (case 1)"
#### }
#### catch {exec chmod 777 ${aFile}}
#### Close Doc
#### FOR PREPARING TEST ONLY ####

set IsGood 1

Open [locate_data_file OCC1724-M3-WNT.cbf] DDoc

# Get a value of integer attribute
set GetIntegerAttribute ""
set IsDone [catch {set GetIntegerAttribute [GetInteger DDoc ${aLabel}]} message]
if { ${IsDone} != 0 ||
   ${SetIntegerAttribute}!=${GetIntegerAttribute} } {
   puts ${message}
   puts "SetIntegerAttribute=${SetIntegerAttribute} GetIntegerAttribute=${GetIntegerAttribute}"
   puts "Get a value of TDataStd_Integer attribute from restoring document: Error"
   puts "OCC1724: ERROR (case 3)"
   set IsGood 0
} else {
   puts "Get a value of TDataStd_Integer attribute from restoring document: OK"
}

# Get a value of real attribute
set GetRealAttribute ""
set IsDone [catch {set GetRealAttribute [GetReal DDoc ${aLabel}]} message]
if { ${IsDone} != 0 ||
   ${SetRealAttribute}!=${GetRealAttribute} } {
   puts ${message}
   puts "SetRealAttribute=${SetRealAttribute} GetRealAttribute=${GetRealAttribute}"
   puts "Get a value of TDataStd_Real attribute from restoring document: Error"
   puts "OCC1724: ERROR (case 4)"
   set IsGood 0
} else {
   puts "Get a value of TDataStd_Real attribute from restoring document: OK"
}

# Get a value of real array attribute
set GetRealArrayAttribute ""
set IsDone [catch {set GetRealArrayAttribute [GetRealArray DDoc ${aLabel}]} message]
if { ${IsDone} != 0 } {
   puts ${message}
   puts "Get a value of TDataStd_RealArray attribute from restoring document: Error"
   puts "OCC1724: ERROR (case 5)"
   set IsGood 0
}
set aRealArrayLength [llength ${GetRealArrayAttribute}]
if { ${aRealArrayLength} != [expr ${aTo1} - ${aFrom1} + 1] } {
   puts "aRealArrayLength=${aRealArrayLength}"
   puts "Get a value of TDataStd_RealArray attribute from restoring document: Error"
   puts "OCC1724: ERROR (case 6)"
   set IsGood 0
}
set GetReal1 [lindex ${GetRealArrayAttribute} 0]
if { ${SetReal1} != ${GetReal1} } {
   puts "GetReal1=${GetReal1}"
   puts "Get a value of TDataStd_RealArray attribute from restoring document: Error"
   puts "OCC1724: ERROR (case 7)"
   set IsGood 0
}
set GetReal2 [lindex ${GetRealArrayAttribute} 1]
if { ${SetReal2} != ${GetReal2} } {
   puts "GetReal2=${GetReal2}"
   puts "Get a value of TDataStd_RealArray attribute from restoring document: Error"
   puts "OCC1724: ERROR (case 8)"
   set IsGood 0
} else {
   puts "Get a value of TDataStd_RealArray attribute from restoring document: OK"
}

# Get a value of Integer array attribute
set GetIntegerArrayAttribute ""
set IsDone [catch {set GetIntegerArrayAttribute [GetIntArray DDoc ${aLabel}]} message]
if { ${IsDone} != 0 } {
   puts ${message}
   puts "Get a value of TDataStd_IntegerArray attribute from restoring document: Error"
   puts "OCC1724: ERROR (case 9)"
   set IsGood 0
}
set aIntegerArrayLength [llength ${GetIntegerArrayAttribute}]
if { ${aIntegerArrayLength} != [expr ${aTo2} - ${aFrom2} + 1] } {
   puts "aIntegerArrayLength=${aIntegerArrayLength}"
   puts "Get a value of TDataStd_IntegerArray attribute from restoring document: Error"
   puts "OCC1724: ERROR (case 10)"
   set IsGood 0
}
set GetInteger1 [lindex ${GetIntegerArrayAttribute} 0]
if { ${SetInteger1} != ${GetInteger1} } {
   puts "GetInteger1=${GetInteger1}"
   puts "Get a value of TDataStd_IntegerArray attribute from restoring document: Error"
   puts "OCC1724: ERROR (case 11)"
   set IsGood 0
}
set GetInteger2 [lindex ${GetIntegerArrayAttribute} 1]
if { ${SetInteger2} != ${GetInteger2} } {
   puts "GetInteger2=${GetInteger2}"
   puts "Get a value of TDataStd_IntegerArray attribute from restoring document: Error"
   puts "OCC1724: ERROR (case 12)"
   set IsGood 0
} else {
   puts "Get a value of TDataStd_IntegerArray attribute from restoring document: OK"
}

if { ${IsGood} == 1 } {
  puts "OCC1724 OK"
} else {
  puts "OCC1724 Error"
}