package Ġio . dk oz ak . e ob aly . parser . html unit Ċ Ċ import Ġcom . g argo yle software . html unit . Web Client Ċ import Ġcom . g argo yle software . html unit . html . Dom Node Ċ import Ġcom . g argo yle software . html unit . html . Html Page Ċ import Ġorg . junit . Test Ċ Ċ class ĠHtml UnitTest Ġ{ ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` html Ġunit `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġweb Client Ġ= ĠWeb Client () ĊĠĠĠĠĠĠĠ Ġweb Client . options . is Throw Exception On Script Error Ġ= Ġfalse ĊĠĠĠĠĠĠĠ Ġweb Client . use Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġpage : ĠHtml Page Ġ= Ġweb Client . getPage (" https :// www . e ob aly . cz / produk ty / k art on ove - kr ab ice . htm ? page = 2 ") ĊĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġsecond Ġ= Ġpage . querySelectorAll (". product - box ") ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ. map Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġa Ġ= Ġit . querySelector < Dom Node >(" a ") ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġa . attributes . getName d Item (" href "). node Value ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ. toList () ĊĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġlinks Ġ= Ġpage . querySelectorAll (" a . pager - number ") ĊĠĠĠĠĠĠĠĠĠĠĠ Ġprintln ( links . last (). textContent ) ĊĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġpage 2 : ĠHtml Page Ġ= Ġweb Client . getPage (" https :// www . e ob aly . cz / produk ty / k art on ove - kr ab ice . htm ? page = 2 4 ") ĊĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġthird Ġ= Ġpage 2 . querySelectorAll (". product - box ") ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ. toList () ĊĊĊĠĠĠĠĠĠĠĠĠĠĠ Ġprintln (" done ") ĊĠĠĠĠĠĠĠĠĠĠĠ Ġprint ( second ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġprint ( third ) ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} ĊĊ Ċ }