Module:U.S. Army Cemeteries Explorer/testcases

-- License: CC-0, Public domain

-- Unit tests for [[Module:{{ROOTPAGENAME}}]]. Click talk page to run tests.
local p = require('Module:UnitTests')
local m = require('Module:U.S. Army Cemeteries Explorer')

-- Example unit test.
function p:test_cemetery_slug_name_to_slug()
	self:preprocess_equals('{{#invoke:U.S. Army Cemeteries Explorer | cemetery_slug | cemetery-name=Arlington National Cemetery}}', 'arlington-national')
	self:preprocess_equals("{{#invoke:U.S. Army Cemeteries Explorer | cemetery_slug | cemetery-name=US Soldiers' and Airmen's Home}}", 'soldiers-airmens-home')
	self:preprocess_equals('{{#invoke:U.S. Army Cemeteries Explorer | cemetery_slug | cemetery-name=fake unknown}}', '')
end

function p:test_cemetery_slug_slug_provided()
	self:preprocess_equals('{{#invoke:U.S. Army Cemeteries Explorer | cemetery_slug | cemetery-slug=arlington-national}}', 'arlington-national')
	self:preprocess_equals('{{#invoke:U.S. Army Cemeteries Explorer | cemetery_slug | cemetery-slug=soldiers-airmens-home}}', 'soldiers-airmens-home')
	self:preprocess_equals('{{#invoke:U.S. Army Cemeteries Explorer | cemetery_slug | cemetery-slug=arbitrary-unknown}}', 'arbitrary-unknown')
end

function p:test_print_url()
	self:preprocess_equals('{{#invoke:U.S. Army Cemeteries Explorer | print_url | iss-id=260478 | cemetery-name=Arlington National Cemetery}}', 'https://ancexplorer.army.mil/publicwmv/print.html#/arlington-national/burial/260478/')
	self:preprocess_equals("{{#invoke:U.S. Army Cemeteries Explorer | print_url | iss-id=260478 | cemetery-name=US Soldiers' and Airmen's Home}}", 'https://ancexplorer.army.mil/publicwmv/print.html#/soldiers-airmens-home/burial/260478/')
	self:preprocess_equals('{{#invoke:U.S. Army Cemeteries Explorer | print_url | iss-id=260478 | cemetery-name=fake unknown}}', '')
	self:preprocess_equals('{{#invoke:U.S. Army Cemeteries Explorer | print_url | iss-id=260478 | cemetery-slug=arlington-national}}', 'https://ancexplorer.army.mil/publicwmv/print.html#/arlington-national/burial/260478/')
	self:preprocess_equals('{{#invoke:U.S. Army Cemeteries Explorer | print_url | iss-id=260478 | cemetery-slug=soldiers-airmens-home}}', 'https://ancexplorer.army.mil/publicwmv/print.html#/soldiers-airmens-home/burial/260478/')
	self:preprocess_equals('{{#invoke:U.S. Army Cemeteries Explorer | print_url | iss-id=260478 | cemetery-slug=arbitrary-unknown}}', 'https://ancexplorer.army.mil/publicwmv/print.html#/arbitrary-unknown/burial/260478/')
end

function p:test_base64_encode()
	self:equals('00: CgZUc-', m.base64_encode(mw.text.decode('
MirickG')), 'CgZNaXJpY2saAUc-')
	self:equals('01: CgZgFH', m.base64_encode(mw.text.decode('
MirickEdithG')), 'CgZNaXJpY2sSBUVkaXRoGgFH')
	self:equals('02: CgZgFI', m.base64_encode(mw.text.decode('
MirickEdithH')), 'CgZNaXJpY2sSBUVkaXRoGgFI')
	self:equals('03: CgRXI-', m.base64_encode(mw.text.decode('
BadtHarryAsher')), 'CgRCYWR0EgVIYXJyeRoFQXNoZXI-')
	self:equals('04: CgZXRo', m.base64_encode(mw.text.decode('
MirickEdith')), 'CgZNaXJpY2sSBUVkaXRo')
	self:equals('05: CgZgFH', m.base64_encode(mw.text.decode('
MirickEdithG')), 'CgZNaXJpY2sSBUVkaXRoGgFH')
	self:equals('birth and interment only', m.base64_encode(mw.text.decode(':
1883-11-16º	1972-2-16')), 'OgoxODgzLTExLTE2ugEJMTk3Mi0yLTE2')
	self:equals('birth and interment and section 3', m.base64_encode(mw.text.decode(':
1883-11-16Š3º	1972-2-16')), 'OgoxODgzLTExLTE2igEBM7oBCTE5NzItMi0xNg')
	self:equals('Edith with birth date and such', m.base64_encode(mw.text.decode(':
1883-11-16B	1972-2-11Š3ª4460-Fº	1972-2-16')), 'OgoxODgzLTExLTE2QgkxOTcyLTItMTGKAQEzqgEGNDQ2MC1GugEJMTk3Mi0yLTE2')
	self:equals('Mirick Navy', m.base64_encode(mw.text.decode('
Mirick²USN')), 'CgZNaXJpY2uyAQNVU04-')
	self:equals('10: EgVw--', m.base64_encode(mw.text.decode('EdithG')), 'EgVFZGl0aBoBRw--')
	self:equals('grave gravesite: 4460-F', m.base64_encode(mw.text.decode('ª4460-F')), 'qgEGNDQ2MC1G')
	self:equals('grave or columbarium section 3', m.base64_encode(mw.text.decode('Š3')), 'igEBMw--')
	self:equals('niche wall section 3', m.base64_encode(mw.text.decode('Š3¢N70')), 'igEBM6IBA043MA--')
	self:equals('niche wall column 3', m.base64_encode(mw.text.decode('’3¢N70')), 'kgEBM6IBA043MA--')
	self:equals('interment date', m.base64_encode(mw.text.decode('º	1972-2-16')), 'ugEJMTk3Mi0yLTE2')
	self:equals('death date', m.base64_encode(mw.text.decode('B	1972-2-11')), 'QgkxOTcyLTItMTE-')
	self:equals('branch: US Navy', m.base64_encode(mw.text.decode('²USN')), 'sgEDVVNO')
	self:equals('branch: US Army', m.base64_encode(mw.text.decode('²USA')), 'sgEDVVNB')
	self:equals('branch: US Air Force', m.base64_encode(mw.text.decode('²USAF')), 'sgEEVVNBRg--')
	self:equals('branch: US Marine Corps', m.base64_encode(mw.text.decode('²USMC')), 'sgEEVVNNQw--')
end



return p