Skip to content
Browse files

Missed a renaming of letExp to expand.

Ignore-this: 875a02d4f3fdd11e2647d6596dcde2ef

darcs-hash:20110127233834-4d841-5a7839f94b31167daab4d95874498367c17502a3.gz
  • Loading branch information...
1 parent dcf048e commit 2cde55df9226fb380b204d1f8ffa5c8d75425000 @walkie committed Jan 27, 2011
Showing with 3 additions and 3 deletions.
  1. +3 −3 CC/Test/Semantics.hs
View
6 CC/Test/Semantics.hs
@@ -11,7 +11,7 @@ import CC.Test.Expressions
-----------------------
tests = test_selectTag
- ++ test_letExp
+ ++ test_expand
++ test_semantics
++ []
@@ -24,8 +24,8 @@ runTests = defaultMain tests
test_selectTag = [] --testSame "selectTag" [selectTag e q | (e,q) <-
-test_letExp =
- testSames "letExp" (letExp []) ["none ","good","undefVar","typeErr"]
+test_expand =
+ testSames "expand" (expand []) ["none ","good","undefVar","typeErr"]
[bs, ss, xsv2:uvs, rts]
[map Right bs, map Right ss', repeat (Left (undefinedVar "v")), repeat (Left (refTypeError "v"))]

0 comments on commit 2cde55d

Please sign in to comment.
Something went wrong with that request. Please try again.