Modul:UnitTests/invoke - Versionsgeschichte

PerfektesChaos: 2020-04-21

2020-04-20T22:58:27Z

2020-04-21

@@ Zeile 1: / Zeile 1: @@
 UnitTests/invoke
 Debug any Module from which this is required as a submodule.
 Compare result after invoke and expectation.
 ]=]
-local function fault( a )
+local function fault( alert )
     -- Format error by class=error
-    return string.format( "<span class=\"error\">%s</span>", a )
+    return tostring( mw.html.create( "span" )
 end -- fault()
@@ Zeile 26: / Zeile 33: @@
     if allow then
         if assign then
-            r = string.format( "<span style='%s'>%s</span>", assign, r )
+            local e = mw.html.create( "span" )
         end
     else
         local params = { r,
                          lang="text",
-                         enclose="none" }
+                         inline="" }
         if assign then
             params.style = assign
@@ Zeile 77: / Zeile 87: @@
     end
     if not accept  and  accept ~= "" then
-        r = string.format( "%s<br /><code>|_r_=</code>%s",
+        local e = mw.html.create( "code" )
-                           r,  fade( frame, approve, "color:#8B008B" ) )
+                         :wikitext( "|_r_=" )
     elseif not approve  and  accept  and  accept ~= "" then
         r = r .. "<br />" .. fault( "''no result''" )
@@ Zeile 111: / Zeile 125: @@
     return r
 end -- fidelity()
@@ Zeile 174: / Zeile 233: @@
     return r
 end -- p.f
 return p

PerfektesChaos: 2019-03-25

2019-03-26T20:10:16Z

2019-03-25

