Modul:DateTime/test
| Vorlagenprogrammierung | Diskussionen | Lua | Test | Unterseiten | |||
| Modul | Deutsch | English
|
Modul: | Dokumentation | |||
Diese Seite enthält Code in der Programmiersprache Lua. Einbindungszahl Cirrus
--[=[ 2020-07-26
Debug Module:DateTime
]=]
-- local globals
local DateTime = require( "Module:DateTime" )
local Tests = { }
local Params = { "lang",
"bc",
"year",
"month",
"month2",
"week",
"dom",
"dom2",
"hour",
"hour2",
"min",
"sec",
"msec",
"mysec",
"zone" }
DateTime = DateTime.DateTime()
local function fault( a )
-- Formatiere Fehler mit class=error
return string.format( "<span class=\"error\">%s</span>", a )
end -- fault()
local function flat( adapt, around, assign )
-- Format wikitext string like syntaxhighlight
-- Parameter:
-- adapt -- string, with coded text
-- around -- embed like in <code> rather than span
-- assign -- table, with CSS style, or nil
-- Returns:
-- <span> string
local e = mw.html.create( "span" )
local css = { ["font-family"] = "monospace" }
if around then
e:addClass( "mw-code" )
css["white-space"] = "nowrap"
end
e:wikitext( mw.text.nowiki( adapt ) )
if assign then
for k, v in pairs( assign ) do
css[ k ] = v
end -- for k, v
end
e:css( css )
return tostring( e )
end -- flat()
Tests.fetcher = function ( args )
-- Evaluate constructor function
-- Parameter:
-- args -- template parameters
-- 2 -- string, to be interpreted, or empty
-- 4 -- string, with relative interval, or empty
-- *** -- expected field values, k=v
-- Returns:
-- string
local r
local s = ( args[ 2 ] or "" )
local o = DateTime( s, false, args[ 4 ] )
if s == "" then
r = "\n==== fetcher() ====\n"
else
r = string.format( "\n==== %s ====\n", s )
end
if o then
local n = table.maxn( Params )
local score, single, suppose
s = mw.text.trim( s )
if s == "" then
s = "''empty''"
end
r = r ..
"{| class='wikitable'\n" ..
"|-\n" ..
"! item !! expect !! got !! diff\n"
for i = 1, n do
single = Params[ i ]
score = o[ single ]
suppose = args[ single ]
if score ~= nil or suppose ~= nil then
r = string.format( "%s\n|-\n| %s || ", r, single )
if suppose then
r = string.format( "%s<code>%s</code>", r, suppose )
end
r = r .. " || "
if score ~= nil then
score = tostring( score )
r = string.format( "%s<code>%s</code>",
r, score )
end
if score ~= suppose then
r = string.format( "%s || %s",
r, fault( "!!!!!!!!!!" ) )
end
end
end -- for i
r = r .. "\n|}\n"
elseif args.failed then
r = r .. "'''failed'''"
else
r = r .. "<span class=\"error\">FAILED</span>"
end
return r
end -- Tests.fetcher()
Tests.field = function ( args )
-- Evaluate template function
-- Parameter:
-- args -- template parameters
-- template -- which template
-- 1 -- string, with first template parameter
-- 2 -- string, with second template parameter
-- ... -- strings with more template parameters
-- r -- expected result (string)
-- Returns:
-- string with table row
local r = "\n|-\n| "
local l, d = pcall( require, "Module:DateTime/sort" )
local source = args.template
if l and source then
local sort, v
local suppose = args.r or ""
source = mw.text.trim( source )
r = string.format( "%s<code>{{%s",
r, source )
for i = 1, 9 do
v = args[ i ]
if v then
r = string.format( "%s|%s",
r, v )
end
end -- for i
for k, v in pairs( args ) do
if type( k ) == "string" and
k ~= "f" and k ~= "r" and k ~= "template" then
r = string.format( "%s|%s=%s",
r, k, v )
end
end -- for k, v
r = r .. "}}</code> || "
r = r:gsub( "{{", "{{" )
:gsub( "}}", "}}" )
sort = d.test( source, args )
r = string.format( "%s%s ||", r, sort )
if sort == suppose then
r = string.format( "%s<code>%s</code>", r, suppose )
else
r = string.format( "%s%s !!!!!!!!!! %s",
r,
flat( suppose, true ),
fault( flat( sort, true ) ) )
end
end
return r
end -- Tests.field()
Tests.flower = function ( args )
-- Evaluate comparison function
-- Parameter:
-- args -- template parameters
-- 2 -- string, with comparison function name
-- 3 -- string, with first timestamp, or empty
-- 4 -- string, with second timestamp, or empty
-- r -- expected result (number)
local r
local select = args[ 2 ]
if select then
local suppose = args.r or ""
local o = DateTime( args[ 3 ] )
local slip = o:flow( args[ 4 ], select ) and "1" or ""
r = string.format( "* %s ''%s'' %s   »<code>%s</code>«",
args[ 3 ] or "",
select,
args[ 4 ] or "",
slip )
if slip ~= suppose then
r = string.format( "%s %s »<code>%s</code>«",
r, fault( "~=" ), suppose )
end
else
r = fault( "No comparison function name" )
end
return r
end -- Tests.flower()
Tests.follower = function ( args )
-- Evaluate sort function
-- Parameter:
-- args -- template parameters
-- 2 -- string, to be interpreted
-- 3 -- string, with heading cell, or empty
-- r -- expected result (number)
-- Returns:
-- string with table row
local r = "|-\n| "
local l, d = pcall( require, "Module:DateTime/sort" )
if l then
local source = args[ 2 ] or ""
local sort = d.fruit( source, false )
local suppose = args.r or ""
if args[ 3 ] then
r = string.format( "%s%s || ", r, args[ 3 ] )
end
r = string.format( "%s%s || <code>%s</code> || ",
r, source, sort )
if sort == suppose then
r = string.format( "%s<code>%s</code>", r, suppose )
else
r = string.format( "%s%s !!!!!!!!!!",
r, fault( suppose ) )
end
end
return r
end -- Tests.follower()
Tests.formatter = function ( args )
-- Evaluate formatting function
-- Parameter:
-- args -- template parameters
-- 2 -- string, to be interpreted, or empty
-- 3 -- string, with format, or empty
-- 4 -- string, with language, or empty
-- r -- expected result
-- Returns:
-- string
local r
local source = ( args[ 2 ] or "" )
local shower = ( args[ 3 ] or "" )
local slang = args[ 4 ]
local o = DateTime( source )
local p
if slang then
p = { lang = slang }
end
if o then
r = o:format( shower, p )
end
if r then
local syntax
r = tostring( r )
syntax = flat( r, false )
if r ~= args.r then
local should = ( args.r or "" )
r = string.format( "%s<br />%s",
fault( r ), should )
end
r = string.format( "%s<br />%s",
r, syntax )
else
r = fault( "???????" )
end
if slang then
slang = string.format( "<code>%s</code>", slang )
else
slang = ""
end
r = string.format( "\n==== \"%s\" %s ====\n%s<br />%s",
shower, slang, source, r )
return r
end -- Tests.formatter()
Tests.futurist = function ( args )
-- Evaluate formatting function with shift
-- Parameter:
-- args -- template parameters
-- 2 -- string, to be interpreted, or empty
-- 3 -- string, with shift
-- r -- expected result
-- Returns:
-- string
local r
local source = ( args[ 2 ] or "" )
local shift = ( args[ 3 ] or "" )
local o = DateTime( source )
if o then
r = o:future( shift ):tostring()
if r ~= args.r then
local should = ( args.r or "" )
r = string.format( "\"%s\" ./. \"%s\"",
fault( r ), should )
end
else
r = fault( "??????" )
end
r = string.format( "\n; \"%s\"\n: \"%s\" ⇒ %s",
shift, source, r )
return r
end -- Tests.futurist()
-- Export
local p = { }
function p.f( frame )
local r
local params = frame:getParent().args
local fun = params.f or params[ 1 ]
if fun then
local l
l, r = pcall( Tests[ fun ], params )
end
return r
end -- p.f
return p
Content Disclaimer
Informasi ini disarikan dari Wikipedia dan disajikan kembali untuk tujuan edukasi. Konten tersedia di bawah lisensi CC BY-SA 3.0. Kami tidak bertanggung jawab atas ketidakakuratan data yang bersumber dari kontribusi publik tersebut.
- The information displayed on this website is sourced in part or in whole from Wikipedia and has been adapted for the purpose of restating it. We strive to provide accurate and relevant information, however:
- There is no guarantee of absolute accuracy. Wikipedia is an open, collaborative project that can be edited by anyone, so information is subject to change.
- It is not intended to constitute professional advice. The content displayed is for informational and educational purposes only. For important decisions (e.g., medical, legal, or financial), please consult a professional.
- Content copyright. Wikipedia is licensed under the Creative Commons Attribution-ShareAlike License (CC BY-SA). This means that content may be reused with appropriate attribution and shared under a similar license.
- Responsible use. Any risk arising from the use of information from this website is entirely the responsibility of the user.