0029452: Application Framework - Failed to read an Ocaf XML document with 1.#QNAN...
[occt.git] / tests / bugs / caf / bug29452
1 puts "=========="
2 puts "OCC29452"
3 puts "=========="
4 puts ""
5 ###################################################
6 # XmlMDataStd_RealDriver: Failed to read an Ocaf XML document with 1.#QNAN value
7 ###################################################
8
9 # Check for presence of warning message
10 puts "REQUIRED ALL: Cannot retrieve real member for RealArray attribute"
11
12 set BugNumber OCC29452
13 set file [locate_data_file bug29452.xml]
14
15 catch {Close D}
16 set res [Open $file D]
17
18 set real [GetReal D 0:1]
19 set rlst [GetRealList D 0:1]
20 set rarr [GetRealArray D 0:1]
21
22 # Check for read values
23 checkreal "Real value" [lindex $rlst 0] 1.1 0 1e-15
24 checkreal "Real value" [lindex $rlst 2] 3.3 0 1e-15
25 checkreal "Real value" [lindex $rarr 0] 0.111 0 1e-15
26 checkreal "Real value" [lindex $rarr 3] 123. 0 1e-15
27 checkreal "Real value" [lindex $rarr 4] 3.14e12 0 1e-15
28 foreach inf [list $real [lindex $rlst 3]] {
29   if { [string compare "$inf" "inf"] && 
30        [string compare "$inf" "infinity"] && 
31        [string compare "$inf" "1.#INF"] } {
32     puts "Error: Real value is read as \"$inf\", expected infinity"
33   }
34 }
35 foreach nan [list [lindex $rlst 1] [lindex $rarr 1] [lindex $rarr 2]] {
36   if { [string compare "$nan" "nan"] && 
37        [string compare "$nan" "1.#QNAN"] } {
38     puts "Error: Real value is read as \"$nan\", expected NAN"
39   }
40 }