#nullable enable

using Jint.Native;
using Jint.Runtime;
using Jint.Runtime.Modules;

namespace Jint.Tests.Runtime;

public class ParserOptionsPropagationTests
{
    public enum SourceKind
    {
        Script,
        ModuleViaBuilder,
        ModuleViaFactory,
    }

    private sealed class ModuleScript : IModuleLoader
    {
        public const string MainSpecifier = "main";
        private readonly bool _prepare;
        private readonly string _code;
        private readonly ModuleParsingOptions _parsingOptions;

        public ModuleScript(bool prepare, string code, ModuleParsingOptions parsingOptions)
        {
            _prepare = prepare;
            _code = code;
            _parsingOptions = parsingOptions;
        }

        ResolvedSpecifier IModuleLoader.Resolve(string? referencingModuleLocation, ModuleRequest moduleRequest)
        {
            if (moduleRequest.Specifier == MainSpecifier)
                return new ResolvedSpecifier(moduleRequest, MainSpecifier, Uri: null, SpecifierType.Bare);

            throw new ArgumentException(null, nameof(moduleRequest));
        }

        Jint.Runtime.Modules.Module IModuleLoader.LoadModule(Engine engine, ResolvedSpecifier resolved)
        {
            if (resolved.ModuleRequest.Specifier == MainSpecifier)
            {
                return _prepare
                    ? ModuleFactory.BuildSourceTextModule(engine, Engine.PrepareModule(_code, MainSpecifier, options: new ModulePreparationOptions { ParsingOptions = _parsingOptions }))
                    : ModuleFactory.BuildSourceTextModule(engine, resolved, _code, _parsingOptions);
            }

            throw new ArgumentException(null, nameof(resolved));
        }
    }

    [Theory]
    [InlineData(SourceKind.Script, @"'' + eval('(1, 2,)')", false, false, null)]
    [InlineData(SourceKind.Script, @"'' + eval('(1, 2,)')", true, false, null)]
    [InlineData(SourceKind.Script, @"('',) + eval('(1, 2,)')", false, true, "2")]
    [InlineData(SourceKind.Script, @"('',) + eval('(1, 2,)')", true, true, "2")]
    [InlineData(SourceKind.ModuleViaBuilder, @"export default '' + eval('(1, 2,)')", false, false, null)]
    [InlineData(SourceKind.ModuleViaBuilder, @"export default '' + eval('(1, 2,)')", true, false, null)]
    [InlineData(SourceKind.ModuleViaBuilder, @"export default ('',) + eval('(1, 2,)')", false, true, "2")]
    [InlineData(SourceKind.ModuleViaBuilder, @"export default ('',) + eval('(1, 2,)')", true, true, "2")]
    [InlineData(SourceKind.ModuleViaFactory, @"export default '' + eval('(1, 2,)')", false, false, null)]
    [InlineData(SourceKind.ModuleViaFactory, @"export default '' + eval('(1, 2,)')", true, false, null)]
    [InlineData(SourceKind.ModuleViaFactory, @"export default ('',) + eval('(1, 2,)')", false, true, "2")]
    [InlineData(SourceKind.ModuleViaFactory, @"export default ('',) + eval('(1, 2,)')", true, true, "2")]

    [InlineData(SourceKind.Script, @"'' + new Function('return (1, 2,)')()", false, false, null)]
    [InlineData(SourceKind.Script, @"'' + new Function('return (1, 2,)')()", true, false, null)]
    [InlineData(SourceKind.Script, @"('',) + new Function('return (1, 2,)')()", false, true, "2")]
    [InlineData(SourceKind.Script, @"('',) + new Function('return (1, 2,)')()", true, true, "2")]
    [InlineData(SourceKind.ModuleViaBuilder, @"export default '' + new Function('return (1, 2,)')()", false, false, null)]
    [InlineData(SourceKind.ModuleViaBuilder, @"export default '' + new Function('return (1, 2,)')()", true, false, null)]
    [InlineData(SourceKind.ModuleViaBuilder, @"export default ('',) + new Function('return (1, 2,)')()", false, true, "2")]
    [InlineData(SourceKind.ModuleViaBuilder, @"export default ('',) + new Function('return (1, 2,)')()", true, true, "2")]
    [InlineData(SourceKind.ModuleViaFactory, @"export default '' + new Function('return (1, 2,)')()", false, false, null)]
    [InlineData(SourceKind.ModuleViaFactory, @"export default '' + new Function('return (1, 2,)')()", true, false, null)]
    [InlineData(SourceKind.ModuleViaFactory, @"export default ('',) + new Function('return (1, 2,)')()", false, true, "2")]
    [InlineData(SourceKind.ModuleViaFactory, @"export default ('',) + new Function('return (1, 2,)')()", true, true, "2")]

