local p = require('Module:UnitTests')
function p:testMain()
-- empty
self:preprocess_equals('{{#invoke:Type in location|generateDesc}}',
'')
-- just type
self:preprocess_equals('{{#invoke:Type in location|generateDesc|Airport}}',
'Airport')
-- junk type
self:preprocess_equals('{{#invoke:Type in location|generateDesc|<b></b>}}',
'')
-- just location
self:preprocess_equals('{{#invoke:Type in location|generateDesc||London}}',
'')
-- type and location
self:preprocess_equals('{{#invoke:Type in location|generateDesc|Airport|London}}',
'Airport in London')
-- type and wlink location
self:preprocess_equals('{{#invoke:Type in location|generateDesc|Airport|[[Dayton, Ohio]]}}',
'Airport in Dayton, Ohio')
-- type and complex location
self:preprocess_equals('{{#invoke:Type in location|generateDesc|Radio station|[[Natchitoches, Louisiana]], United States}}',
'Radio station in Louisiana, United States')
-- type and complex location with piping
self:preprocess_equals('{{#invoke:Type in location|generateDesc|Radio station|[[Natchitoches, Louisiana|Natchitoches]], [[Louisiana]]}}',
'Radio station in Natchitoches, Louisiana')
-- type and very messy location
self:preprocess_equals('{{#invoke:Type in location|generateDesc|Radio station| Special place, Dayton,, Ohio, ABC123}}',
'Radio station in Dayton, Ohio')
-- type and location with flag
self:preprocess_equals('{{#invoke:Type in location|generateDesc|Shopping mall|[[Gateshead]], [[United Kingdom]] {{flagicon|United Kingdom}}}}',
'Shopping mall in Gateshead, United Kingdom')
-- type and location with postal code
self:preprocess_equals('{{#invoke:Type in location|generateDesc|[[Historic house museum]]|Oxford Road, [[Gomersal]], [[West Yorkshire]], England<br/>BD19 4JP}}',
'Historic house museum in West Yorkshire, England')
-- check pattern succeeds
self:preprocess_equals('{{#invoke:Type in location|generateDesc|[[Natural history museum]]|[[Philadelphia]]|check-patterns = [Mm]useum;[Hh]all;[Gg]allery;[Cc]enter}}',
'Natural history museum in Philadelphia')
-- check pattern fails
self:preprocess_equals('{{#invoke:Type in location|generateDesc|Historic house|Oxford Road, [[Gomersal]], [[West Yorkshire]], England<br/>BD19 4JP|check-patterns = [Mm]useum;[Hh]all;[Gg]allery;[Cc]enter}}',
'')
-- test lc matching
self:preprocess_equals('{{#invoke:Type in location|generateDesc|Power plant cooling/recreational [[Reservoir (water)|Reservoir]]|Central [[Austin, Texas|Austin]], [[Texas]],<br />[[United States]]|check-patterns=basin;bay;bight;channel;estuary;gulf;lagoon;lake;loch;moraine;ocean;reservoir;river;sea;sound;strait|invalidadd=body of water}}',
'Power plant cooling/recreational Reservoir in Texas, United States')
-- test invalidadd
self:preprocess_equals('{{#invoke:Type in location|generateDesc|[[Geothermal (geology)|geothermal]]|[[Wai-O-Tapu| Waiotapu]], [[North Island]]|check-patterns=basin;bay;bight;channel;estuary;gulf;lagoon;lake;loch;moraine;ocean;reservoir;river;sea;sound;strait|invalidadd=body of water}}',
'Geothermal body of water in Waiotapu, North Island')
-- ubl location
self:preprocess_equals('{{#invoke:Type in location|generateDesc|Bridge|{{ublist|[[Dandong]], [[Liaoning]], China|[[Sinŭiju]], [[North P\'yŏngan]], North Korea}}}}',
'Bridge')
end
function p:testSandbox()
-- empty
self:preprocess_equals('{{#invoke:Type in location/sandbox|generateDesc}}',
'')
-- just type
self:preprocess_equals('{{#invoke:Type in location/sandbox|generateDesc|Airport}}',
'Airport')
-- junk type
self:preprocess_equals('{{#invoke:Type in location/sandbox|generateDesc|<b></b>}}',
'')
-- just location
self:preprocess_equals('{{#invoke:Type in location/sandbox|generateDesc||London}}',
'')
-- type and location
self:preprocess_equals('{{#invoke:Type in location/sandbox|generateDesc|Airport|London}}',
'Airport in London')
-- type and wlink location
self:preprocess_equals('{{#invoke:Type in location/sandbox|generateDesc|Airport|[[Dayton, Ohio]]}}',
'Airport in Dayton, Ohio')
-- type and complex location
self:preprocess_equals('{{#invoke:Type in location/sandbox|generateDesc|Radio station|[[Natchitoches, Louisiana]], United States}}',
'Radio station in Louisiana, United States')
-- type and complex location with piping
self:preprocess_equals('{{#invoke:Type in location/sandbox|generateDesc|Radio station|[[Natchitoches, Louisiana|Natchitoches]], [[Louisiana]]}}',
'Radio station in Natchitoches, Louisiana')
-- type and very messy location
self:preprocess_equals('{{#invoke:Type in location/sandbox|generateDesc|Radio station| Special place, Dayton,, Ohio, ABC123}}',
'Radio station in Dayton, Ohio')
-- type and location with flag
self:preprocess_equals('{{#invoke:Type in location/sandbox|generateDesc|Shopping mall|[[Gateshead]], [[United Kingdom]] {{flagicon|United Kingdom}}}}',
'Shopping mall in Gateshead, United Kingdom')
-- type and location with postal code
self:preprocess_equals('{{#invoke:Type in location/sandbox|generateDesc|[[Historic house museum]]|Oxford Road, [[Gomersal]], [[West Yorkshire]], England<br/>BD19 4JP}}',
'Historic house museum in West Yorkshire, England')
-- check pattern succeeds
self:preprocess_equals('{{#invoke:Type in location/sandbox|generateDesc|[[Natural history museum]]|[[Philadelphia]]|check-patterns = [Mm]useum;[Hh]all;[Gg]allery;[Cc]enter}}',
'Natural history museum in Philadelphia')
-- check pattern fails
self:preprocess_equals('{{#invoke:Type in location/sandbox|generateDesc|Historic house|Oxford Road, [[Gomersal]], [[West Yorkshire]], England<br/>BD19 4JP|check-patterns = [Mm]useum;[Hh]all;[Gg]allery;[Cc]enter}}',
'')
-- test lc matching
self:preprocess_equals('{{#invoke:Type in location/sandbox|generateDesc|Power plant cooling/recreational [[Reservoir (water)|Reservoir]]|Central [[Austin, Texas|Austin]], [[Texas]],<br />[[United States]]|check-patterns=basin;bay;bight;channel;estuary;gulf;lagoon;lake;loch;moraine;ocean;reservoir;river;sea;sound;strait|invalidadd=body of water}}',
'Power plant cooling/recreational Reservoir in Texas, United States')
-- test invalidadd
self:preprocess_equals('{{#invoke:Type in location/sandbox|generateDesc|[[Geothermal (geology)|geothermal]]|[[Wai-O-Tapu| Waiotapu]], [[North Island]]|check-patterns=basin;bay;bight;channel;estuary;gulf;lagoon;lake;loch;moraine;ocean;reservoir;river;sea;sound;strait|invalidadd=body of water}}',
'Geothermal body of water in Waiotapu, North Island')
-- ubl location
self:preprocess_equals('{{#invoke:Type in location/sandbox|generateDesc|Bridge|{{ublist|[[Dandong]], [[Liaoning]], China|[[Sinŭiju]], [[North P\'yŏngan]], North Korea}}}}',
'Bridge')
end
return p
