[occt.git] / tests / bugs / caf / bug22976

puts "==========="
puts "OCC22976"
puts "==========="
######################################################
# A draw-command CopyDF fails to copy content of a label
######################################################

set BugNumber OCC22976

# Create a new document and set UndoLimit
NewDocument D
UndoLimit D 100

# Open a transaction
NewCommand D

SetReal D 0:1 1.2345
CopyDF D 0:1 0:2
catch { GetReal D 0:2 } catch_result

if { $catch_result == 1.2344999999999999 } {
   puts "OK ${BugNumber}"
} else {
  puts "Faulty ${BugNumber}"
}
Commit	Line	Data
3bea4c16	1	puts "==========="
	2	puts "OCC22976"
	3	puts "==========="
	4	######################################################
7b5e532f	5	# A draw-command CopyDF fails to copy content of a label
3bea4c16	6	######################################################
	7
	8	set BugNumber OCC22976
	9
	10	# Create a new document and set UndoLimit
	11	NewDocument D
	12	UndoLimit D 100
	13
	14	# Open a transaction
	15	NewCommand D
	16
	17	SetReal D 0:1 1.2345
	18	CopyDF D 0:1 0:2
	19	catch { GetReal D 0:2 } catch_result
	20
	21	if { $catch_result == 1.2344999999999999 } {
	22	puts "OK ${BugNumber}"
	23	} else {
	24	puts "Faulty ${BugNumber}"
	25	}