localScribuntoUnit=require('Module:ScribuntoUnit')localp={}---------------------------------------------------------------------------------- Test assertEqualslocalfunctiontestAssertEquals(msg,expected,actual,shouldFail)localout=msg..' 'localerrmsg=''localsuccess,details=pcall(function()localsuite=ScribuntoUnit:new()suite:assertEquals(expected,actual)end)ifnotsuccessand(type(details)~='table'ornotdetails.ScribuntoUnit)then-- a real error, not a failed assertionlocalerrmsg='Lua error: '..tostring(details)endifsuccess==notshouldFailthenout=out..'OK'elseout=out..'FAIL'..(errmsgand' -- '..errmsgor'')endreturnoutendfunctionp.testAssertEqualsWithEqualStrings()returntestAssertEquals('Testing that assertEquals does not throw error for equal strings...','abc','abc',false)endfunctionp.testAssertEqualsWithUnequalStrings()returntestAssertEquals('Testing that assertEquals throws error for unequal strings...','abc','def',true)end---------------------------------------------------------------------------------- TODO: Test more methods--returnp