|
#! /usr/bin/env perl
BEGIN {
unless ( $ENV {AUTHOR_TESTING}) {
Test::More::plan( skip_all => 'these tests are for testing by the author' );
}
}
BEGIN { use_ok( "WWW::Shorten" , qw{Akari} ) }
note "These tests require a working Internet connection" ;
ok my $short = makeashorterlink(TEST_URL_LONG), "Can reduce presence of URLs" ;
is $short , TEST_URL_SHORT, "The reduced presence was reduced as expected" ;
ok my $long = makealongerlink( $short ), "The presence can be increased" ;
is $long , TEST_URL_LONG, "The increased presence is as it was before reduction" ;
|