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

Added another test for unused variables

Browse Source
This commit is contained in:
Neil Brown 2008-11-13 14:55:37 +00:00
parent 713011534f
commit cd41124003
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
checks/CheckTest.hs
View File

@ -41,7 +41,15 @@ testUnusedVar = TestList
(wrapProcSeq $ A.Only emptyMeta (A.Skip emptyMeta)) (wrapProcSeq $ A.Only emptyMeta (A.Skip emptyMeta))
(wrapProcSeq $ A.Spec emptyMeta (A.Specification emptyMeta (simpleName (wrapProcSeq $ A.Spec emptyMeta (A.Specification emptyMeta (simpleName
"x") $ A.Declaration emptyMeta A.Int) $ A.Only emptyMeta (A.Skip emptyMeta)) "x") $ A.Declaration emptyMeta A.Int) $ A.Only emptyMeta (A.Skip emptyMeta))
,test "Unused var in loop"
(wrapProcSeq $ A.Only emptyMeta $ A.While emptyMeta (A.True emptyMeta) $ A.Seq
emptyMeta $ A.Several emptyMeta [A.Only emptyMeta $ A.Skip emptyMeta])
(wrapProcSeq $ A.Only emptyMeta $ A.While emptyMeta (A.True emptyMeta) $
A.Seq emptyMeta $
A.Spec emptyMeta
(A.Specification emptyMeta (simpleName "x") $ A.Declaration emptyMeta
A.Int) $
A.Several emptyMeta [A.Only emptyMeta $ A.Skip emptyMeta])
] ]
where where
test' str src = test str src src test' str src = test str src src