simplify most commonly uses test commands
This commit is contained in:
@ -46,76 +46,76 @@ startioc
|
||||
set inf [format %f inf]
|
||||
if [catch {set nan [format %f nan]}] {set nan nan}
|
||||
|
||||
ioccmd {dbpf DZ:test1.PROC 1}
|
||||
process DZ:test1
|
||||
send "3.14159265359\n"
|
||||
assure "|3.141593| 3.141593|3.14| 3.14159 | 3.141593|+3.141593|3.1 |3.141593|\n"
|
||||
ioccmd {dbpf DZ:test1.PROC 1}
|
||||
process DZ:test1
|
||||
send "-3.14159265359\n"
|
||||
assure "|-3.141593| -3.141593|-3.14|-3.14159 |-3.141593|-3.141593|-3.1 |-3.141593|\n"
|
||||
ioccmd {dbpf DZ:test1.PROC 1}
|
||||
process DZ:test1
|
||||
send "0\n"
|
||||
assure "|0.000000| 0.000000|0.00| 0.00000 | 0.000000|+0.000000|0.0 |0.000000|\n"
|
||||
ioccmd {dbpf DZ:test1.PROC 1}
|
||||
process DZ:test1
|
||||
send "NAN\n"
|
||||
assure "|$nan| $nan|$nan| $nan | $nan|+$nan|$nan |$nan|\n"
|
||||
ioccmd {dbpf DZ:test1.PROC 1}
|
||||
process DZ:test1
|
||||
send "-Inf\n"
|
||||
assure "|-$inf| -$inf|-$inf|-$inf |-$inf|-$inf|-$inf |-$inf|\n"
|
||||
ioccmd {dbpf DZ:test1.PROC 1}
|
||||
process DZ:test1
|
||||
send "1e6\n"
|
||||
assure "|1000000.000000|1000000.000000|1000000.00| 1000000.00000| 1000000.000000|+1000000.000000|1000000.0|1000000.000000|\n"
|
||||
ioccmd {dbpf DZ:test1.PROC 1}
|
||||
process DZ:test1
|
||||
send " - 3.14159265359\n"
|
||||
assure "mismatch\n"
|
||||
ioccmd {dbpf DZ:test1.PROC 1}
|
||||
process DZ:test1
|
||||
send "bla\n"
|
||||
assure "mismatch\n"
|
||||
ioccmd {dbpf DZ:test1.PROC 1}
|
||||
process DZ:test1
|
||||
send " bla\n"
|
||||
assure "mismatch\n"
|
||||
ioccmd {dbpf DZ:test1.PROC 1}
|
||||
process DZ:test1
|
||||
send "-bla\n"
|
||||
assure "mismatch\n"
|
||||
|
||||
ioccmd {dbpf DZ:test2.PROC 1}
|
||||
process DZ:test2
|
||||
send "3.14159265359\n"
|
||||
assure "|3.1415|9265359|\n"
|
||||
ioccmd {dbpf DZ:test2.PROC 1}
|
||||
process DZ:test2
|
||||
send " 3.14159265359\n"
|
||||
assure "|3.1415|9265359|\n"
|
||||
ioccmd {dbpf DZ:test2.PROC 1}
|
||||
process DZ:test2
|
||||
send " 10blabla\n"
|
||||
assure "|10|blabla|\n"
|
||||
ioccmd {dbpf DZ:test2.PROC 1}
|
||||
process DZ:test2
|
||||
send " 1\n"
|
||||
assure "|1||\n"
|
||||
|
||||
ioccmd {dbpf DZ:test3.PROC 1}
|
||||
process DZ:test3
|
||||
send "3.14159265359\n"
|
||||
assure "|3.1415|9265359|\n"
|
||||
ioccmd {dbpf DZ:test3.PROC 1}
|
||||
process DZ:test3
|
||||
send " 3.14159265359\n"
|
||||
assure "|3|.14159265359|\n"
|
||||
ioccmd {dbpf DZ:test3.PROC 1}
|
||||
process DZ:test3
|
||||
send " 10blabla\n"
|
||||
assure "|10|blabla|\n"
|
||||
ioccmd {dbpf DZ:test3.PROC 1}
|
||||
process DZ:test3
|
||||
send " 1\n"
|
||||
assure "|1||\n"
|
||||
|
||||
ioccmd {dbpf DZ:test4.PROC 1}
|
||||
process DZ:test4
|
||||
send "3.14159265359\n"
|
||||
assure "3.141593\n"
|
||||
ioccmd {dbpf DZ:test4.PROC 1}
|
||||
process DZ:test4
|
||||
send " -3.14159265359\n"
|
||||
assure "-3.141593\n"
|
||||
ioccmd {dbpf DZ:test4.PROC 1}
|
||||
process DZ:test4
|
||||
send " - 3.14159265359\n"
|
||||
assure "-3.141593\n"
|
||||
ioccmd {dbpf DZ:test4.PROC 1}
|
||||
process DZ:test4
|
||||
send " + 3.14159265359\n"
|
||||
assure "3.141593\n"
|
||||
ioccmd {dbpf DZ:test4.PROC 1}
|
||||
process DZ:test4
|
||||
send " +- 3.14159265359\n"
|
||||
assure "mismatch\n"
|
||||
|
||||
|
Reference in New Issue
Block a user