#!perl -T use strict; use warnings; use Test::More tests => 21; use Test::Builder::Tester; use URI::file; use Test::WWW::Mechanize (); my $mech = Test::WWW::Mechanize->new(); isa_ok( $mech,'Test::WWW::Mechanize' ); my $uri = URI::file->new_abs( 't/goodlinks.html' )->as_string; $mech->get_ok( $uri ); for my $method ( qw( content_contains content_lacks text_contains text_lacks ) ) { for my $ref ( {}, [], qr/foo/, sub {} ) { test_out( "not ok 1 - Test::WWW::Mechanize->$method called incorrectly. It requires a scalar, not a reference." ); test_fail( +1 ); $mech->$method( $ref, 'Passing ref fails' ); my $type = ref( $ref ); test_test( "Passing a $type reference to $method() fails" ); } } # test success test_out( 'ok 1 - Does it say test page?' ); $mech->content_contains( 'Test Page', 'Does it say test page?' ); test_test( 'Finds the contains' ); # default desc test_out( 'ok 1 - Content contains "Test Page"' ); $mech->content_contains( 'Test Page'); test_test( 'Finds the contains - default desc' ); # test failure test_out( 'not ok 1 - Where is Mungo?' ); test_fail(+5); test_diag(q( searched: "\x{0a} \x{0a} Test Page"...) ); test_diag(q( can't find: "Mungo") ); test_diag(q( LCSS: "go")); test_diag(q(LCSS context: "dy>\x{0a}

Test Page

\x{0a} content_contains( 'Mungo', 'Where is Mungo?' ); test_test( 'Handles not finding it' ); done_testing();