# coding: utf-8
# Copyright 2013 The Font Bakery Authors. All Rights Reserved.
#
# 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.
#
# See AUTHORS.txt for the list of Authors and LICENSE.txt for the License.
import importlib
import logging
import os
import sys
import unittest

from itertools import chain
from bakery_cli.logger import logger

if sys.version_info[0] < 3:
    def unicode(str):
        return str.decode('utf-8')


class TestRegistry(object):
    """ Singleton class to collect all available tests """
    tests = []

    @classmethod
    def register(cls, test):
        if test.__name__ not in [x.__name__ for x in TestRegistry.tests]:
            TestRegistry.tests.append(test)

    @classmethod
    def list(cls):
        return TestRegistry.tests


class MetaTest(type):
    """
    Class for all tests
    """
    def __new__(mcs, name, bases, attrs):
        abstract = attrs.pop('__abstract__', None)
        for x in attrs.keys():
            if x.startswith('test_'):
                if not hasattr(attrs[x], 'tags'):
                    attrs[x].tags = ['note', ]
        newbornclass = super(MetaTest, mcs).__new__(mcs, name, bases, attrs)
        if not abstract:
            TestRegistry.register(newbornclass)
        return newbornclass


class TestCaseOperator(object):
    """ This class contains path to tested target and logging instance """

    def __init__(self, path, logger_instance=None):
        self.path = path
        self.logger = logger_instance or logging.getLogger(__name__)

    def debug(self, message):
        if not self.logger:
            return
        self.logger.info(message.replace(os.getcwd() + os.path.sep, ''))


class BakeryTestCase(unittest.TestCase):

    __metaclass__ = MetaTest
    # because we don't want to register this base class as test case
    __abstract__ = True

    operator = TestCaseOperator('.')


class BakeryTestResult(unittest.TestResult):

    def __init__(self, stream=None, descriptions=None, verbosity=None,
                 success_list=None, error_list=None, failure_list=None,
                 fixed_list=None, restart=False):
        self.sl = success_list
        self.el = error_list
        self.fl = failure_list
        self.ff = fixed_list
        self.restart = restart
        super(BakeryTestResult, self).__init__()

    def callmethod(self, methodname, test):
        import inspect
        pkg = '.'.join(methodname.split('.')[:-1])
        mod = importlib.import_module(pkg)
        method = getattr(mod, methodname.split('.')[-1])

        if not inspect.isclass(method):
            return method(test)
        klass_instance = method(test, test.operator.path)
        if hasattr(klass_instance, 'get_shell_command'):
            logger.info('$ {}'.format(klass_instance.get_shell_command()))

        if test.apply_fix:
            klass_instance.apply(override_origin=test.apply_fix)

    def _format_test_output(self, test, status):
        result = getattr(test, '_err_msg', '')
        tags = getattr(getattr(test, test._testMethodName), 'tags', [])
        if result:
            message = unicode('{category}: {status}: {filename}.py:'
                              ' {klass}.{method}(): {description}: {result}')

        else:
            message = unicode('{category}: {status}: {filename}.py:'
                              ' {klass}.{method}(): {description}')

        message = message.format(category=', '.join(tags),
                                 status=status,
                                 filename=test.name.replace('.', '/'),
                                 klass=test.__class__.__name__,
                                 method=test._testMethodName,
                                 description=getattr(test, '_testMethodDoc', '') or '',
                                 result=unicode(result))
        return message

    def startTest(self, test):
        super(BakeryTestResult, self).startTest(test)

    def addSuccess(self, test):
        super(BakeryTestResult, self).addSuccess(test)

        if hasattr(test, 'operator'):
            logger.info(self._format_test_output(test, 'OK'))

        test_method = getattr(test, test._testMethodName)
        if hasattr(test_method, 'autofix'):
            # if testcase is marked as autofixed then add it to ff
            if hasattr(self.ff, 'append'):
                self.ff.append(test)
        elif hasattr(self.sl, 'append'):
            self.sl.append(test)

    def addError(self, test, err):
        super(BakeryTestResult, self).addError(test, err)
        _, _err_exception, _ = err
        test._err = err
        test._err_msg = _err_exception.message
        if hasattr(self.el, 'append'):
            self.el.append(test)

        if hasattr(test, 'operator'):
            logger.error(self._format_test_output(test, 'ERROR'))

    def addFailure(self, test, err):
        super(BakeryTestResult, self).addFailure(test, err)

        import copy
        failTest = copy.copy(test)
        _, _err_exception, _ = err
        failTest._err = err
        failTest._err_msg = _err_exception.message

        logger.error(self._format_test_output(failTest, 'FAIL'))

        test_method = getattr(test, test._testMethodName)

        if hasattr(test_method, 'autofix'):
            if not self.restart:
                self.callmethod(test_method.autofix_method, failTest)
                if hasattr(self.fl, 'append'):
                    self.fl.append(failTest)
                    self.restart = True  # mark next test as restarted
                    test.run(result=self)
                    self.restart = False  # reset restart state
                    return
            else:
                if hasattr(self.ff, 'append'):
                    self.ff.append(failTest)
        elif hasattr(self.fl, 'append'):
            self.fl.append(failTest)


