package Ġat . y awk . jav ab rowser . server Ċ Ċ import Ġorg . testng . Assert Ċ import Ġorg . testng . annotations . DataProvider Ċ import Ġorg . testng . annotations . Test Ċ import Ġjava . io . String Writer Ċ Ċ /** Ċ Ġ* Ġ@ author Ġyaw kat Ċ Ġ*/ Ċ class ĠE sc aper Test Ġ{ ĊĠĠĠ Ġ@ DataProvider ĊĠĠĠ Ġfun Ġtest Strings (): ĠArray < Array < Any >> Ġ= ĠarrayOf ( ĊĠĠĠĠĠĠĠĠĠĠĠ ĠarrayOf < Any >(" abc < def > ghi & j kl 'm no \" p qr ", Ġ" abc & lt ; def & gt ; ghi & amp ; j kl &# 3 9 ; m no & quot ; p qr ") ĊĠĠĠ Ġ) ĊĊĠĠĠ Ġ@ Test ( dataProvider Ġ= Ġ" test Strings ") ĊĠĠĠ Ġfun Ġtest ( unes caped : ĠString , Ġescaped : ĠString ) Ġ{ ĊĠĠĠĠĠĠĠ ĠAssert . assertEquals ( Esc aper . HTML . escape ( unes caped ), Ġescaped ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ( dataProvider Ġ= Ġ" test Strings ") ĊĠĠĠ Ġfun Ġtest Writer ( unes caped : ĠString , Ġescaped : ĠString ) Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġwriter Ġ= ĠString Writer () ĊĠĠĠĠĠĠĠ ĠE sc aper . HTML . escape ( writer , Ġun escaped ) ĊĠĠĠĠĠĠĠ ĠAssert . assertEquals ( writer . toString (), Ġescaped ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ( dataProvider Ġ= Ġ" test Strings ") ĊĠĠĠ Ġfun Ġtest Range ( unes caped : ĠString , Ġescaped : ĠString ) Ġ{ ĊĠĠĠĠĠĠĠ ĠAssert . assertEquals ( Esc aper . HTML . escape (" fo ' <' o " Ġ+ Ġun escaped Ġ+ Ġ" bar ", Ġstart Ġ= Ġ 6 , Ġend Ġ= Ġun escaped . length Ġ+ Ġ 6 ), ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġescaped ) ĊĠĠĠ Ġ} Ċ }