#!/usr/bin/env perl
#
use 5.006;
use strict;
use warnings FATAL => 'all';
use Test::More tests => 6;
BEGIN {
use_ok( 'URL::Normalize' );
}
{
my %urls = (
'http://www.example.com/#' => 'http://www.example.com/',
'http://www.example.com/#foo' => 'http://www.example.com/',
'http://www.example.com/#foo#bar' => 'http://www.example.com/',
'http://www.example.com/#foo#bar#' => 'http://www.example.com/',
'http://www.example.com/bar.html#section1' => 'http://www.example.com/bar.html',
);
foreach ( keys %urls ) {
my $Normalizer = URL::Normalize->new(
url => $_,
);
$Normalizer->remove_fragment();
ok( $Normalizer->get_url() eq $urls{$_}, "$_ eq $urls{$_} - got " . $Normalizer->get_url() );
}
}
done_testing();