local mHatnoteList = require('Module:Hatnote list/sandbox') -- the module to be tested
local ScribuntoUnit = require('Module:ScribuntoUnit')
local suite = ScribuntoUnit:new()

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

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

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

function suite: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

function suite: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

return suite