package org.simantics.scl.compiler.tests;

import org.junit.AfterClass;
import org.junit.Ignore;
import org.junit.Test;
import org.simantics.scl.compiler.errors.Failable;
import org.simantics.scl.compiler.module.Module;
import org.simantics.scl.compiler.module.coverage.CoverageUtils;
import org.simantics.scl.compiler.module.coverage.ModuleCoverage;
import org.simantics.scl.compiler.top.ValueNotFound;
import org.simantics.scl.runtime.profiling.BranchPoint;

public class ModuleRegressionTests extends TestBase {

    public ModuleRegressionTests() { super("scl"); }
    
    @Test public void AmbiguousType() { test(); }
    @Test public void ApplicationOfNunfunction() { test(); }
    @Test public void Arity1() { test(); }
    @Test public void AsPattern() { test(); }
    @Test public void BigContext() { test(); }
    @Test public void BigFunction() { test(); }
    @Test public void BinaryOperators1() { test(); }
    @Test public void BooleanId() { test(); }
    @Test public void Bug4450() { test(); }
    @Test public void Character1() { test(); }
    @Test public void ClashingClass() { test(); }
    @Test public void ClashingData() { test(); }
    @Test public void ClashingInstance() { test(); }
    @Test public void ClashingValueType() { test(); }
    @Test public void Collaz() { test(); }
    @Test public void Compose() { test(); }
    @Test public void Composition() { test(); }
    @Test public void ConjunctionMacro() { test(); }
    @Test public void Constant() { test(); }
    @Test public void ConstructorNameClash() { test(); }
    @Test public void DefaultMethods1() { test(); }
    @Test public void Deriving3() { test(); }
    @Test public void Deriving4() { test(); }
    @Test public void DifferentBranchTypes() { test(); }
    @Test public void Div() { test(); }
    @Test public void DoubleConversion() { test(); }
    @Test public void DoubleEffect() { test(); }    
    @Test public void Effects1() { test(); }
    @Test public void Effects2() { test(); }  
    @Test public void Effects3() { test(); }
    @Test public void Effects4() { test(); }
    @Test public void Effects5() { test(); }
    @Test public void Effects6() { test(); }
    @Test(expected=ValueNotFound.class) 
    public void EmptyModule() throws ValueNotFound {
        test(new String[]{"EmptyModule"}, new String[]{""});
    }
    @Test public void Equality() { test(); }
    @Test public void ExistentialData() { test(); }
    @Test public void ExistentialData2() { test(); }
    @Test public void ExpressionParsing() { test(); }
    @Test public void FaultyRecursion() { test(); }
    @Test public void Fibonacci() { test(); }
    @Test public void Fibonacci2() { test(); }
    @Test public void Fibonacci3() { test(); }
    @Test public void FingerTree() { test(); }
    @Ignore
    @Test public void FoldMissingInitialValue() { test(); }
    @Test public void FoldlBuild1() { test(); }
    @Test public void FoldlBuild2() { test(); }
    @Test public void Forall1() { test(); }
    @Test public void Forall2() { test(); }
    @Test public void Forall3() { test(); }
    @Ignore
    @Test public void Formula() { test(); }
    @Test public void FromDynamic() { test(); }
    @Test public void FromDynamic2() { test(); }
    @Test public void FromDynamic3() { test(); }
    @Test public void FromDynamic4() { test(); }
    @Test public void FromDynamic5() { test(); }
    @Test public void FunctionFunctor() { test(); }
    @Test public void Functor() { test(); }
    @Test public void FunctorM1() { test(); }
    @Test public void Generalization() { test(); }
    @Test public void GenericMutualRecursion() { test(); }
    @Test public void GlobalVariables() { test(); }
    @Test public void GuardedExpressionBug() { test(); }
    @Test public void Guards1() { test(); }
    @Test public void Guards2() { test(); }
    @Test public void IdAsOperator() { test(); }    
    @Test public void IllegalChar() { test(); }
    @Test public void ImportJavaConstructor() { test(); }
    @Test public void ImportRef() { test(); }
    @Test public void InconsistentArity() { test(); }
    @Test public void InconsistentIndentation() { test(); }
    @Test public void IndentationAndParenthesis() { test(); }
    @Test public void Index() { test(); }
    @Test public void Inline1() { test(); }
    @Test public void InstanceHierarchy() { test(); }
    @Test public void InstanceIsTypoedAsClass() { test(); }
    @Test public void InvalidClass1() { test(); }
    @Test public void InvalidEncoding() { test(); }
    @Test public void InvalidInstance1() { test(); }
    @Test public void InvalidJavaTypeAnnotation() { test(); }
    @Test public void InvalidKinds() { test(); }
    @Test public void InvalidKinds2() { test(); }
    @Test public void InvalidKinds3() { test(); }
    @Test public void InvalidLambda() { test(); }
    @Test public void InvalidModule() { test(); }
    @Test public void InvalidPattern1() { test(); }
    @Test public void InvalidPattern2() { test(); }
    @Test public void InvalidPattern3() { test(); }
    @Test public void InvalidPattern4() { test(); }
    @Test public void InvalidTypeClassInstance1() { test(); }
    @Test public void JavaAccess1() { test(); }
    @Test public void JavaConstructors() { test(); }
    @Test public void JavaMethods() { test(); }
    @Test public void JavaTypes() { test(); }
    @Test public void Kinds1() { test(); }
    @Test public void Lambda() { test(); }
    @Test public void Layout1() { test(); }
    @Test public void List() { test(); }
    @Test public void ListError1() { test(); }
    @Test public void ListError2() { test(); }    
    @Test public void ListSyntax() { test(); }
    @Test public void ListSyntax10() { test(); }
    @Test public void ListSyntax11() { test(); }
    @Test public void ListSyntax12() { test(); }
    @Test public void ListSyntax2() { test(); }
    @Test public void ListSyntax3() { test(); }
    @Test public void ListSyntax4() { test(); }
    @Test public void ListSyntax5() { test(); }
    @Test public void ListSyntax6() { test(); }
    @Test public void ListSyntax7() { test(); }
    @Test public void ListSyntax8() { test(); }
    @Test public void ListSyntax9() { test(); }
    @Test public void ListSyntaxWithoutPrelude() { test(); }
    @Test public void LocalDefinitions() { test(); }
    @Test public void LocalDefinitions2() { test(); }
    @Test public void LocalDefinitions3() { test(); }
    @Test public void LocalDefinitions4() { test(); }
    @Test public void LocalDefinitions5() { test(); }
    @Test public void Macros1() { test(); }
    @Test public void Macros2() { test(); }
    @Test public void Macros4() { test(); }
    @Test public void Map1() { test(); }
    @Test public void MarketModel() { test(); }    
    @Test public void Matching() { test(); }
    @Test public void Matching2() { test(); }
    @Test public void Matching4() { test(); }
    @Test public void Matching5() { test(); }
    @Test public void MatchingWithMissingParameter() { test(); }
    @Test public void MatchingWithoutTypeAnnotations() { test(); }
    @Test public void MaximumBy() { test(); }
    @Test public void Maybe1() { test(); }
    @Test public void Maybe2() { test(); }
    @Test public void Maybe3() { test(); }    
    @Test public void Maybe4() { test(); }
    @Test public void MissingEffect() { test(); }
    @Test public void MissingMethod() { test(); }
    @Test public void ModuleInitialization() { test(); }
    @Test public void MonadBug1() { test(); }
    @Test public void MonadSyntax1() { test(); }
    @Test public void Monads1() { test(); }
    @Test public void NoDefinitionErrorMessage() { test(); }    
    @Test public void NoInstance() { test(); }
    @Test public void NoInstance2() { test(); }
    @Test public void NonassociativeOperator() { test(); }
    @Test public void NonexistentTypeClassInAnnotation() { test(); }
    @Test public void NonexistingEffect() { test(); }
    @Test public void OneLineMatch() { test(); }    
    @Test public void OpenString1() { test(); }
    @Test public void OpenString2() { test(); }
    @Test public void OverloadedArithmetic1() { test(); }
    @Test public void OverloadedArithmetic2() { test(); }
    @Test public void OverloadedArithmetic3() { test(); }
    @Test public void OverloadedLiterals2() { test(); }
    @Ignore
    @Test public void Overloading1() { test(); }
    @Test public void Parsing() { test(); }    
    @Test public void PolymorphicRecursion() { test(); }
    @Test public void PolymorphicRecursion2() { test(); }
    @Test public void Polynomials() { test(); }
    @Test public void PrecedenceOfNonoperators() { test(); }    
    @Test public void Primes() { test(); }
    @Test public void Proc1() { test(); }
    @Test public void Proc2() { test(); }
    @Test public void Proc3() { test(); }
    @Test public void Pythagoras() { test(); }
    @Test public void Random1() { test(); }
    @Test public void RangeSyntax() { test(); }
    @Test public void Record1() { test(); }
    @Test public void RecordShorthand() { test(); }
    @Test public void RecursiveContext() { test(); }
    @Test public void RecursiveValues2() { test(); }
    @Test public void RecursiveValues3() { test(); }
    @Test public void RecursiveValues4() { test(); }
    @Test public void RedBlackTrees() { test(); }
    @Test public void Relations1() { test(); }
    @Test public void Relations2() { test(); }
    @Test public void RepeatedVariableInPattern() { test(); }    
    @Test public void SSATypingBug() { test(); }
    @Test public void Scanl() { test(); }
    @Test public void Search() { test(); }
    @Test public void Sections() { test(); }
    @Test public void Select1() { test(); }
    @Test public void Select2() { test(); }
    @Test public void Select3() { test(); }
    @Test public void Select4() { test(); }
    @Test public void Select5() { test(); }
    @Test public void Select6() { test(); }
    @Test public void Select7() { test(); }
    @Test public void Select8() { test(); }
    @Test public void Select9() { test(); }
    @Test public void SelfReferringContextInTypeClass() { test(); }
    @Test public void Serialization2() { test(); }
    @Test public void Serialization3() { test(); }
    @Test public void SharedTypeVariable() { test(); }
    @Test public void ShortcutFusion() { test(); }
    @Test public void Show1() { test(); }
    @Test public void SinConst1() { test(); }
    @Test public void Sort() { test(); }
    @Test public void Sort2() { test(); }
    @Test public void StreamFusion() { test(); }
    @Test public void StringEscape() { test(); }
    @Test public void StringInterpolation1() { test(); }
    @Test public void StringMatching1() { test(); }    
    @Test public void SumOfInverses2() { test(); }
    @Test public void TooManyParametersToSin() { test(); }
    @Test public void Transformation1() { test(); }
    @Test public void Transformation2() { test(); }
    @Test public void Transformation3() { test(); }
    @Test public void Transformation4() { test(); }
    @Test public void Transformation5() { test(); }
    @Test public void Transformation6() { test(); }
    @Test public void Transformation7() { test(); }
    @Test public void TransformationOrder() { test(); }
    @Test public void Tuples() { test(); }
    @Test public void Tuples2() { test(); }
    @Test public void TypeAlias1() { test(); }
    @Test public void TypeAlias2() { test(); }
    @Test public void TypeAlias3() { test(); }
    @Test public void TypeAliasRefsToTypeAlias() { test(); }
    @Test public void TypeAnnotation1() { test(); }
    @Test public void TypeAnnotation2() { test(); }
    @Test public void TypeClass() { test(); }
    @Test public void TypeClassBug1() { test(); }    
    @Test(timeout=1000L) public void TypeInferenceBug2() { test(); }
    @Test public void TypeOf1() { test(); }
    @Test public void TypingBug1() { test(); }
    @Test public void TypingError1() { test(); }
    @Test public void TypingError2() { test(); }
    @Test public void UnaryMinus() { test(); }
    @Test public void UndefinedValue() { test(); }
    @Test public void UnexpectedToken() { test(); }
    @Test public void Unification1() { test(); }
    @Test public void UnknownAnnotation() { test(); }
    @Test public void UnresolvedClass() { test(); }
    @Test public void UnresolvedTypeInAnnotation() { test(); }
    @Test public void UnresolvedTypeInInstance() { test(); }    
    @Test public void UnresolvedVariable() { test(); }
    @Test public void UnresolvedVariable2() { test(); }   
    @Test public void ValueAsOperator() { test(); }
    @Test public void ValueConversion() { test(); }
    @Test public void Vector1() { test(); }
    @Test public void Vector2() { test(); }
    @Test public void Void1() { test(); }
    @Test public void Void2() { test(); }
    @Test public void Void3() { test(); }
    @Test public void While() { test(); }
    @Test public void While2() { test(); }
    @Test public void While3() { test(); }    
    @Test public void WrongDefaultMethod() { test(); }
    @Test public void WrongInstanceMethod() { test(); }

    @AfterClass
    public static void checkCoverage() {
        Failable<Module> maybeModule = PRELUDE_MODULE_REPOSITORY.getModule("Prelude");
        if(!maybeModule.didSucceed())
            return;
        Module module = maybeModule.getResult();
        ModuleCoverage coverage = CoverageUtils.getCoverage(module);
        if(coverage == null)
            return;
        coverage.print(System.out);
        printCoverageTree(module.getBranchPoints().get("lookup"), 0);
    }

    private static void printCoverageTree(BranchPoint[] branchPoints, int ind) {
        for(BranchPoint bp : branchPoints) {
            for(int i=0;i<ind;++i)
                System.out.print("    ");
            System.out.println(bp.getCodeSize());
            printCoverageTree(bp.getChildren(), ind+1);
        }
    }

}