HaskellCommenterTest.java

package com.haskforce.features;

import com.haskforce.HaskellFileType;
import com.intellij.codeInsight.generation.actions.CommentByBlockCommentAction;
import com.intellij.codeInsight.generation.actions.CommentByLineCommentAction;
import com.intellij.testFramework.fixtures.LightPlatformCodeInsightFixtureTestCase;

/**
 * Features test driver. Add new feature testcases here.
 */
public class HaskellCommenterTest extends LightPlatformCodeInsightFixtureTestCase {
    public HaskellCommenterTest() {
        super();
    }

    public void testCommenter00001() {
        myFixture.configureByText(HaskellFileType.INSTANCE, "<caret>f acc [] = reverse acc");
        CommentByLineCommentAction commentAction = new CommentByLineCommentAction();
        commentAction.actionPerformedImpl(getProject(), myFixture.getEditor());
        myFixture.checkResult("-- f acc [] = reverse acc");
        commentAction.actionPerformedImpl(getProject(), myFixture.getEditor());
        myFixture.checkResult("f acc [] = reverse acc");
    }

    public void testCommenter00002() {
        myFixture.configureByText(HaskellFileType.INSTANCE, "f acc [] = acc\n" +
                "<selection>f acc (x:xs) = f (x:acc) xs</selection>\n" +
                "<caret>f _ _ = error \"impossible!\"");
        CommentByBlockCommentAction commentAction = new CommentByBlockCommentAction();
        commentAction.actionPerformedImpl(getProject(), myFixture.getEditor());
        myFixture.checkResult("f acc [] = acc\n" +
                "{-f acc (x:xs) = f (x:acc) xs-}\n" +
                "f _ _ = error \"impossible!\"");
    }

    public void testCommenter0003() {
        myFixture.configureByText(HaskellFileType.INSTANCE, "-- foo bar <caret>baz");
        myFixture.type('\n');
        myFixture.checkResult(
                "-- foo bar \n" +
                "-- baz"
        );
    }
}