puts "========"
puts "0030953: Data Exchange - implement export of mesh data into glTF 2.0 format"
puts "Test case exporting glTF model into glTF file."
puts "========"

catch { Close D1 }
ReadGltf D1 [locate_data_file bug30691_DamagedHelmet.gltf]

set aTmpGltfBase "${imagedir}/${casename}_tmp"
set aTmpGltf "${aTmpGltfBase}.gltf"
lappend occ_tmp_files $aTmpGltf
lappend occ_tmp_files "${aTmpGltfBase}.bin"
lappend occ_tmp_files "${aTmpGltfBase}_textures"

WriteGltf D1 "$aTmpGltf"

ReadGltf D "$aTmpGltf"
XGetOneShape s D
checknbshapes s -face 1 -compound 0
checktrinfo s -tri 15452 -nod 14556
