simplify most commonly uses test commands

This commit is contained in:
2018-06-19 14:41:25 +02:00
parent f462a35db3
commit f94e8bc746
32 changed files with 348 additions and 340 deletions

View File

@ -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"