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

Fixed one of the tests that had the actual and expected reversed

Browse Source
This commit is contained in:
Neil Brown 2008-11-12 12:33:46 +00:00
parent 3a6b432c77
commit 8f691c057e
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
checks/CheckTest.hs
View File

@ -39,9 +39,11 @@ testUnusedVar = TestList
,test' "Used var" $ wrapProcSeq $ A.Spec emptyMeta (A.Specification emptyMeta (simpleName
"x") $ A.Declaration emptyMeta A.Int) $ A.Only emptyMeta $ A.Assign emptyMeta
[variable "x"] (A.ExpressionList emptyMeta [intLiteral 0])
,test "Unused var" (wrapProcSeq $ A.Spec emptyMeta (A.Specification emptyMeta (simpleName
"x") $ A.Declaration emptyMeta A.Int) $ A.Only emptyMeta (A.Skip emptyMeta))
(wrapProcSeq $ A.Only emptyMeta (A.Skip emptyMeta))
,test "Unused var"
(wrapProcSeq $ A.Only emptyMeta (A.Skip emptyMeta))
(wrapProcSeq $ A.Spec emptyMeta (A.Specification emptyMeta (simpleName
"x") $ A.Declaration emptyMeta A.Int) $ A.Only emptyMeta (A.Skip emptyMeta))
]
where
test' str src = test str src src