local inspect = require 'inspect' context( 'inspect', function() context('numbers', function() it('works', function() assert_equal(inspect(1), "1") assert_equal(inspect(1.5), "1.5") assert_equal(inspect(-3.14), "-3.14") end) end) context('strings', function() it('puts quotes around regular strings', function() assert_equal(inspect("hello"), '"hello"') end) it('puts apostrophes around strings with quotes', function() assert_equal(inspect('I have "quotes"'), "'I have \"quotes\"'") end) it('uses regular quotes if the string has both quotes and apostrophes', function() assert_equal(inspect("I have \"quotes\" and 'apostrophes'"), '"I have \\"quotes\\" and \'apostrophes\'"') end) it('escapes escape control characters', function() assert_equal(inspect('I have \n new \n lines'), '"I have \\\\n new \\\\n lines"') assert_equal(inspect('I have \b a back space'), '"I have \\\\b a back space"') end) end) it('works with nil', function() assert_equal(inspect(nil), 'nil') end) it('works with functions', function() assert_equal(inspect({ print, type, print }), '{ , , }') end) it('works with booleans', function() assert_equal(inspect(true), 'true') assert_equal(inspect(false), 'false') end) context('tables', function() it('works with simple array-like tables', function() assert_equal(inspect({1,2,3}), "{ 1, 2, 3 }" ) end) it('works with nested arrays', function() assert_equal(inspect({'a','b','c', {'d','e'}, 'f'}), '{ "a", "b", "c", { "d", "e" }, "f" }' ) end) it('works with simple dictionary tables', function() assert_equal(inspect({a = 1, b = 2}), "{\n a = 1,\n b = 2\n}") end) it('sorts keys in dictionary tables', function() local t = { 1,2,3, [print] = 1, ["buy more"] = 1, a = 1, [14] = 1, [{c=2}] = 1, [true]= 1 } assert_equal(inspect(t), [[{ 1, 2, 3, [14] = 1, [true] = 1, a = 1, ["buy more"] = 1, [{ c = 2 }] = 1, [] = 1 }]]) end) it('works with nested dictionary tables', function() assert_equal(inspect( {d=3, b={c=2}, a=1} ), [[{ a = 1, b = { c = 2 }, d = 3 }]]) end) it('works with hybrid tables', function() assert_equal(inspect({ 'a', {b = 1}, 2, c = 3, ['ahoy you'] = 4 }), [[{ "a", { b = 1 }, 2, ["ahoy you"] = 4, c = 3 }]]) end) context('depth', function() local level5 = { 1,2,3, a = { b = { c = { d = { e = 5 } } } } } local keys = { [level5] = true } it('has a default depth of 4', function() assert_equal(inspect(level5), [[{ 1, 2, 3, a = { b = { c = { d = {...} } } } }]]) end) it('is modifiable by the user', function() assert_equal(inspect(level5, 2), [[{ 1, 2, 3, a = { b = {...} } }]]) assert_equal(inspect(level5, 1), [[{ 1, 2, 3, a = {...} }]]) assert_equal(inspect(level5, 0), "{...}") assert_equal(inspect(level5, 6), [[{ 1, 2, 3, a = { b = { c = { d = { e = 5 } } } } }]]) end) it('respects depth on keys', function() assert_equal(inspect(keys), [[{ [{ 1, 2, 3, a = { b = { c = {...} } } }] = true }]]) end) it('displays instead of repeating an already existing table', function() local a = { 1, 2, 3 } local b = { 'a', 'b', 'c', a } a[4] = b a[5] = a a[6] = b assert_equal(inspect(a), '<1>{ 1, 2, 3, <2>{ "a", "b", "c",
},
,
}') end) end) context('metatables', function() it('includes the metatable as an extra hash attribute', function() local foo = { foo = 1, __mode = 'v' } local bar = setmetatable({a = 1}, foo) assert_equal(inspect(bar), [[{ a = 1, = { __mode = "v", foo = 1 } }]]) end) it('includes the __tostring metamethod if it exists', function() local foo = { foo = 1, __tostring = function() return 'hello\nworld' end } local bar = setmetatable({a = 1}, foo) assert_equal(inspect(bar), [[{ -- hello\nworld a = 1, = { __tostring = , foo = 1 } }]]) end) it('includes an error string if __tostring metamethod throws an error', function() local foo = { foo = 1, __tostring = function() error('hello', 0) end } local bar = setmetatable({a = 1}, foo) assert_equal(inspect(bar), [[{ -- error: hello a = 1, = { __tostring = , foo = 1 } }]]) end) end) end) end)