diff --git a/modules/Makefile.am b/modules/Makefile.am index cba24e941..30a887064 100644 --- a/modules/Makefile.am +++ b/modules/Makefile.am @@ -51,6 +51,7 @@ moduledir=@moduledir@ future_la_SOURCES = future.cc require_la_SOURCES = require.cc events_la_SOURCES = events.cc +assert_la_SOURCES = assert.cc console_la_SOURCES = console.cc m_host_la_SOURCES = m_host.cc m_get_la_SOURCES = m_get.cc @@ -141,6 +142,7 @@ m_get_la_SOURCES = m_get.cc module_LTLIBRARIES = \ future.la \ require.la \ +assert.la \ events.la \ console.la \ m_host.la \ diff --git a/modules/assert.cc b/modules/assert.cc new file mode 100644 index 000000000..6f6c74aee --- /dev/null +++ b/modules/assert.cc @@ -0,0 +1,79 @@ +/* + * Copyright (C) 2016 Charybdis Development Team + * Copyright (C) 2016 Jason Volk + * + * Permission to use, copy, modify, and/or distribute this software for any + * purpose with or without fee is hereby granted, provided that the above + * copyright notice and this permission notice is present in all copies. + * + * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR + * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED + * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE + * DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, + * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES + * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR + * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, + * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING + * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE + * POSSIBILITY OF SUCH DAMAGE. + */ + +#include + +namespace ircd { +namespace js { + +struct assert_ +:trap +{ + struct ok; + + value on_call(object::handle, value::handle, const args &) override; + using trap::trap; +} +static assert_{"assert"}; + +struct assert_::ok +:trap::function +{ + value on_call(object::handle, value::handle, const args &) override; + using trap::function::function; +} +static ok{assert_, "ok"}; + +value +assert_::on_call(object::handle callee, + value::handle thatv, + const args &args) +{ + return call("ok", callee, args); +} + +value +assert_::ok::on_call(object::handle, + value::handle val, + const args &args) +{ + if(!bool(args[0])) + { + string message + { + args.has(1)? string(args[1]) : string("failed") + }; + + throw jserror("AssertionError: %s", message.c_str()); + } + + return {}; +} + +} // namespace js +} // namespace ircd + +using namespace ircd; + +mapi::header IRCD_MODULE +{ + "Provides a set of assertion tests in the js environment", +};