import "String" as String

importJava "org.simantics.scl.compiler.testing.TestRunnable" where
    data Test
    
    @JavaName getName
    nameOf :: Test -> String
    @JavaName run
    runSilent :: Test -> <Proc> ()

run :: Test -> <Proc> ()
run test = do
    print "=== \(nameOf test) ======================================="
    runSilent test

instance Show Test where
    show = nameOf

importJava "org.simantics.scl.osgi.internal.TestUtils" where
    @JavaName getTests
    allTests :: <Proc> [Test]

list :: <Proc> ()
list = iter print allTests

runByName :: String -> <Proc> ()
runByName name =
    for allTests (\test -> if nameOf test == name
                           then run test
                           else ())

runByPattern :: String -> <Proc> ()
runByPattern patternText = do
    pattern = String.compile patternText
    for allTests (\test -> if String.matches (String.matcher pattern (nameOf test))
                           then run test
                           else ())

runAll :: <Proc> ()
runAll = for allTests run

importJava "org.simantics.scl.osgi.internal.ModuleUtils" where
    """
    Tries to compile all modules in SCLOsgi context and prints
    all compilation errors related to the modules.
    """
    validateModules :: <Proc> ()