น เป นมอด ลท ถ กป องก นถาวรเน องจากม ความเส ยงส ง กร ณาอภ ปรายการเปล ยนแปลงใด ๆ ทางหน าค ย ค ณอาจส งคำขอแก ไข ไปย งผ ด แ

niepnmxdulthithukpxngknthawrenuxngcakmikhwamesiyngsung krunaxphipraykarepliynaeplngid thanghnakhuy khunxacsngkhakhxaekikh ipyngphuduaelrabbephuxihaekikhidhakepnkaraekikhthiimmikarkhdkhanhruxmikhwamehnphxngsnbsnun khunyngsamarthkhxihelikpxngknhnaidkhumuxkarichnganmxdul du aek prawti langaekhch Module 1 invoke 1 function UnitTests provides a unit test facility that can be used by other scripts using require See for details Following is a sample from Module Bananas tests Unit tests for Module Bananas Click talk page to run tests local p require Module UnitTests function p test hello self preprocess equals invoke Bananas hello Hello world end return p The talk page Module talk Bananas tests executes it with invoke Bananas tests run tests Test methods like test hello above must begin with test Methods run tests differs at Runs all tests If differs at 1 is specified a column will be added showing the first character position where the expected and actual results differ Normally used on talk page of unit tests invoke Bananas tests run tests preprocess equals text expected Gives a piece of wikitext to preprocess and an expected resulting value Scripts and templates can be invoked in the same manner they would be in a page self preprocess equals invoke Bananas hello Hello world preprocess equals many prefix suffix cases Performs a series of preprocess equals calls on a set of given pairs Automatically adds the given prefix and suffix to each text self preprocess equals many invoke BananasArgs add 2 3 5 2 2 0 preprocess equals preprocess text expected Gives two pieces of wikitext to preprocess and determines if they produce the same value Useful for comparing scripts to existing templates self preprocess equals preprocess invoke Bananas hello Hello preprocess equals preprocess many prefix suffix cases Performs a series of preprocess equals preprocess calls on a set of given pairs The prefix suffix supplied for both arguments is added automatically If in any case the second part is not specified the first part will be used self preprocess equals many invoke Foo spellnum spellnum 2 equivalent to 2 2 2 2 0 equals name actual expected Gives a computed value and the expected value and checks if they are equal Useful for testing modules that are designed to be used by other modules rather than using invoke self equals Simple addition 2 2 4 khumuxkarichnganthipraktdanbnnidungmacak mxdul UnitTests doc aek prawti phuekhiynsamarththakarthdlxngidthikrabathray aek dukhwamaetktang aelachudthdsxb srang khxngmxdulni hnayxykhxngmxdulni UnitTester provides unit testing for other Lua scripts For details see Wikipedia Lua Unit testing For user documentation see talk page local UnitTester local frame tick cross local result table header class wikitable n s n Text Expected Actual local result table live sandbox header class wikitable n s n Test Live Sandbox Expected local result table n 0 local result table mt insert function self local n self n for i 1 select do local val select i if val nil then n n 1 self n val end end self n n end insert format function self self insert string format end concat table concat result table mt index result table mt setmetatable result table result table mt local num failures 0 function first difference s1 s2 if s1 s2 then return end local max math min s1 s2 for i 1 max do if s1 sub i i s2 sub i i then return i end end return max 1 end local function return varargs return end function UnitTester preprocess equals text expected options local actual frame preprocess text if actual expected then result table insert tick else result table insert cross num failures num failures 1 end local maybe nowiki options and options nowiki and mw text nowiki or return varargs local differs at self differs at and n first difference expected actual or result table insert n mw text nowiki text n maybe nowiki expected n maybe nowiki actual differs at n n end function UnitTester preprocess equals many prefix suffix cases options for case in ipairs cases do self preprocess equals prefix case 1 suffix case 2 options end end function UnitTester preprocess equals preprocess text1 text2 options local actual frame preprocess text1 lt actual gt and lt expected gt will be rendered in lt result table gt local expected frame preprocess text2 local actual for comp actual copy of lt actual gt that may be modified to have same templatestyles stripmarker as lt expected gt for comparison local highlight boolean true to highlight mismatched renderings in Actual column of result if options and true options templatestyles then when module rendering has templatestyles strip markers use ID from expected to prevent false test fail local pattern 127 127 UNIQ templatestyles x QINU 127 127 templatestyle stripmarker pattern local expected stripmarker id expected match pattern get templatestyles strip marker id from expected the reference ignore first capture in pattern if expected stripmarker id then actual for comp actual for comp gsub pattern 1 expected stripmarker id 3 replace actual id with expected id ignore second capture in pattern end end option to ignore any strip marker when comparing actual to expected if options and true options stripmarker then local pattern 127 127 UNIQ l x QINU 127 127 local expected stripmarker id expected match pattern if expected stripmarker id then actual for comp actual for comp gsub pattern 1 expected stripmarker id 3 expected expected gsub pattern 1 expected stripmarker id 3 end end if actual for comp expected then are the renderings the same result table insert tick else result table insert cross nope mark as failure num failures num failures 1 tally highlight true and highlight the results table Actual column cell so the failed test is more obvious end local maybe nowiki options and options nowiki and mw text nowiki or return varargs local differs at self differs at and n first difference expected actual or result table insert n mw text nowiki text1 the tested template nowikied n maybe nowiki expected the expected version highlight and n style background fc0 or n highlighted if test fail not else maybe nowiki actual differs at the actual rendering using its own template styles if that is an option n n end function UnitTester preprocess equals compare live sandbox expected options local live text frame preprocess live local sandbox text frame preprocess sandbox local highlight live false local highlight sandbox false if live text expected and sandbox text expected then result table insert tick else result table insert cross num failures num failures 1 if live text expected then highlight live true end if sandbox text expected then highlight sandbox true end end local maybe nowiki options and options nowiki and mw text nowiki or return varargs local differs at self differs at and n first difference expected live text or first difference expected sandbox text or result table insert n mw text nowiki live highlight live and n style background fc0 or n maybe nowiki live text highlight sandbox and n style background fc0 or n maybe nowiki sandbox text n maybe nowiki expected differs at n n end function UnitTester preprocess equals preprocess many prefix1 suffix1 prefix2 suffix2 cases options for case in ipairs cases do self preprocess equals preprocess prefix1 case 1 suffix1 prefix2 case 2 and case 2 or case 1 suffix2 options end end function UnitTester preprocess equals sandbox many module function name cases options for case in ipairs cases do local live module function name case 1 local sandbox module sandbox function name case 1 self preprocess equals compare live sandbox case 2 options end end function UnitTester equals name actual expected options if actual expected then result table insert tick else result table insert cross num failures num failures 1 end local maybe nowiki options and options nowiki and mw text nowiki or return varargs local differs at self differs at and n first difference expected actual or local display options and options display or function x return x end result table insert n name n maybe nowiki tostring display expected n maybe nowiki tostring display actual differs at n n end local function deep compare t1 t2 ignore mt local ty1 type t1 local ty2 type t2 if ty1 ty2 then return false end if ty1 table and ty2 table then return t1 t2 end local mt getmetatable t1 if not ignore mt and mt and mt eq then return t1 t2 end for k1 v1 in pairs t1 do local v2 t2 k1 if v2 nil or not deep compare v1 v2 then return false end end for k2 v2 in pairs t2 do local v1 t1 k2 if v1 nil or not deep compare v1 v2 then return false end end return true end function val to str v if type v string then v mw ustring gsub v n n if mw ustring match mw ustring gsub v then return v end return mw ustring gsub v else return type v table and table to str v or tostring v end end function table key to str k if type k string and mw ustring match k a a d then return k else return val to str k end end function table to str tbl local result done for k v in ipairs tbl do table insert result val to str v done k true end for k v in pairs tbl do if not done k then table insert result table key to str k val to str v end end return table concat result end function UnitTester equals deep name actual expected options if deep compare actual expected then result table insert tick else result table insert cross num failures num failures 1 end local maybe nowiki options and options nowiki and mw text nowiki or return varargs local actual str val to str actual local expected str val to str expected local differs at self differs at and n first difference expected str actual str or result table insert n name n maybe nowiki expected str n maybe nowiki actual str differs at n n end function UnitTester iterate examples func require libraryUtil checkType iterate 1 examples table if type func string then func self func elseif type func function then error bad argument 2 to iterate expected function or string got s format type func 2 end for i example in ipairs examples do if type example table then func self unpack example elseif type example string then self heading example else error bad example d expected table got s format i type example 2 end end end function UnitTester heading text result table insert format colspan u style text align left s n n self columns text end function UnitTester run frame arg frame frame arg self frame frame self differs at frame args differs at tick frame preprocess Tick cross frame preprocess Cross local table header result table header if frame args live sandbox then table header result table live sandbox header end self columns 4 if self differs at then table header table header Differs at self columns self columns 1 end Sort results into alphabetical order local self sorted for key in pairs self do if key find test then table insert self sorted key end end table sort self sorted Add results to the results table for value in ipairs self sorted do result table insert format table header n n value self value self result table insert n end return num failures 0 and lt b style color 008000 gt All tests passed lt b gt or lt b style color 800000 gt num failures tests failed lt b gt Category Failed Lua testcases using Module UnitTests n n frame preprocess result table concat end function UnitTester new local o setmetatable o self self index self return o end local p UnitTester new function p run tests frame return p run frame end return p