From f7d5cbf5cee4a63a52af1cfa0f1d33e49c648cd5 Mon Sep 17 00:00:00 2001 From: Dirk Zimoch Date: Mon, 18 Jun 2018 17:48:57 +0200 Subject: [PATCH] added negative bcd test --- streamApp/tests/testFormats | 26 +++++++++++++++++++++++--- 1 file changed, 23 insertions(+), 3 deletions(-) diff --git a/streamApp/tests/testFormats b/streamApp/tests/testFormats index 9364e2f..d1dbae9 100755 --- a/streamApp/tests/testFormats +++ b/streamApp/tests/testFormats @@ -30,6 +30,11 @@ set records { field (DTYP, "stream") field (OUT, "@test.proto bcd device") } + record (longout, "DZ:sbcd") + { + field (DTYP, "stream") + field (OUT, "@test.proto sbcd device") + } } set protocol { @@ -37,7 +42,8 @@ set protocol { 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";} 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 { @@ -66,15 +72,17 @@ ioccmd {dbpf DZ:lo 0} assure "0 0 000000 0 000000 0 000000 000000 . ......\n" ioccmd {dbpf DZ:lo 12345} 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} 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 { assure "-1 -1 -00001 ffffffff FFFFFF 11111111111111111111111111111111 11111111111111111111111111111111 111111 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\n" } ioccmd {dbpf DZ:lo -1234} 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 { 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 { 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