Module:Hatnote list/testcases

 localmHatnoteList=require('Module:Hatnote list/sandbox')-- the module to be tested
 localScribuntoUnit=require('Module:ScribuntoUnit')
 localsuite=ScribuntoUnit:new()

 functionsuite:testAndList()
 self:assertEquals(
 "Foo, Bar, and Baz",
 mHatnoteList.andList({"Foo","Bar","Baz"})
 )
 end

 functionsuite:testOrList()
 self:assertEquals(
 "Foo, Bar, or Baz",
 mHatnoteList.orList({"Foo","Bar","Baz"})
 )
 end

 functionsuite:testForSee()
 self:assertEquals(
 "For Foo, see [[:Bar]]. For Baz, see [[:Qux]].",
 mHatnoteList._forSee({"Foo","Bar","Baz","Qux"})
 )
 end

 functionsuite:testPunctuationCollapse()
 self:assertEquals(
 "For periods, see [[:Foo.]] and [[:Bar.]] "..
 "For question marks, see [[:Baz?]] and [[:Qux?]] "..
 "For exclamation marks, see [[:Oof!]] and [[:Rab!]]",
 mHatnoteList._forSee({
 "periods","Foo.","and","Bar.",
 "question marks","Baz?","and","Qux?",
 "exclamation marks","Oof!","and","Rab!"
 })
 )
 end

 functionsuite:testPunctuationCollapseWithItalics()
 self:assertEquals(
 "For periods, see [[:Foo.|''Foo.'']] "..
 "For question marks, see [[:Bar?|''Bar?'']] "..
 "For exclamation marks, see [[:Baz!|''Baz!'']]",
 mHatnoteList._forSee({
 "periods","Foo.|''Foo.''",
 "question marks","Bar?|''Bar?''",
 "exclamation marks","Baz!|''Baz!''"
 })
 )
 end

 returnsuite