jlamothe/hamming
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed hamming code attribute names

Browse Source
This commit is contained in:
Jonathan Lamothe
2024-07-31 18:22:12 -04:00
parent 36bc32a688
commit 633a1b7b24
3 changed files with 93 additions and 88 deletions
Download Patch File Download Diff File Expand all files Collapse all files

150
test/Hamming/App/Widgets/InternalSpec.hs
View File

@@ -65,99 +65,99 @@ hammingW'Spec = describe "hammingW'" $ mapM_
] where
mkState c = initialState & hammingCode .~ c
allZero =
[ [ ( mempty, ' ' )
, ( marginAttr, '0' )
, ( marginAttr, '1' )
, ( marginAttr, '2' )
, ( marginAttr, '3' )
[ [ ( hammingAttr, ' ' )
, ( marginAttr, '0' )
, ( marginAttr, '1' )
, ( marginAttr, '2' )
, ( marginAttr, '3' )
]
, [ ( marginAttr, '0' )
, ( zeroAttr, '0' )
, ( checkAttr, '0' )
, ( checkAttr, '0' )
, ( mempty, '0' )
, [ ( marginAttr, '0' )
, ( zeroAttr, '0' )
, ( checkAttr, '0' )
, ( checkAttr, '0' )
, ( bodyAttr, '0' )
]
, [ ( marginAttr, '1' )
, ( checkAttr, '0' )
, ( mempty, '0' )
, ( mempty, '0' )
, ( mempty, '0' )
, [ ( marginAttr, '1' )
, ( checkAttr, '0' )
, ( bodyAttr, '0' )
, ( bodyAttr, '0' )
, ( bodyAttr, '0' )
]
, [ ( marginAttr, '2' )
, ( checkAttr, '0' )
, ( mempty, '0' )
, ( mempty, '0' )
, ( mempty, '0' )
, [ ( marginAttr, '2' )
, ( checkAttr, '0' )
, ( bodyAttr, '0' )
, ( bodyAttr, '0' )
, ( bodyAttr, '0' )
]
, [ ( marginAttr, '3' )
, ( mempty, '0' )
, ( mempty, '0' )
, ( mempty, '0' )
, ( mempty, '0' )
, [ ( marginAttr, '3' )
, ( bodyAttr, '0' )
, ( bodyAttr, '0' )
, ( bodyAttr, '0' )
, ( bodyAttr, '0' )
]
]
allOne =
[ [ ( mempty, ' ' )
, ( marginAttr, '0' )
, ( marginAttr, '1' )
, ( marginAttr, '2' )
, ( marginAttr, '3' )
[ [ ( hammingAttr, ' ' )
, ( marginAttr, '0' )
, ( marginAttr, '1' )
, ( marginAttr, '2' )
, ( marginAttr, '3' )
]
, [ ( marginAttr, '0' )
, ( zeroAttr, '1' )
, ( checkAttr, '1' )
, ( checkAttr, '1' )
, ( mempty, '1' )
, [ ( marginAttr, '0' )
, ( zeroAttr, '1' )
, ( checkAttr, '1' )
, ( checkAttr , '1' )
, ( bodyAttr, '1' )
]
, [ ( marginAttr, '1' )
, ( checkAttr, '1' )
, ( mempty, '1' )
, ( mempty, '1' )
, ( mempty, '1' )
, [ ( marginAttr, '1' )
, ( checkAttr, '1' )
, ( bodyAttr, '1' )
, ( bodyAttr, '1' )
, ( bodyAttr, '1' )
]
, [ ( marginAttr, '2' )
, ( checkAttr, '1' )
, ( mempty, '1' )
, ( mempty, '1' )
, ( mempty, '1' )
, [ ( marginAttr, '2' )
, ( checkAttr, '1' )
, ( bodyAttr, '1' )
, ( bodyAttr, '1' )
, ( bodyAttr, '1' )
]
, [ ( marginAttr, '3' )
, ( mempty, '1' )
, ( mempty, '1' )
, ( mempty, '1' )
, ( mempty, '1' )
, [ ( marginAttr, '3' )
, ( bodyAttr, '1' )
, ( bodyAttr, '1' )
, ( bodyAttr, '1' )
, ( bodyAttr, '1' )
]
]
arbitrary =
[ [ ( mempty, ' ' )
, ( marginAttr, '0' )
, ( marginAttr, '1' )
, ( marginAttr, '2' )
, ( marginAttr, '3' )
[ [ ( hammingAttr, ' ' )
, ( marginAttr, '0' )
, ( marginAttr, '1' )
, ( marginAttr, '2' )
, ( marginAttr, '3' )
]
, [ ( marginAttr, '0' )
, ( zeroAttr, '0' )
, ( checkAttr, '1' )
, ( checkAttr, '0' )
, ( mempty, '1' )
, [ ( marginAttr, '0' )
, ( zeroAttr, '0' )
, ( checkAttr, '1' )
, ( checkAttr, '0' )
, ( bodyAttr, '1' )
]
, [ ( marginAttr, '1' )
, ( checkAttr, '1' )
, ( mempty, '0' )
, ( mempty, '1' )
, ( mempty, '0' )
, [ ( marginAttr, '1' )
, ( checkAttr, '1' )
, ( bodyAttr, '0' )
, ( bodyAttr, '1' )
, ( bodyAttr, '0' )
]
, [ ( marginAttr, '2' )
, ( checkAttr, '0' )
, ( mempty, '0' )
, ( mempty, '1' )
, ( mempty, '1' )
, [ ( marginAttr, '2' )
, ( checkAttr, '0' )
, ( bodyAttr, '0' )
, ( bodyAttr, '1' )
, ( bodyAttr, '1' )
]
, [ ( marginAttr, '3' )
, ( mempty, '1' )
, ( mempty, '1' )
, ( mempty, '0' )
, ( mempty, '0' )
, [ ( marginAttr, '3' )
, ( bodyAttr, '1' )
, ( bodyAttr, '1' )
, ( bodyAttr, '0' )
, ( bodyAttr, '0' )
]
]