view release on metacpan or  search on metacpan

t/URLprocessor.t  view on Meta::CPAN

is($url2->fragment, 'some_fragment', "fragment(): some_fragment");
is($url2->valid_status, 1, 'valid_status(): 1');
is($url2->valid_msg, 'OK', 'valid_msg(): OK');
print 'URL2: '.$url2->url."\n";
print "\n";




# Test private methods:
print "\nTest split method\n";
_test_split_url($url2);

print "\nTest parse global part method\n";
_test_parse_global_part($url2);

print "\nTest parse local part method\n";
_test_parse_local_part($url2);
print "\n";

print "\nTest parse params function\n";