From 8f691c057e8e0b0fba88791b211b332d4fcc1bae Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Wed, 12 Nov 2008 12:33:46 +0000 Subject: [PATCH] Fixed one of the tests that had the actual and expected reversed --- checks/CheckTest.hs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/checks/CheckTest.hs b/checks/CheckTest.hs index b1a8e0f..e2b34e8 100644 --- a/checks/CheckTest.hs +++ b/checks/CheckTest.hs @@ -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