Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: dd4e5f4ed2
Fetching contributors…

Cannot retrieve contributors at this time

17 lines (13 sloc) 0.57 kb
use Test::More tests => 6;
BEGIN { use_ok WWW::Shorten::TinyURL };
my $url = '';
my $return = makeashorterlink($url);
my ($code) = $return =~ /(\w+)$/;
my $prefix = '';
is ( makeashorterlink($url), $prefix.$code, 'make it shorter');
is ( makealongerlink($prefix.$code), $url, 'make it longer');
is ( makealongerlink($code), $url, 'make it longer by Id',);
eval { &makeashorterlink() };
ok($@, 'makeashorterlink fails with no args');
eval { &makealongerlink() };
ok($@, 'makealongerlink fails with no args');
Jump to Line
Something went wrong with that request. Please try again.