attr_is example

gistfile1.txt

sub _attr {
    return 'No such element' unless my $e = shift->tx->res->dom->at(shift);
    return $e->attr(shift);
}

sub attr_is {
  my ($self, $selector, $attr, $value, $desc) = @_;
  $desc ||= encode 'UTF-8', qq{exact match for attr "$attr" on selector "$selector"};
  return $self->_test('is', $self->_attr($selector, $attr), $value, $desc);
}