suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added the tests for parsing list types in Rain

Browse Source
This commit is contained in:
Neil Brown 2008-03-18 11:52:59 +00:00
parent eb29e65bad
commit 806a5b9834
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
frontends/ParseRainTest.hs
View File

@ -507,6 +507,11 @@ testDataType =
,pass ("time",RP.dataType,assertEqual "testDataType 300" A.Time)
,pass ("timer",RP.dataType,assertEqual "testDataType 301" $ A.UserDataType $ typeName "timer")
,pass ("[int]",RP.dataType, assertEqual "testDataType 400" $ A.List A.Int)
,pass ("[uint8]",RP.dataType, assertEqual "testDataType 401" $ A.List A.Byte)
,pass ("[foo]",RP.dataType, assertEqual "testDataType 402" $ A.List
$ A.UserDataType $ typeName "foo")
]
instance Data a => Show (A.Structured a -> A.Structured a) where