/*
 * JBoss, Home of Professional Open Source
 * Copyright 2009 Red Hat Inc. and/or its affiliates and other contributors
 * by the @authors tag. See the copyright.txt in the distribution for a
 * full listing of individual contributors.
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 * http://www.apache.org/licenses/LICENSE-2.0
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */
package org.jboss.arquillian.protocol.jmx;

import java.lang.reflect.Method;
import java.security.AccessController;
import java.security.PrivilegedExceptionAction;
import java.util.HashMap;
import java.util.Map;
import java.util.concurrent.ConcurrentHashMap;
import java.util.concurrent.atomic.AtomicInteger;
import java.util.logging.Level;
import java.util.logging.Logger;
import javax.management.JMException;
import javax.management.MBeanServer;
import javax.management.Notification;
import javax.management.NotificationBroadcasterSupport;
import javax.management.ObjectName;
import org.jboss.arquillian.container.test.spi.TestRunner;
import org.jboss.arquillian.container.test.spi.command.Command;
import org.jboss.arquillian.container.test.spi.util.TestRunners;
import org.jboss.arquillian.test.spi.TestResult;
import org.jboss.arquillian.test.spi.TestResult.Status;

/**
 * An MBean to run test methods in container.
 *
 * @author thomas.diesler@jboss.com
 */
public class JMXTestRunner extends NotificationBroadcasterSupport implements JMXTestRunnerMBean {
    // package shared MBeanServer with JMXCommandService
    static MBeanServer localMBeanServer;
    // Provide logging
    private static Logger log = Logger.getLogger(JMXTestRunner.class.getName());
    private final String objectName;
    private ConcurrentHashMap<String, Command<?>> events;
    private ThreadLocal<String> currentCall;
    // Notification Sequence number
    private AtomicInteger integer = new AtomicInteger();
    // TestRunner to used for testing
    private TestRunner mockTestRunner;
    private TestClassLoader testClassLoader;

    public JMXTestRunner(TestClassLoader classLoader) {
        this(classLoader, JMXTestRunnerMBean.OBJECT_NAME);
    }

    public JMXTestRunner(TestClassLoader classLoader, String objectName) {
        this.testClassLoader = classLoader;

        // Initialize the default TestClassLoader
        if (testClassLoader == null) {
            testClassLoader = new TestClassLoader() {
                public Class<?> loadTestClass(String className) throws ClassNotFoundException {
                    ClassLoader classLoader = JMXTestRunner.class.getClassLoader();
                    return classLoader.loadClass(className);
                }
            };
        }
        events = new ConcurrentHashMap<String, Command<?>>();
        currentCall = new ThreadLocal<String>();
        this.objectName = objectName;
    }

    public ObjectName registerMBean(MBeanServer mbeanServer) throws JMException {
        ObjectName oname = new ObjectName(this.objectName);
        mbeanServer.registerMBean(this, oname);
        log.fine("JMXTestRunner registered: " + oname);
        localMBeanServer = mbeanServer;
        return oname;
    }

    public void unregisterMBean(MBeanServer mbeanServer) throws JMException {
        ObjectName oname = new ObjectName(this.objectName);
        if (mbeanServer.isRegistered(oname)) {
            mbeanServer.unregisterMBean(oname);
            log.fine("JMXTestRunner unregistered: " + oname);
        }
        localMBeanServer = null;
    }

    @Override
    public byte[] runTestMethod(String className, String methodName) {
        TestResult result = runTestMethodInternal(className, methodName, new HashMap<String, String>());
        return Serializer.toByteArray(result);
    }

    @Override
    public byte[] runTestMethod(String className, String methodName, Map<String, String> protocolProps) {
        // detect if deprecated method is overridden in sub class, if so call it instead
        try {
            final Class<?> impl = this.getClass();
            Method m = AccessController.doPrivileged(new PrivilegedExceptionAction<Method>() {
                public Method run() throws NoSuchMethodException {
                    return impl.getMethod("runTestMethod", String.class, String.class);
                }
            });

            if (m.getDeclaringClass() != JMXTestRunner.class) {
                return runTestMethod(className, methodName);
            }
        } catch (Exception e) {
        }

        TestResult result = runTestMethodInternal(className, methodName, protocolProps);
        return Serializer.toByteArray(result);
    }

    private TestResult runTestMethodInternal(String className, String methodName, Map<String, String> protocolProps) {
        currentCall.set(className + methodName);
        TestResult result = null;
        try {
            TestRunner runner = mockTestRunner;
            if (runner == null) {
                runner = TestRunners.getTestRunner(getClass().getClassLoader());
            }

            log.fine("Load test class: " + className);
            Class<?> testClass = testClassLoader.loadTestClass(className);
            log.fine("Test class loaded from: " + testClass.getClassLoader());

            log.fine("Execute: " + className + "." + methodName);
            result = doRunTestMethod(runner, testClass, methodName, protocolProps);
        } catch (Throwable th) {
            result = TestResult.failed(th);
            result.setEnd(System.currentTimeMillis());
        } finally {
            log.fine("Result: " + result);
            if (result != null && result.getStatus() == Status.FAILED) {
                log.log(Level.SEVERE, "Failed: " + className + "." + methodName, result.getThrowable());
            }
        }
        return result;
    }

    protected TestResult doRunTestMethod(TestRunner runner, Class<?> testClass, String methodName,
        Map<String, String> protocolProps) {
        return runner.execute(testClass, methodName);
    }

    @Override
    public void send(Command<?> command) {
        Notification notification = new Notification("arquillian-command", this, integer.incrementAndGet(),
            currentCall.get());
        notification.setUserData(Serializer.toByteArray(command));
        sendNotification(notification);
    }

    @Override
    public Command<?> receive() {
        return events.remove(currentCall.get());
    }

    @Override
    public void push(String eventId, byte[] command) {
        events.put(eventId, Serializer.toObject(Command.class, command));
    }

    /**
     * @return the currentCall
     */
    protected String getCurrentCall() {
        return currentCall.get();
    }

   /*
    * Internal Helpers for Test
    */

    protected void setCurrentCall(String current) {
        currentCall.set(current);
    }

    void setExposedTestRunnerForTest(TestRunner mockTestRunner) {
        this.mockTestRunner = mockTestRunner;
    }

    public interface TestClassLoader {
        Class<?> loadTestClass(String className) throws ClassNotFoundException;
    }
}
