use Test::Builder::Tester tests => 6;
use Test::More;
use_ok( 'Test::URI' );
{
my $uri_string = "http://www.example.com/index.html#test";
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
test_out( "ok 1" );
uri_fragment_ok( $uri_string, 'test' );
test_test("uri_fragment_ok with string");
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
test_out( "not ok 1" );
uri_fragment_ok( $uri_string, 'buster' );
#test_diag(" Failed test ($0 at line " . line_num(-1) . ")",
# "URI [$uri_string] does not have the right fragment",
# "\tExpected [buster]",
# "\tGot [test]");
test_test(
title => "uri_fragment_ok with wrong string",
skip_err => 1,
);
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
my $uri_object = URI->new( $uri_string );
isa_ok( $uri_object, 'URI' );
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
test_out( "ok 1" );
uri_fragment_ok( $uri_object, 'test' );
test_test( "uri_fragment_ok with objects");
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
test_out( "not ok 1" );
uri_fragment_ok( $uri_object, 'buster' );
#test_diag(" Failed test ($0 at line " . line_num(-1) . ")",
# "URI [$uri_string] does not have the right fragment",
# "\tExpected [buster]",
# "\tGot [test]");
test_test(
title => "uri_fragment_ok with wrong object",
skip_err => 1,
);
}