James/tricu
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Packaging: Fully static Haskell builds and webapp

Browse Source
This commit is contained in:
James Eversole
2026-05-21 15:25:26 -05:00
parent 4bf2ce56dd
commit ac90d23b46
6 changed files with 97 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
test/Spec.hs
View File

@@ -2122,42 +2122,6 @@ binaryParserTests = testGroup "Binary Parser Tests"
let input = "expectAscii \"hi\" [(104) (99)]"
env = evalTricu lib (parseTricu input)
result env @?= parserErr (ofNumber 2) (bytesT [104, 99])
, testCase "u16BE decodes big-endian" $ do
lib <- evaluateFile "./lib/binary.tri"
let input = "u16BE [(1) (0)]"
env = evalTricu lib (parseTricu input)
result env @?= ofNumber 256
, testCase "u16BE zero" $ do
lib <- evaluateFile "./lib/binary.tri"
let input = "u16BE [(0) (1)]"
env = evalTricu lib (parseTricu input)
result env @?= ofNumber 1
, testCase "u16LE decodes little-endian" $ do
lib <- evaluateFile "./lib/binary.tri"
let input = "u16LE [(1) (0)]"
env = evalTricu lib (parseTricu input)
result env @?= ofNumber 1
, testCase "u16LE zero" $ do
lib <- evaluateFile "./lib/binary.tri"
let input = "u16LE [(0) (1)]"
env = evalTricu lib (parseTricu input)
result env @?= ofNumber 256
, testCase "readU16BE parses and decodes" $ do
lib <- evaluateFile "./lib/binary.tri"
let input = "readU16BE [(0) (1) (2)]"
env = evalTricu lib (parseTricu input)
result env @?= parserOk (ofNumber 1) (bytesT [2])
, testCase "readU16LE parses and decodes" $ do
lib <- evaluateFile "./lib/binary.tri"
let input = "readU16LE [(1) (0) (2)]"
env = evalTricu lib (parseTricu input)
result env @?= parserOk (ofNumber 1) (bytesT [2])
]
-- --------------------------------------------------------------------------
@@ -3577,4 +3541,4 @@ ioOkResult :: T -> T
ioOkResult val = Fork (Stem Leaf) (Fork val Leaf)
ioErrResult :: String -> T
ioErrResult msg = Fork Leaf (Fork (ofString msg) Leaf)
ioErrResult msg = Fork Leaf (Fork (ofString msg) Leaf)