diff options
Diffstat (limited to 'test.lua')
| -rwxr-xr-x | test.lua | 106 |
1 files changed, 38 insertions, 68 deletions
@@ -1,6 +1,6 @@ -#!/usr/bin/lua +#!/usr/bin/env lua5.1 -local marigold = require 'marigold' +local svg = require 'marigold' function test(description, func) io.write(description .. ': ') @@ -15,45 +15,8 @@ function test(description, func) end -test("marigold.get_metavars correctly calls os.getenv", function() - -- mock os.getenv - local old_getenv = os.getenv - local env_tbl = { - AUTH_TYPE = 'some auth type', - CONTENT_LENGTH = 'a zillion', - GATEWAY_INTERFACE = 'idk, something', - PATH_INFO = 'youll see, its a secret', - PATH_TRANSLATED = 'i told you its a secret!', - QUERY_STRING = 'which string do you want?', - REMOTE_ADDR = 'probably somewhere in nunavut', - REMOTE_HOST = 'woah wait are we talking about parasites?', - REMOTE_IDENT = 'are you a cop?', - REMOTE_USER = 'seriously, you have to tell me if you are', - REQUEST_METHOD = 'uhh, to do what?', - SCRIPT_NAME = 'pretty sure this is hamlet', - SERVER_NAME = 'this isnt a restaurant', - SERVER_PORT = 'what, like a ship?', - SERVER_PROTOCOL = 'no really, not a restaurant', - SERVER_SOFTWARE = 'not familiar with that dish...', - } - os.getenv = function(varname) return env_tbl[varname] end - - -- actually call the function - metavars = marigold.get_metavars() - - assert(type(metavars) == 'table') - for k, v in pairs(env_tbl) do - assert(metavars[string.lower(k)]) - assert(metavars[string.lower(k)] == env_tbl[k]) - end - - -- restore os.getenv - os.getenv = old_getenv -end) - - -test("marigold.h produces a correct basic tag", function() - local h = marigold.h +test("svg.h produces a correct basic tag", function() + local h = svg.h local h1 = h('h1', 'hello, world!') assert(type(h1) == 'table') assert(h1.tag == 'h1') @@ -66,8 +29,8 @@ test("marigold.h produces a correct basic tag", function() end) -test("marigold.h correctly adds children", function() - local h = marigold.h +test("svg.h correctly adds children", function() + local h = svg.h local div = h('div', "some stuff", { h('p', "the first paragraph"), h('p', "the second paragraph"), @@ -87,8 +50,8 @@ test("marigold.h correctly adds children", function() end) -test("marigold.h correctly ignores missing content", function() - local h = marigold.h +test("svg.h correctly ignores missing content", function() + local h = svg.h local div = h('div', { h('p', "the first paragraph"), h('p', "the second paragraph"), @@ -108,8 +71,8 @@ test("marigold.h correctly ignores missing content", function() end) -test("marigold.h correctly sets attributes and children", function() - local h = marigold.h +test("svg.h correctly sets attributes and children", function() + local h = svg.h local div = h('div', { id="root", class="blinking bold", h('p', "the first paragraph"), @@ -130,24 +93,24 @@ test("marigold.h correctly sets attributes and children", function() end) -test("marigold.html correctly renders basic html table", function() +test("svg.render correctly renders basic render table", function() local tbl = { tag='p', content='some paragraph', attributes={}, children={}} - local html = marigold.html(tbl) - assert(html == '<p>some paragraph</p>') + local render = svg.render(tbl) + assert(render == '<?xml version="1.0" encoding="UTF-8" standalone="no"?>\n<p>some paragraph</p>') end) -test("marigold.html correctly renders tag attributes", function() +test("svg.render correctly renders tag attributes", function() local tbl = { tag='p', content='some paragraph', attributes={ id='p1', class='blinking bold' }, children={}} - local html = marigold.html(tbl) - assert(html == '<p class="blinking bold" id="p1">some paragraph</p>') + local render = svg.render(tbl) + assert(render == '<?xml version="1.0" encoding="UTF-8" standalone="no"?>\n<p class="blinking bold" id="p1">some paragraph</p>') end) -test("marigold.html correctly renders children", function() +test("svg.render correctly renders children", function() local tbl = { tag = 'div', content='', attributes = {id="root"}, children = { @@ -156,27 +119,34 @@ test("marigold.html correctly renders children", function() } } - local html = marigold.html(tbl) - assert(html == [[<div id="root"> + local render = svg.render(tbl) + assert(render == [[<?xml version="1.0" encoding="UTF-8" standalone="no"?> +<div id="root"> <p class="bold">p1</p> <p>p2</p> </div>]]) end) -test("marigold.decode_percent correctly decodes percent-encoded strings", function() - local str = '%20%21%23%24%25%26%27%28%29%2A%2B%2C%2F%3A%3B%3D%3F%40%5B%5D' - assert(marigold.decode_percent(str) == " !#$%&'()*+,/:;=?@[]") - assert(marigold.decode_percent('%25+%2b') == '%++') + + +test("svg.svg correctly has xmlns attribute set", function() + local tbl = svg.svg() + assert(tbl.tag == 'svg') + assert(tbl.content == '') + assert(tbl.attributes.xmlns == 'http://www.w3.org/2000/svg') + assert(#tbl.children == 0) end) -test("marigold.decode_query correctly obtains data", function() - local tbl - tbl = marigold.decode_query('') - tbl = marigold.decode_query('name=john') - assert(tbl.name == 'john') - tbl = marigold.decode_query('string=hello%2C+world%21&name=jane') - assert(tbl.string == 'hello, world!') - assert(tbl.name == 'jane') +test("svg.g can set transform attribute", function() + local tbl = svg.g{ + transform = "rotate(45deg)", + svg.g(), + svg.g(), + } + assert(tbl.tag == 'g') + assert(tbl.content == '') + assert(tbl.attributes.transform == 'rotate(45deg)') + assert(#tbl.children == 2) end) |