Migrated T::S::Webelement.t

t/Test-Selenium-Remote-WebElement.t

@@ -38,153 +38,18 @@ $successful_element->send_keys_ok('Hello World');
 $successful_element->tag_name_is( 'iframe', 'we got an iframe tag' );
 $successful_element->tag_name_isnt( 'BOOM', 'tag name is not boom' ); 
 $successful_element->tag_name_unlike( qr/BOOM/, "tag_name doesn't match BOOM" );
-            $successful_element->value_is( 'my_value', 'Got an my_value value?' );
-
-#     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 => "",
-#         }
-#     );
-# }
-
-# # text_*
-# {
-#     check_test(
-#         sub {
-#             $successful_element->text_is( "my_text\nis fantastic",
-#                 'Got an my_text value?' );
-#         },
-#         {   ok   => 1,
-#             name => "Got an my_text value?",
-#             diag => "",
-#         }
-#     );
-
-#     check_test(
-#         sub { $successful_element->text_isnt( 'BOOM', 'Not BOOM.' ) },
-#         {   ok   => 1,
-#             name => "Not BOOM.",
-#             diag => "",
-#         }
-#     );
-
-#     check_test(
-#         sub {
-#             $successful_element->text_like( qr/tex/,
-#                 'Matches my_text value?' );
-#         },
-#         {   ok   => 1,
-#             name => "Matches my_text value?",
-#             diag => "",
-#         }
-#     );
-
-#     check_test(
-#         sub {
-#             $successful_element->text_unlike( qr/BOOM/,
-#                 "text doesn't match BOOM" );
-#         },
-#         {   ok   => 1,
-#             name => "text doesn't match BOOM",
-#             diag => "",
-#         }
-#     );
-
-# }
-# { 
-#     check_test(
-#         sub {
-#             $successful_element->attribute_is( 'foo', 'my_foo',
-#                 'attribute_is matched' );
-#         },
-#         {   ok   => 1,
-#             name => "attribute_is matched",
-#             diag => "",
-#         }
-#     );
-
-#     check_test(
-#         sub {
-#             $successful_element->attribute_isnt( 'foo', 'not_foo',
-#                 'attribute_is not_foo' );
-#         },
-#         {   ok   => 1,
-#             name => "attribute_is not_foo",
-#             diag => "",
-#         }
-#     );
-
-#     check_test(
-#         sub {
-#             $successful_element->attribute_like( 'foo',qr/foo/,
-#                 'Matches my_attribute' );
-#         },
-#         {   ok   => 1,
-#             name => "Matches my_attribute",
-#             diag => "",
-#         }
-#     );
-
-#     check_test(
-#         sub {
-#             $successful_element->attribute_unlike( 'bar',qr/foo/,
-#                 "Attribute does not match foo" );
-#         },
-#         {   ok   => 1,
-#             name => "Attribute does not match foo",
-#             diag => "",
-#         }
-#     );
-# }
+$successful_element->value_is( 'my_value', 'Got an my_value value?' );
+$successful_element->value_isnt( 'BOOM', 'Not BOOM.' );
+$successful_element->value_like( qr/val/, 'Matches my_value value?' );
+$successful_element->value_unlike( qr/BOOM/, "value doesn't match BOOM" );
+$successful_element->text_is( "my_text\nis fantastic", 'Got an my_text value?' );
+$successful_element->text_isnt( 'BOOM', 'Not BOOM.' );
+$successful_element->text_like( qr/tex/, 'Matches my_text value?' );
+$successful_element->text_unlike( qr/BOOM/, "text doesn't match BOOM" );
+$successful_element->attribute_is( 'foo', 'my_foo', 'attribute_is matched' );
+$successful_element->attribute_isnt( 'foo', 'not_foo', 'attribute_is not_foo' );
+$successful_element->attribute_like( 'foo',qr/foo/, 'Matches my_attribute' );
+$successful_element->attribute_unlike( 'bar',qr/foo/, "Attribute does not match foo" );