Add tests for Test::Selenium::Remote::WebElement

t/Test-Selenium-Remote-WebElement.t

@@ -0,0 +1,200 @@
+
+use Test::Tester;
+use Test::More;
+use Test::MockObject::Extends;
+
+use Test::Selenium::Remote::WebElement;
+
+# Start off by faking a bunch of Selenium::Remote::WebElement calls succeeding
+my $successful_element = Test::Selenium::Remote::WebElement->new;
+$successful_element =  Test::MockObject::Extends->new( $successful_element );
+
+$successful_element->set_true(qw/
+        clear
+        click
+        submit
+        is_selected
+        is_enabled
+        is_displayed
+        send_keys
+        /);
+
+$successful_element->set_list('get_tag_name','iframe');
+$successful_element->set_list('get_value','my_value');
+
+# Given input 'foo' to 'get_attribute', return 'my_foo';
+$successful_element->mock('get_attribute',sub { 'my_'.$_[1] } );
+
+check_test(
+  sub { $successful_element->clear_ok },
+  {
+    ok => 1,
+    name => "clear... no return value",
+    diag => "",
+  }
+);
+
+check_test(
+  sub { $successful_element->clear_ok('test_name') },
+  {
+    ok => 1,
+    name => "test_name... no return value",
+    diag => "",
+  }
+);
+
+check_test(
+  sub { $successful_element->click_ok },
+  {
+    ok => 1,
+    name => "click... no return value",
+    diag => "",
+  }
+);
+
+check_test(
+  sub { $successful_element->submit_ok },
+  {
+    ok => 1,
+    name => "submit... no return value",
+    diag => "",
+  }
+);
+
+check_test(
+  sub { $successful_element->is_selected_ok },
+  {
+    ok => 1,
+    name => "is_selected",
+    diag => "",
+  }
+);
+
+check_test(
+  sub { $successful_element->is_enabled_ok },
+  {
+    ok => 1,
+    name => "is_enabled",
+    diag => "",
+  }
+);
+
+check_test(
+  sub { $successful_element->is_displayed_ok },
+  {
+    ok => 1,
+    name => "is_displayed",
+    diag => "",
+  }
+);
+
+check_test(
+  sub { $successful_element->send_keys_ok('Hello World', 'I sent keys') },
+  {
+    ok => 1,
+    name => "I sent keys... no return value",
+    diag => "",
+  }
+);
+
+# tag_name_*
+{
+    check_test(
+      sub { $successful_element->tag_name_is('iframe','Got an iframe tag?') },
+      {
+        ok => 1,
+        name => "Got an iframe tag?",
+        diag => "",
+      }
+    );
+
+    check_test(
+      sub { $successful_element->tag_name_isnt('BOOM','Not BOOM.') },
+      {
+        ok => 1,
+        name => "Not BOOM.",
+        diag => "",
+      }
+    );
+
+    check_test(
+      sub { $successful_element->tag_name_like(qr/frame/,'Matches iframe tag?') },
+      {
+        ok => 1,
+        name => "Matches iframe tag?",
+        diag => "",
+      }
+    );
+
+    check_test(
+      sub { $successful_element->tag_name_unlike(qr/BOOM/,"tag_name doesn't match BOOM") },
+      {
+        ok => 1,
+        name => "tag_name doesn't match BOOM",
+        diag => "",
+      }
+    );
+}
+# value_*
+{
+    check_test(
+      sub { $successful_element->value_is('my_value','Got an my_value value?') },
+      {
+        ok => 1,
+        name => "Got an my_value value?",
+        diag => "",
+      }
+    );
+
+    check_test(
+      sub { $successful_element->value_isnt('BOOM','Not BOOM.') },
+      {
+        ok => 1,
+        name => "Not BOOM.",
+        diag => "",
+      }
+    );
+
+    check_test(
+      sub { $successful_element->value_like(qr/val/,'Matches my_value value?') },
+      {
+        ok => 1,
+        name => "Matches my_value value?",
+        diag => "",
+      }
+    );
+
+    check_test(
+      sub { $successful_element->value_unlike(qr/BOOM/,"value doesn't match BOOM") },
+      {
+        ok => 1,
+        name => "value doesn't match BOOM",
+        diag => "",
+      }
+    );
+}
+
+#  attribute_is($attr_name,$match_str,$test_name);
+#  attribute_isnt($attr_name,$match_str,$test_name);
+#  attribute_like($attr_name,$match_re,$test_name);
+#  attribute_unlike($attr_name,$match_re,$test_name);
+{
+    local $TODO = 'not implemented yet.';
+    check_test(
+      sub { $successful_element->attribute_is('foo', 'my_foo', 'attribute_is matched') },
+      {
+        ok => 1,
+        name => "attribute_is matched",
+        diag => "",
+      }
+    );
+
+}
+
+#  css_attribute_is($attr_name,$match_str,$test_name);
+#  css_attribute_isnt($attr_name,$match_str,$test_name);
+#  css_attribute_like($attr_name,$match_re,$test_name);
+#  css_attribute_unlike($attr_name,$match_re,$test_name);
+
+
+done_testing();