    [InlineData(SourceKind.Script, @"'' + new ShadowRealm().evaluate('(1, 2,)')", false, false, null)]
    [InlineData(SourceKind.Script, @"'' + new ShadowRealm().evaluate('(1, 2,)')", true, false, null)]
    [InlineData(SourceKind.Script, @"('',) + new ShadowRealm().evaluate('(1, 2,)')", false, true, "2")]
    [InlineData(SourceKind.Script, @"('',) + new ShadowRealm().evaluate('(1, 2,)')", true, true, "2")]
    [InlineData(SourceKind.ModuleViaBuilder, @"export default '' + new ShadowRealm().evaluate('(1, 2,)')", false, false, null)]
    [InlineData(SourceKind.ModuleViaBuilder, @"export default '' + new ShadowRealm().evaluate('(1, 2,)')", true, false, null)]
    [InlineData(SourceKind.ModuleViaBuilder, @"export default ('',) + new ShadowRealm().evaluate('(1, 2,)')", false, true, "2")]
    [InlineData(SourceKind.ModuleViaBuilder, @"export default ('',) + new ShadowRealm().evaluate('(1, 2,)')", true, true, "2")]
    [InlineData(SourceKind.ModuleViaFactory, @"export default '' + new ShadowRealm().evaluate('(1, 2,)')", false, false, null)]
    [InlineData(SourceKind.ModuleViaFactory, @"export default '' + new ShadowRealm().evaluate('(1, 2,)')", true, false, null)]
    [InlineData(SourceKind.ModuleViaFactory, @"export default ('',) + new ShadowRealm().evaluate('(1, 2,)')", false, true, "2")]
    [InlineData(SourceKind.ModuleViaFactory, @"export default ('',) + new ShadowRealm().evaluate('(1, 2,)')", true, true, "2")]
    public void DynamicCodeShouldBeParsedWithCallerParserOptions(SourceKind sourceKind, string code, bool prepare, bool tolerant, string? expectedReturnValue)
    {
        Engine engine;
        Func<JsValue> evalAction;

        if (sourceKind == SourceKind.Script)
        {
            var parsingOptions = ScriptParsingOptions.Default with { Tolerant = tolerant };
            engine = new Engine();

            if (prepare)
            {
                var preparedScript = Engine.PrepareScript(code, options: new ScriptPreparationOptions { ParsingOptions = parsingOptions });
                evalAction = () => engine.Evaluate(preparedScript);
            }
            else
            {
                evalAction = () => engine.Evaluate(code, parsingOptions);
            }
        }
        else
        {
            var parsingOptions = ModuleParsingOptions.Default with { Tolerant = tolerant };
            if (sourceKind == SourceKind.ModuleViaBuilder)
            {
                engine = new Engine();

                if (prepare)
                {
                    engine.Modules.Add("main", o =>
                    {
                        var preparedModule = Engine.PrepareModule(code, options: new ModulePreparationOptions { ParsingOptions = parsingOptions });
                        o.AddModule(preparedModule);
                    });
                }
                else
                {
                    engine.Modules.Add("main", o => o.AddSource(code).WithOptions(_ => parsingOptions));
                }
            }
            else if (sourceKind == SourceKind.ModuleViaFactory)
            {
                var moduleScript = new ModuleScript(prepare, code, parsingOptions);
                engine = new Engine(o => o.EnableModules(moduleScript));
            }
            else
            {
                throw new InvalidOperationException();
            }

            evalAction = () =>
            {
                var ns = engine.Modules.Import("main");
                return ns.Get("default");
            };
        }

        if (expectedReturnValue is not null)
        {
            Assert.Equal(expectedReturnValue, evalAction());
        }
        else
        {
            var ex = Assert.ThrowsAny<Exception>(evalAction);
            Assert.True(ex is JavaScriptException or ParseErrorException);
        }
    }

    [Theory]
    [InlineData(false, false, null)]
    [InlineData(false, true, "2")]
    [InlineData(true, false, null)]
    [InlineData(true, true, "2")]
    public void TransitivelyImportedModuleShouldBeParsedWithOwnParserOptions(bool mainTolerant, bool otherTolerant, string? expectedReturnValue)
    {
        var engine = new Engine();
        engine.Modules.Add("main", o => o.AddSource("import { x } from 'other'; export default x").WithOptions(o => o with { Tolerant = mainTolerant }));
        engine.Modules.Add("other", o => o.AddSource("export const x = '' + eval('(1, 2,)')").WithOptions(o => o with { Tolerant = otherTolerant }));

        var evalAction = () =>
        {
            var ns = engine.Modules.Import("main");
            return ns.Get("default");
        };

        if (expectedReturnValue is not null)
        {
            Assert.Equal(expectedReturnValue, evalAction());
        }
        else
        {
            var ex = Assert.Throws<JavaScriptException>(evalAction);
            Assert.True(ex.Error.InstanceofOperator(engine.Realm.Intrinsics.SyntaxError));
        }
    }

    [Fact]
    public void RealmsShouldBeIsolatedWithRegardToParserOptions()
    {
        var engine = new Engine();

        var parsingOptions = ScriptParsingOptions.Default with { AllowReturnOutsideFunction = true, Tolerant = true };
        Assert.Equal("2", engine.Evaluate("return '' + eval('(1, 2,)')", parsingOptions));

        var shadowRealm1 = engine.Intrinsics.ShadowRealm.Construct();
        var shadowRealm2 = engine.Intrinsics.ShadowRealm.Construct();

        var ex = Assert.Throws<JavaScriptException>(() => shadowRealm1.Evaluate("'' + eval('(1, 2,)')", parsingOptions with { Tolerant = false }));
        Assert.True(ex.Error.InstanceofOperator(engine.Intrinsics.TypeError));

        Assert.Equal("2", engine.Evaluate("'' + eval('(1, 2,)')", parsingOptions));

        ex = Assert.Throws<JavaScriptException>(() => shadowRealm2.Evaluate("'' + eval('(1, 2,)')", parsingOptions with { Tolerant = false }));
        Assert.True(ex.Error.InstanceofOperator(engine.Intrinsics.TypeError));

        Assert.Equal("2", shadowRealm1.Evaluate("'' + eval('(1, 2,)')", parsingOptions));

        ex = Assert.Throws<JavaScriptException>(() => engine.Evaluate("'' + eval('(1, 2,)')", parsingOptions with { Tolerant = false }));
        Assert.True(ex.Error.InstanceofOperator(engine.Intrinsics.SyntaxError));

        Assert.Equal("2", shadowRealm2.Evaluate("'' + new Function('return (1, 2,)')()", parsingOptions));
    }
}