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

@ -32,35 +32,35 @@ set debug 0
startioc
ioccmd {dbpf DZ:ao 0}
put DZ:ao 0
assure "'000000+00' '0000+00' '+0000+00' ' 0000+00' '+0000+00' ' 0000+00' '0000+00 '\n"
ioccmd {dbpf DZ:ao 1}
put DZ:ao 1
assure "'100000-05' '1000-03' '+1000-03' ' 1000-03' '+1000-03' ' 1000-03' '1000-03 '\n"
ioccmd {dbpf DZ:ao 1000}
put DZ:ao 1000
assure "'100000-02' '1000+00' '+1000+00' ' 1000+00' '+1000+00' ' 1000+00' '1000+00 '\n"
ioccmd {dbpf DZ:ao 1000000}
put DZ:ao 1000000
assure "'100000+01' '1000+03' '+1000+03' ' 1000+03' '+1000+03' ' 1000+03' '1000+03 '\n"
ioccmd {dbpf DZ:ao -1}
put DZ:ao -1
assure "'-100000-05' '-1000-03' '-1000-03' '-1000-03' '-1000-03' ' -1000-03' '-1000-03 '\n"
ioccmd {dbpf DZ:ao 12345}
put DZ:ao 12345
assure "'123450-01' '1235+01' '+1235+01' ' 1235+01' '+1235+01' ' 1235+01' '1235+01 '\n"
ioccmd {dbpf DZ:ao -1.2345e-15}
put DZ:ao -1.2345e-15
assure "'-123450-20' '-1235-18' '-1235-18' '-1235-18' '-1235-18' ' -1235-18' '-1235-18 '\n"
ioccmd {dbpf DZ:ao 1e-100}
put DZ:ao 1e-100
assure "'100000-105' '1000-103' '+1000-103' ' 1000-103' '+1000-103' ' 1000-103' '1000-103 '\n"
ioccmd {dbpf DZ:ai.PROC 1}
process DZ:ai
assure "?\n"
send "+1234+56\n"
assure "1.2340e+59\n"
ioccmd {dbpf DZ:ai.PROC 1}
process DZ:ai
assure "?\n"
send "-1234-56\n"
assure "-1.2340e-53\n"
ioccmd {dbpf DZ:ai.PROC 1}
process DZ:ai
assure "?\n"
send "-12340000-60\n"
assure "-1.2340e-53\n"
ioccmd {dbpf DZ:ai.PROC 1}
process DZ:ai
assure "?\n"
send "+00000000+0\n"
assure "0.0000e+00\n"