/*jshint esversion: 6 */
"use strict";

const test     = require('tape');
const beautify = require('js-beautify').js_beautify;

const getState = require("./tests.js").getState;

const VM       = require("../src/lvm.js");
const ldo      = require("../src/ldo.js");
const lapi     = require("../src/lapi.js");
const lauxlib  = require("../src/lauxlib.js");
const CT       = require('../src/lua.js').constant_types;

test('luaL_newstate, lua_pushnil, lua_gettop, luaL_typename', function (t) {
    let L;
    
    t.plan(3);

    t.doesNotThrow(function () {

        L = lauxlib.luaL_newstate();

        lapi.lua_pushnil(L);

    }, "JS Lua program ran without error");

    t.strictEqual(
        lapi.lua_gettop(L),
        1,
        "top is correct"
    );

    t.strictEqual(
        lauxlib.luaL_typename(L, lapi.lua_gettop(L)),
        "nil",
        "Correct element(s) on the stack"
    );
});


test('lua_pushnumber', function (t) {
    let L;
    
    t.plan(4);

    t.doesNotThrow(function () {

        L = lauxlib.luaL_newstate();

        lapi.lua_pushnumber(L, 10.5);

    }, "JS Lua program ran without error");

    t.strictEqual(
        lapi.lua_gettop(L),
        1,
        "top is correct"
    );

    t.strictEqual(
        lauxlib.luaL_typename(L, lapi.lua_gettop(L)),
        "number",
        "Correct element(s) on the stack"
    );

    t.strictEqual(
        lapi.lua_tonumber(L, -1),
        10.5,
        "top is correct"
    );
});


test('lua_pushinteger', function (t) {
    let L;
    
    t.plan(4);

    t.doesNotThrow(function () {

        L = lauxlib.luaL_newstate();

        lapi.lua_pushinteger(L, 10);

    }, "JS Lua program ran without error");

    t.strictEqual(
        lapi.lua_gettop(L),
        1,
        "top is correct"
    );

    t.strictEqual(
        lauxlib.luaL_typename(L, lapi.lua_gettop(L)),
        "number",
        "Correct element(s) on the stack"
    );

    t.strictEqual(
        lapi.lua_tointeger(L, -1),
        10,
        "top is correct"
    );
});


test('lua_pushstring', function (t) {
    let L;
    
    t.plan(4);

    t.doesNotThrow(function () {

        L = lauxlib.luaL_newstate();

        lapi.lua_pushstring(L, "hello");

    }, "JS Lua program ran without error");

    t.strictEqual(
        lapi.lua_gettop(L),
        1,
        "top is correct"
    );

    t.strictEqual(
        lauxlib.luaL_typename(L, lapi.lua_gettop(L)),
        "string",
        "Correct element(s) on the stack"
    );

    t.strictEqual(
        lapi.lua_tostring(L, -1),
        "hello",
        "top is correct"
    );
});


test('lua_pushboolean', function (t) {
    let L;
    
    t.plan(4);

    t.doesNotThrow(function () {

        L = lauxlib.luaL_newstate();

        lapi.lua_pushboolean(L, true);

    }, "JS Lua program ran without error");

    t.strictEqual(
        lapi.lua_gettop(L),
        1,
        "top is correct"
    );

    t.strictEqual(
        lauxlib.luaL_typename(L, lapi.lua_gettop(L)),
        "boolean",
        "Correct element(s) on the stack"
    );

    t.strictEqual(
        lapi.lua_toboolean(L, -1),
        true,
        "top is correct"
    );
});


test('lua_pushvalue', function (t) {
    let L;
    
    t.plan(6);

    t.doesNotThrow(function () {

        L = lauxlib.luaL_newstate();

        lapi.lua_pushstring(L, "hello");

        lapi.lua_pushvalue(L, -1);

    }, "JS Lua program ran without error");

    t.strictEqual(
        lapi.lua_gettop(L),
        2,
        "top is correct"
    );

    t.strictEqual(
        lauxlib.luaL_typename(L, -1),
        "string",
        "Correct element(s) on the stack"
    );

    t.strictEqual(
        lauxlib.luaL_typename(L, -2),
        "string",
        "Correct element(s) on the stack"
    );

    t.strictEqual(
        lapi.lua_tostring(L, -1),
        "hello",
        "top is correct"
    );

    t.strictEqual(
        lapi.lua_tostring(L, -2),
        "hello",
        "top is correct"
    );
});


test('lua_pushcclosure', function (t) {
    let L;
    
    t.plan(3);

    t.doesNotThrow(function () {

        let fn = function(L) {
            return 0;
        };

        L = lauxlib.luaL_newstate();

        lapi.lua_pushstring(L, "a value associated to the C closure");
        lapi.lua_pushcclosure(L, fn, 1);

    }, "JS Lua program ran without error");

    t.strictEqual(
        lapi.lua_gettop(L),
        1,
        "top is correct"
    );

    t.strictEqual(
        lauxlib.luaL_typename(L, lapi.lua_gettop(L)),
        "function",
        "Correct element(s) on the stack"
    );
});


test('lua_pushcfunction', function (t) {
    let L;
    
    t.plan(3);

    t.doesNotThrow(function () {

        let fn = function(L) {
            return 0;
        };

        L = lauxlib.luaL_newstate();

        lapi.lua_pushcfunction(L, fn);

    }, "JS Lua program ran without error");

    t.strictEqual(
        lapi.lua_gettop(L),
        1,
        "top is correct"
    );

    t.strictEqual(
        lauxlib.luaL_typename(L, lapi.lua_gettop(L)),
        "function",
        "Correct element(s) on the stack"
    );
});


test('lua_call (calling a light JS function)', function (t) {
    let L;
    
    t.plan(3);

    t.doesNotThrow(function () {

        let fn = function(L) {
            lapi.lua_pushstring(L, "hello");
            return 1;
        };

        L = lauxlib.luaL_newstate();

        lapi.lua_pushcfunction(L, fn);

        lapi.lua_call(L, 0, 1);

    }, "JS Lua program ran without error");

    t.strictEqual(
        lapi.lua_gettop(L),
        1,
        "top is correct"
    );

    t.strictEqual(
        lapi.lua_tostring(L, -1),
        "hello",
        "top is correct"
    );
});