Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

18 lines (12 sloc) 0.392 kb
#!/usr/bin/perl -w
# Test URI's overloading of numeric comparison for checking object
# equality
use strict;
use Test::More 'no_plan';
use URI;
my $uri1 = URI->new("");
my $uri2 = URI->new("");
# cmp_ok() has a bug/misfeature where it strips overloading
# before doing the comparison. So use a regular ok().
ok $uri1 == $uri1, "==";
ok $uri1 != $uri2, "!=";
Jump to Line
Something went wrong with that request. Please try again.