use Test::Most; use MySelenium; my $s = MySelenium->new; $s->note('Are there enough cat pictures?'); $s->open_ok("/index.tt"); $s->type_ok(searchInput => "cat pictures"); $s->click_ok("searchButton"); $s->wait_for_page_to_load_ok; $s->is_text_present_ok('2 bajillion results'); $s->note('Check results as a logged in user'); $s->login_ok('bob'); # not in the Selenium API $s->is_text_present_ok('2 bajillion results'); done_testing;