EPICS_driver_modules/StreamDevice
0
0
Fork 0
Code Issues Pull Requests 1 Actions Packages Projects Releases Wiki Activity

added negative bcd test

Browse Source
This commit is contained in:
zimoch
2018-06-18 17:48:57 +02:00
parent c1144cf277
commit f7d5cbf5ce
1 changed files with 23 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
streamApp/tests/testFormats
View File

@ -30,6 +30,11 @@ set records {
field (DTYP, "stream") field (DTYP, "stream")
field (OUT, "@test.proto bcd device") field (OUT, "@test.proto bcd device")
} }
record (longout, "DZ:sbcd")
{
field (DTYP, "stream")
field (OUT, "@test.proto sbcd device")
}
} }
set protocol { set protocol {
@ -37,7 +42,8 @@ set protocol {
percent {out "\%\x25\37\045" 0x25 37 045;} percent {out "\%\x25\37\045" 0x25 37 045;}
ao {out "%.2f %.2e %.2E %.2g %.2G %i %d %u %o %04x %#.2f %#.2e %#.2E %#.2g %#.2G %#i %#d %#u %#o %#06x";} ao {out "%.2f %.2e %.2E %.2g %.2G %i %d %u %o %04x %#.2f %#.2e %#.2E %#.2g %#.2G %#i %#d %#u %#o %#06x";}
lo {out "%d %(VAL)d %06d %x %06X %b %06b %.6b %B.! %06B.!";} lo {out "%d %(VAL)d %06d %x %06X %b %06b %.6b %B.! %06B.!";}
bcd {out "%D %6D %.2D %.4D %.6D %.8D %#D %#6D %#.2D %#.4D %#.6D";} bcd {out "%D %6D %.2D %.3D %.6D %.8D %#D %#6D %#.2D %#.3D %#.6D";}
sbcd {out "%+D %+6D %+.2D %+.3D %+.6D %+.8D %+#D %+#6D %+#.2D %#+.3D %#+.6D";}
} }
set startup { set startup {
@ -66,15 +72,17 @@ ioccmd {dbpf DZ:lo 0}
assure "0 0 000000 0 000000 0 000000 000000 . ......\n" assure "0 0 000000 0 000000 0 000000 000000 . ......\n"
ioccmd {dbpf DZ:lo 12345} ioccmd {dbpf DZ:lo 12345}
assure "12345 12345 012345 3039 003039 11000000111001 11000000111001 111001 !!......!!!..! !!......!!!..!\n" assure "12345 12345 012345 3039 003039 11000000111001 11000000111001 111001 !!......!!!..! !!......!!!..!\n"
ioccmd {dbpf DZ:lo 2147483647}
assure "2147483647 2147483647 2147483647 7fffffff FFFFFF 1111111111111111111111111111111 1111111111111111111111111111111 111111 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\n"
ioccmd {dbpf DZ:lo -1} ioccmd {dbpf DZ:lo -1}
if {$tcl_platform(machine) == "x86_64"} { if {$tcl_platform(machine) == "x86_64"} {
assure "-1 -1 -00001 ffffffffffffffff FFFFFF 11111111111111111111111111111111 11111111111111111111111111111111 111111 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\n" assure "-1 -1 -00001 ffffffffffffffff FFFFFF 1111111111111111111111111111111111111111111111111111111111111111 1111111111111111111111111111111111111111111111111111111111111111 111111 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\n"
} else { } else {
assure "-1 -1 -00001 ffffffff FFFFFF 11111111111111111111111111111111 11111111111111111111111111111111 111111 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\n" assure "-1 -1 -00001 ffffffff FFFFFF 11111111111111111111111111111111 11111111111111111111111111111111 111111 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\n"
} }
ioccmd {dbpf DZ:lo -1234} ioccmd {dbpf DZ:lo -1234}
if {$tcl_platform(machine) == "x86_64"} { if {$tcl_platform(machine) == "x86_64"} {
assure "-1234 -1234 -01234 fffffffffffffb2e FFFB2E 11111111111111111111101100101110 11111111111111111111101100101110 101110 !!!!!!!!!!!!!!!!!!!!!.!!..!.!!!. !!!!!!!!!!!!!!!!!!!!!.!!..!.!!!.\n" assure "-1234 -1234 -01234 fffffffffffffb2e FFFB2E 1111111111111111111111111111111111111111111111111111101100101110 1111111111111111111111111111111111111111111111111111101100101110 101110 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!.!!..!.!!!. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!.!!..!.!!!.\n"
} else { } else {
assure "-1234 -1234 -01234 fffffb2e FFFB2E 11111111111111111111101100101110 11111111111111111111101100101110 101110 !!!!!!!!!!!!!!!!!!!!!.!!..!.!!!. !!!!!!!!!!!!!!!!!!!!!.!!..!.!!!.\n" assure "-1234 -1234 -01234 fffffb2e FFFB2E 11111111111111111111101100101110 11111111111111111111101100101110 101110 !!!!!!!!!!!!!!!!!!!!!.!!..!.!!!. !!!!!!!!!!!!!!!!!!!!!.!!..!.!!!.\n"
} }
@ -88,4 +96,16 @@ assure "\0\0\0\0\1\2\3\4 \0\0\0\0\1\2\3\4 \4 \3\4 \2\3\4 \1\2\3\4 \4\3\2\1\0\0\0
} else { } else {
assure "\1\2\3\4 \0\0\1\2\3\4 \4 \3\4 \2\3\4 \1\2\3\4 \4\3\2\1 \4\3\2\1\0\0 \4 \4\3 \4\3\2\n" assure "\1\2\3\4 \0\0\1\2\3\4 \4 \3\4 \2\3\4 \1\2\3\4 \4\3\2\1 \4\3\2\1\0\0 \4 \4\3 \4\3\2\n"
} }
ioccmd {dbpf DZ:sbcd 1020304}
if {$tcl_platform(machine) == "x86_64"} {
assure "\0\0\0\0\0\1\2\3\4 \0\0\0\0\0\1\2\3\4 \0\4 \3\4 \0\2\3\4 \0\1\2\3\4 \4\3\2\1\0\0\0\0\0 \4\3\2\1\0\0\0\0\0 \4\0 \4\3 \4\3\2\0\n"
} else {
assure "\0\1\2\3\4 \0\0\0\1\2\3\4 \0\4 \3\4 \0\2\3\4 \0\1\2\3\4 \4\3\2\1\0 \4\3\2\1\0\0\0 \4\0 \4\3 \4\3\2\0\n"
}
ioccmd {dbpf DZ:sbcd -1020304}
if {$tcl_platform(machine) == "x86_64"} {
assure "\xf0\0\0\0\0\1\2\3\4 \xf0\0\0\0\0\1\2\3\4 \xf0\4 \xf3\4 \xf0\2\3\4 \xf0\1\2\3\4 \4\3\2\1\0\0\0\0\xf0 \4\3\2\1\0\0\0\0\xf0 \4\xf0 \4\xf3 \4\3\2\xf0\n"
} else {
assure "\0\1\2\3\4 \0\0\0\1\2\3\4 \0\4 \3\4 \0\2\3\4 \0\1\2\3\4 \4\3\2\1\0 \4\3\2\1\0\0\0 \4\0 \4\3 \4\3\2\0\n"
}
finish finish