Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
even more Mojo::URL tests
  • Loading branch information
kraih committed Nov 25, 2012
1 parent 58d9d71 commit c9f0b6c
Show file tree
Hide file tree
Showing 3 changed files with 11 additions and 4 deletions.
3 changes: 3 additions & 0 deletions Changes
@@ -1,4 +1,7 @@

3.62 2012-11-26
- Improved tests.

3.61 2012-11-25
- Added protocol method to Mojo::URL.
- Added charset attribute to Mojo::Path.
Expand Down
2 changes: 1 addition & 1 deletion lib/Mojolicious.pm
Expand Up @@ -38,7 +38,7 @@ has static => sub { Mojolicious::Static->new };
has types => sub { Mojolicious::Types->new };

our $CODENAME = 'Rainbow';
our $VERSION = '3.61';
our $VERSION = '3.62';

sub AUTOLOAD {
my $self = shift;
Expand Down
10 changes: 7 additions & 3 deletions t/mojo/url.t
Expand Up @@ -33,12 +33,16 @@ is "$url",
'https://sri:foobar@kraih.com:8080/index.xml?monkey=biz&foo=1#/!%?@3',
'right format';

# Advanced fragment roundtrip
$url = Mojo::URL->new('http://localhost#AZaz09-._~!$&\'()*+,;=%:@/?');
# Advanced userinfo and fragment roundtrip
$url = Mojo::URL->new(
'http://AZaz09-._~!$&\'()*+,;=:@localhost#AZaz09-._~!$&\'()*+,;=%:@/?');
is $url->scheme, 'http', 'right scheme';
is $url->userinfo, 'AZaz09-._~!$&\'()*+,;=:', 'right userinfo';
is $url->host, 'localhost', 'right host';
is $url->fragment, 'AZaz09-._~!$&\'()*+,;=%:@/?', 'right fragment';
is "$url", 'http://localhost#AZaz09-._~!$&\'()*+,;=%:@/?', 'right format';
is "$url",
'http://AZaz09-._~!$&\'()*+,;=:@localhost#AZaz09-._~!$&\'()*+,;=%:@/?',
'right format';

# Parameters
$url = Mojo::URL->new(
Expand Down

0 comments on commit c9f0b6c

Please sign in to comment.