[ test ] add another test case

This commit is contained in:
stefan-hoeck 2022-09-29 16:34:41 +02:00
parent 0543779200
commit 2344004d9d

View File

@ -1,5 +1,8 @@
import Data.Nat
main : IO () main : IO ()
main = do main = do
printLn (the Bits8 0xff + 100) printLn (the Bits8 0xff + 100)
printLn (the Nat 12345) printLn (the Nat 12345)
printLn (the Nat (-12345)) printLn (the Nat (-12345))
printLn (271 `minus` 12)