-
Notifications
You must be signed in to change notification settings - Fork 101
New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
Fix coverage, restore defun advice #1151
Conversation
@@ -418,6 +418,7 @@ test-suite hspec | |||
Analyze.TimeGen | |||
Analyze.Translate | |||
ClientSpec | |||
CoverageSpec |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Love that you added a test.
tests/CoverageSpec.hs
Outdated
(ref,adv) <- mkCoverageAdvice | ||
s <- set (rEnv . eeAdvice) adv <$> initReplState (Script False fn) Nothing | ||
void $! execScriptState' fn s (set (rEnv . eeAdvice) def) | ||
writeCovReport ref |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Are you testing only that it can be generated, but not the contents emitted?
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
See latest update, it's a golden test
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Looks great!
defun
coverage