equal
deleted
inserted
replaced
66 "Modified: / 17-03-2019 / 16:56:14 / Claus Gittinger" |
66 "Modified: / 17-03-2019 / 16:56:14 / Claus Gittinger" |
67 ! |
67 ! |
68 |
68 |
69 test03_crc16 |
69 test03_crc16 |
70 "the default ccitt crc16" |
70 "the default ccitt crc16" |
71 |
71 |
|
72 self skipIf:true description:'fails, in order of cg skip'. |
|
73 |
72 CRC16Stream flushCrcTables. |
74 CRC16Stream flushCrcTables. |
73 "/ CRCStream flushCrcTables. |
75 "/ CRCStream flushCrcTables. |
74 "/ CRC32Stream flushCrcTables. |
76 "/ CRC32Stream flushCrcTables. |
75 self assert:(CRC16Stream newKERMIT hashValueOf:'') = 0. |
77 self assert:(CRC16Stream newKERMIT hashValueOf:'') = 0. |
76 self assert:(CRC16Stream newKERMIT hashValueOf:'a') = 16r8F72. |
78 self assert:(CRC16Stream newKERMIT hashValueOf:'a') = 16r8F72. |
97 self assert:(CRC16Stream newCCITT hashValueOf:' ') = 16rC592. |
99 self assert:(CRC16Stream newCCITT hashValueOf:' ') = 16rC592. |
98 self assert:(CRC16Stream newCCITT hashValueOf:'123456789') = 16r8921. |
100 self assert:(CRC16Stream newCCITT hashValueOf:'123456789') = 16r8921. |
99 |
101 |
100 "Created: / 16-03-2019 / 23:40:26 / Claus Gittinger" |
102 "Created: / 16-03-2019 / 23:40:26 / Claus Gittinger" |
101 "Modified: / 17-03-2019 / 15:10:28 / Claus Gittinger" |
103 "Modified: / 17-03-2019 / 15:10:28 / Claus Gittinger" |
|
104 "Modified: / 19-03-2019 / 11:23:27 / Stefan Reise" |
102 ! ! |
105 ! ! |
103 |
106 |
104 !CRCTests class methodsFor:'documentation'! |
107 !CRCTests class methodsFor:'documentation'! |
105 |
108 |
106 version_CVS |
109 version_CVS |