#include "testEnv.hpp"

#include "globals.hpp"

// You can add functions/vars here, as well as bind globals to be
// accessed through this class as shown in the NameSpace example.
//
// If the class is instantiated in script, the instance is "locked",
// preventing accidental changes to elements.
//
// Thus using an instance as the namespace can be a better design for
// development.
//
// If variables/constants are bound to the class and/or
// non-static/non-global functions, the class must be instantiated
// before use.
struct NamespaceClass {
};

SQPLUS_TEST(Test_Namespace)
{
    SQPLUS_TEST_TRACE();

    using namespace SqPlus;
    HSQUIRRELVM v = SquirrelVM::GetVMPtr();
    SquirrelObject root = SquirrelVM::GetRootTable();
    
    // === BEGIN Namespace examples ===

    // Create a namespace using a table.
    SquirrelObject nameSpaceTable = SquirrelVM::CreateTable();
    root.SetValue(_SC("Namespace1"), nameSpaceTable);
    Register(v,
             nameSpaceTable.GetObjectHandle(),
             globalFunc,
             _SC("namespaceFunc"));

    // Create a namespace using a class.
    //
    // If an instance is created from the class, using the instance
    // will prevent accidental changes to the instance members.
    //
    // Using the class/instance form also allows extra information to
    // be added to the proxy class, if desired (such as vars/funcs).
    //
    // NOTE: If any variables/static-variables/constants are
    // registered to the class, it must be instantiated before use.
    SQClassDef<NamespaceClass>(_SC("Namespace2"))
        .staticFunc(globalFunc, _SC("namespaceFunc"));

    RUN_SCRIPT(_SC("\
        Namespace1.namespaceFunc(\"Hello Namespace1 (table),\", 321); \n\
        Namespace2.namespaceFunc(\"Hello Namespace2 (class),\", 654); \n\
        local Namespace3 = Namespace2(); \n\
        Namespace3.namespaceFunc(\"Hello Namespace3 (instance),\", 987); \n\
      "));

    RUN_SCRIPT_THROW(
        _SC("print(\"An errorr is expected at the next line:\"); \n\
            namespaceFunc(\"Hello without namespace,\", -1);"),
        _SC("the index 'namespaceFunc' does not exist")
        );

    // === END Namespace examples ===
}