Add dom_not_found helper to Test::PAUSE::Web

andk · Apr 27, 2024 · 1b968b2 · 1b968b2
1 parent 4ed66e7
commit 1b968b2
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/t/pause_2017/lib/Test/PAUSE/Web.pm b/t/pause_2017/lib/Test/PAUSE/Web.pm
@@ -300,6 +300,17 @@ sub text_unlike {
   $self;
 }
 
+sub dom_not_found {
+  my ($self, $selector) = @_;
+  my $at = $self->dom->at($selector);
+  if ($at) {
+    fail "'$selector' is found";
+  } else {
+    pass "'$selector' is not found";
+  }
+  $self;
+}
+
 sub title_is_ok {
   my ($self, $url) = @_;
   return if $self->dom->at('p.error_message'); # ignore if error