--- /dev/null
+puts "# =============================================================================="
+puts "# 0031851: Data Exchange, STEP - enable Unicode symbols in STEP export"
+puts "# =============================================================================="
+
+pload OCAF XDE MODELING
+
+puts "# Generate XDE document with a solid having name encoded in Japanese"
+set name "\u30DC\u30C3\u30AF\u30B9" ;# "box"
+box box 10 10 10
+NewDocument D XCAF
+SetName D [XAddShape D box] $name
+
+WriteStep D $imagedir/${casename}.stp
+ReadStep T $imagedir/${casename}.stp
+
+set result [GetName T 0:1:1:1]
+if { $result != $name } {
+ puts "Error: name has been lost on conversion"
+}