rhi/quox
rhi/quox
1
0
Fork 0
Code Issues 15 Pull requests 1 Releases Wiki Activity

%inline, etc

Browse source
This commit is contained in:
rhiannon morris 2022-04-27 15:07:32 +02:00
parent a690ca1277
commit 66c96cb3c4
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
tests/TAP.idr
View file

@ -8,7 +8,8 @@ import Control.Monad.Reader
import Control.Monad.State import Control.Monad.State
import System import System
public export Info : Type public export
Info : Type
Info = List (String, String) Info = List (String, String)
private private
@ -42,7 +43,7 @@ All ToInfo es => ToInfo (OneOf es) where
toInfo (One Here value) = toInfo value toInfo (One Here value) = toInfo value
toInfo (One (There x) value) = toInfo (One x value) toInfo (One (There x) value) = toInfo (One x value)
export ToInfo () where toInfo () = [] export %inline ToInfo () where toInfo () = []
export export
data Test = One TestBase | Group String (List Test) data Test = One TestBase | Group String (List Test)
@ -83,7 +84,7 @@ export %inline
export export %inline
header : List a -> String header : List a -> String
header tests = "1..\{show $ length tests}" header tests = "1..\{show $ length tests}"
@ -92,15 +93,15 @@ private
Runner : Type -> Type Runner : Type -> Type
Runner = ReaderT Nat IO Runner = ReaderT Nat IO
private private %inline
putIndentLines : List String -> Runner () putIndentLines : List String -> Runner ()
putIndentLines xs = traverse_ (putStrLn . indent !ask) xs putIndentLines xs = traverse_ (putStrLn . indent !ask) xs
private private %inline
isOk : Bool -> String isOk : Bool -> String
isOk b = if b then "ok" else "not ok" isOk b = if b then "ok" else "not ok"
private private %inline
toBool : Result -> Bool toBool : Result -> Bool
toBool (Tried ok _) = ok toBool (Tried ok _) = ok
toBool _ = True toBool _ = True