class BakeryTestRunner(unittest.TextTestRunner):

    def __init__(self, descriptions=True, verbosity=1, resultclass=None,
                 success_list=None, error_list=None, failure_list=None,
                 fixed_list=None):

        self.sl = success_list
        self.el = error_list
        self.fl = failure_list
        self.ff = fixed_list

        self.results = []
        self.descriptions = descriptions
        if resultclass is not None:
            self.resultclass = resultclass
        super(BakeryTestRunner, self).__init__(self)

    def _makeResult(self):
        return self.resultclass(self.stream, self.descriptions, self.verbosity,
                                self.sl, self.el, self.fl, self.ff)

    def run(self, test):
        "Run the given test case or test suite."
        result = self._makeResult()
        test(result)
        self.results.append(result)
        return result


class tags(object):
    """ Decorator that allow to add .tags property to function. Usefull
    to tag tests. `MetaTest` already implement support for functions with names
    starting with 'test_'. Tags can be used in UI or other ways.

    Example:

    class SimpleTest(BakeryTestCase):
        @tags('important', 'latin-set')
        def test_subset_latin_chars(self):
            ''' Important test that check latin subset char set '''
            self.assertTrue(True) # your test code here

    """

    def __init__(self, *args):
        self.tags = args

    def __call__(self, f):
        f.tags = self.tags
        return f


class autofix(object):

    def __init__(self, methodname, always_run=False):
        self.methodname = methodname
        self.always_run = always_run

    def __call__(self, f):
        f.autofix = True
        f.autofix_method = self.methodname
        return f


def make_suite(path, definedTarget, apply_fix=False, test_method=None, log=None):
    """ path - is full path to file,
        definedTarget is filter to only select small subset of tests
    """
    suite = unittest.TestSuite()

    operator = TestCaseOperator(path, log)
    for TestCase in TestRegistry.list():
        if definedTarget in TestCase.targets:
            TestCase.operator = operator
            TestCase.apply_fix = apply_fix

            if getattr(TestCase, 'skipUnless', False):
                if TestCase.skipUnless():
                    continue

            if getattr(TestCase, '__generateTests__', None):
                TestCase.__generateTests__()

            for test in unittest.defaultTestLoader.loadTestsFromTestCase(TestCase):
                if test_method and test_method != test._testMethodName:
                    continue
                suite.addTest(test)

    return suite


def run_suite(suite):
    result = {
        'success': [],
        'error': [],
        'failure': [],
        'fixed': []
    }
    runner = BakeryTestRunner(resultclass=BakeryTestResult,
                              success_list=result['success'],
                              error_list=result['error'],
                              failure_list=result['failure'],
                              fixed_list=result['fixed'])
    runner.run(suite)

    check = lambda x: 'required' in getattr(getattr(x, x._testMethodName), 'tags', [])
    # assume that `error` test are important even if they are broken
    if not any([check(i) for i in chain(result.get('failure', []), result.get('error', []))]):
        result['passed'] = True
    else:
        result['passed'] = False

    # on next step here will be runner object
    return result


def tests_report(target=None):
    """ Small helper to make test report """
    f = lambda x: True if x.startswith('test') else False
    m = []
    for x in TestRegistry.list():
        if target and target not in getattr(x, 'targets', []):
            continue
        m.extend([getattr(x, i) for i in filter(f, dir(x))])

    for i in m:
        print("%s,\"%s\",\"%s\"" % (
            str(i).replace('<unbound method ', '').replace('>', ''),
            ", ".join(i.tags),
            " ".join(unicode(i.__doc__).replace("\n", '').replace('"', "'").split())))