← Nächstältere Version		Version vom 26. März 2019, 22:10 Uhr
Zeile 1:		Zeile 1:
	--[=[ ~~2014~~-10-19		--[=[ 2019-03-25
	UnitTests/invoke		UnitTests/invoke
	Debug any Module from which this is required as a submodule.		Debug any Module from which this is required as a submodule.
Zeile 42:		Zeile 42:


	local function fidelity( frame, action, args, accept, approve )		local function fidelity( frame, action, args, alt, accept, approve )
	-- Show result; append string wikisyntax if differing		-- Show result; append string wikisyntax if differing
	-- Parameter:		-- Parameter:
	-- action -- string, function		-- action -- string, function
	-- args -- table, with ~~parameters~~		-- args -- table, with forwarded parameter values
			-- alt -- table, with displayed parameter values
	-- accept -- string, with expectation, or nil		-- accept -- string, with expectation, or nil
	-- approve -- string, with result		-- approve -- string, with result
Zeile 52:		Zeile 53:
	-- string		-- string
	local r, set, story		local r, set, story
	for k, v in pairs( ~~args~~ ) do		for k, v in pairs( alt ) do
	if type( k ) == "number" then		if type( k ) == "number" then
	set = string.format( "%d", k )		set = string.format( "%d", k )
Zeile 128:		Zeile 129:
	local should = frame.args[ "_r_" ]		local should = frame.args[ "_r_" ]
	local params = { }		local params = { }
			local views = { }
	for k, v in pairs( frame.args ) do		for k, v in pairs( frame.args ) do
	if type( k ) == "string"		if type( k ) == "string"
	and k:~~match~~( "^_~~%l_$~~" ) then		and k:sub( 1, 1 ) == "_" then
	k = ~~false~~		if k:match( "^_%l_$" ) then
			k = false
			else
			k = k:match( "^__(.+)__$" )
			if k then
			if k:match( "^[0-9]%d*$" ) then
			k = tonumber( k )
			end
			views[ k ] = v
			k = false
			end
			end
	end		end
	if k then		if k then
Zeile 140:		Zeile 153:
	lucky, r = pcall( funny, frame )		lucky, r = pcall( funny, frame )
	if lucky then		if lucky then
	r = ~~fidelity(~~ ~~frame,~~ ~~fun,~~ params, ~~should,~~ ~~r )~~		for k, v in pairs( params ) do
			if type( views[ k ] ) ~= "string" then
			views[ k ] = v
			end
			end -- for k, v
			r = fidelity( frame, fun, params, views, should, r )
	else		else
	r = fault( ~~self .~~. " " .. r )		r = fault( string.format( "%s %s", self, r ) )
	end		end
	else		else
	r = fault( ~~subject .~~.		r = fault( string.format( "%s * function %s unknown",
	" * ~~function~~ " .. ~~fun~~ .. " ~~unknown"~~ )		subject, fun ) )
	end		end
	else		else

Leyo: Schützte „Modul:UnitTests/invoke“: Häufig eingebundenes Modul ([Bearbeiten=Nur angemeldete, nicht neue Benutzer] (unbeschränkt) [Verschieben=Nur Administratoren] (unbeschränkt))

2014-10-30T20:26:50Z

Schützte „Modul:UnitTests/invoke“: Häufig eingebundenes Modul ([Bearbeiten=Nur angemeldete, nicht neue Benutzer] (unbeschränkt) [Verschieben=Nur Administratoren] (unbeschränkt))

← Nächstältere Version	Version vom 30. Oktober 2014, 22:26 Uhr
(kein Unterschied)

PerfektesChaos: updates

2014-10-19T15:30:34Z

updates

← Nächstältere Version		Version vom 19. Oktober 2014, 17:30 Uhr
Zeile 1:		Zeile 1:
	--[=[ 2014-10-03		--[=[ 2014-10-19
	UnitTests/invoke		UnitTests/invoke
	Debug any Module from which this is required as a submodule.		Debug any Module from which this is required as a submodule.
Zeile 11:		Zeile 11:
	return string.format( "<span class=\"error\">%s</span>", a )		return string.format( "<span class=\"error\">%s</span>", a )
	end -- fault()		end -- fault()



			local function fade( frame, apply, assign, allow )
			-- Escape wikisyntax into one line
			-- Parameter:
			-- apply -- string, to be escaped
			-- assign -- apply CSS style, if string
			-- allow -- permit regular text, if true; else code
			-- Returns:
			-- string, without line break
			local r = apply:gsub( string.char( 10 ),
		⚫	mw.ustring.char( 182 ) )
			if allow then
			if assign then
			r = string.format( "<span style='%s'>%s</span>", assign, r )
			end
			else
		⚫	local params = { r,
		⚫	lang="text",
		⚫	enclose="none" }
			if assign then
		⚫	params.style = assign
			end
		⚫	r = frame:callParserFunction( "#tag:syntaxhighlight", params )
			end
			return r
			end -- fade()


Zeile 23:		Zeile 51:
	-- Returns:		-- Returns:
	-- string		-- string
	local set, story		local r, set, story
	for k, v in pairs( args ) do		for k, v in pairs( args ) do
	if type( k) == "number" then		if type( k ) == "number" then
	set = string.format( "%d", k )		set = string.format( "%d", k )
	else		else
Zeile 42:		Zeile 70:
	story = ""		story = ""
	end		end
	~~local~~ r = "* ''" .. action .. "''<br />" ..		r = "* ''" .. action .. "''<br />"
	~~frame:callParserFunction~~( "~~#tag:syntaxhighlight~~",		.. fade( frame, story ) .. "<br />"
⚫	~~{ story,~~
⚫	lang="text",
⚫	enclose="none" } )
⚫	.. ~~"<br~~ ~~/>"~~
	if accept and accept ~= "" then		if accept and accept ~= "" then
	r = r .. ~~frame:callParserFunction~~( ~~"#tag:syntaxhighlight"~~,		r = r .. fade( frame, accept )
	{ accept,
	lang="text",
	enclose="none" } )
	end		end
	if not accept and accept ~= "" then		if not accept and accept ~= "" then
⚫	~~local s~~ = frame:callParserFunction( "#tag:syntaxhighlight",
	{ approve,
	lang="text",
	enclose="none",
	style="color: #8B008B" } )
	r = string.format( "%s<br /><code>\|_r_=</code>%s",		r = string.format( "%s<br /><code>\|_r_=</code>%s",
	r, s )		r, fade( frame, approve, "color:#8B008B" ) )
	elseif not approve and accept and accept ~= "" then		elseif not approve and accept and accept ~= "" then
	r = r .. "<br />" .. fault( "''no result''" )		r = r .. "<br />" .. fault( "''no result''" )
	elseif accept and approve and accept ~= approve then		elseif accept and approve and accept ~= approve then
⚫	local i, ~~sub~~
	local j = -1		local j = -1
	local m = mw.ustring.len( accept )		local m = mw.ustring.len( accept )
	local n = mw.ustring.len( approve )		local n = mw.ustring.len( approve )
			local i, sub
	r = r .. "<br />»"		r = r .. "<br />»"
	for i = 1, m do		for i = 1, m do
Zeile 79:		Zeile 95:
	if j > 0 then		if j > 0 then
	sub = mw.ustring.sub( accept, 1, j )		sub = mw.ustring.sub( accept, 1, j )
	r = r .. ~~frame:callParserFunction~~( ~~"#tag:syntaxhighlight"~~,		r = r .. fade( frame, sub )
	{ sub,
	lang="text",
	enclose="none" } )
	if n > j then		if n > j then
	r = r .. "¶"		r = r .. "¶"
Zeile 88:		Zeile 101:
	end		end
	if n > j then		if n > j then
			local style = "color: #FF0000; font-weight: bold;"
	sub = mw.ustring.sub( approve, j + 1 )		sub = mw.ustring.sub( approve, j + 1 )
	r = r .~~. frame:callParserFunction~~( "~~#tag:syntaxhighlight~~",		r = string.format( "%s%s",
	~~{ sub,~~		r, fade( frame, sub, style ) )
	lang="text",
	enclose="none",
	style="color: red" } )
	end		end
	r = r .. "«"		r = r .. "«"
Zeile 118:		Zeile 129:
	local params = { }		local params = { }
	for k, v in pairs( frame.args ) do		for k, v in pairs( frame.args ) do
	if type( k ) == "string"		if type( k ) == "string"
	and k:match( "^_%l_$" ) then		and k:match( "^_%l_$" ) then
	k = false		k = false
Zeile 126:		Zeile 137:
	end		end
	end -- for k, v		end -- for k, v
	frame.args = params		frame.args = params
	lucky, r = pcall( funny, frame )		lucky, r = pcall( funny, frame )
	if lucky then		if lucky then

PerfektesChaos: Setup

2014-10-04T14:06:09Z

Setup

Neue Seite

--[=[ 2014-10-03
UnitTests/invoke
Debug any Module from which this is required as a submodule.
Compare result after invoke and expectation.
]=]

local function fault( a )
-- Format error by class=error
return string.format( "%s", a )
end -- fault()

local function fidelity( frame, action, args, accept, approve )
-- Show result; append string wikisyntax if differing
-- Parameter:
-- action -- string, function
-- args -- table, with parameters
-- accept -- string, with expectation, or nil
-- approve -- string, with result
-- Returns:
-- string
local set, story
for k, v in pairs( args ) do
if type( k) == "number" then
set = string.format( "%d", k )
else
set = k
end
if story then
story = story .. "|"
else
story = ""
end
story = string.format( "%s%s=%s", story, set, v )
end -- for k, v
if story then
story = story .. "}}"
else
story = ""
end
local r = "* ''" .. action .. "'' " ..
frame:callParserFunction( "#tag:syntaxhighlight",
{ story,
lang="text",
enclose="none" } )
.. " "
if accept and accept ~= "" then
r = r .. frame:callParserFunction( "#tag:syntaxhighlight",
{ accept,
lang="text",
enclose="none" } )
end
if not accept and accept ~= "" then
local s = frame:callParserFunction( "#tag:syntaxhighlight",
{ approve,
lang="text",
enclose="none",
style="color: #8B008B" } )
r = string.format( "%s <code>|_r_=</code>%s",
r, s )
elseif not approve and accept and accept ~= "" then
r = r .. " " .. fault( "''no result''" )
elseif accept and approve and accept ~= approve then
local i, sub
local j = -1
local m = mw.ustring.len( accept )
local n = mw.ustring.len( approve )
r = r .. " »"
for i = 1, m do
if mw.ustring.codepoint( accept, i, i ) ~=
mw.ustring.codepoint( approve, i, i ) then
j = i - 1
break -- for i
end
end -- for i
if j > 0 then
sub = mw.ustring.sub( accept, 1, j )
r = r .. frame:callParserFunction( "#tag:syntaxhighlight",
{ sub,
lang="text",
enclose="none" } )
if n > j then
r = r .. "¶"
end
end
if n > j then
sub = mw.ustring.sub( approve, j + 1 )
r = r .. frame:callParserFunction( "#tag:syntaxhighlight",
{ sub,
lang="text",
enclose="none",
style="color: red" } )
end
r = r .. "«"
end
return r
end -- fidelity()

-- Export
local p = { }

function p.f( frame )
local self = frame:getTitle()
local subject = self:match( "^(.+)/[^/]+$" )
local lucky, modt, r
lucky, modt = pcall( require, subject )
if type( modt ) == "table" then
local fun = frame.args[ "_f_" ]
if fun then
local funny = modt[ fun ]
if funny then
local should = frame.args[ "_r_" ]
local params = { }
for k, v in pairs( frame.args ) do
if type( k ) == "string"
and k:match( "^_%l_$" ) then
k = false
end
if k then
params[ k ] = v
end
end -- for k, v
frame.args = params
lucky, r = pcall( funny, frame )
if lucky then
r = fidelity( frame, fun, params, should, r )
else
r = fault( self .. " " .. r )
end
else
r = fault( subject ..
" * function " .. fun .. " unknown" )
end
else
r = fault( self .. " * no fun" )
end
else
r = fault( self .. " " .. modt )
end
return r
end -- p.f

return p