Changeset 32412

Timestamp:

04/14/09 23:43:24 (4 years ago)

Author:

charsbar

Message:

WWW-Lengthen: added bit.ly, is.gd supports; refactored live tests; 0.07 -> CPAN

Location:

lang/perl/WWW-Lengthen/trunk

Files:

• Changes (modified) (1 diff)
• lib/WWW/Lengthen.pm (modified) (2 diffs)
• t_live/basic.t (modified) (2 diffs)
• t_live/basic_cached.t (modified) (2 diffs)
• t_live/urllist.pm (modified) (1 diff)

lang/perl/WWW-Lengthen/trunk/Changes

@@ -1 +1 @@
 Revision history for WWW-Lengthen
+
+0.07 2009/04/14
+  - added is.gd, bit.ly, enabled shorl, and disabled icanhaz, urltea
+  - added several services WWW::Shorten supports, and marked them
+    as dead
 
 0.06 2008/05/22

lang/perl/WWW-Lengthen/trunk/lib/WWW/Lengthen.pm

@@ -5 +5 @@
 use LWP::UserAgent;
 
-our $VERSION = '0.06';
+our $VERSION = '0.07';
 
 our %KnownServices = (
-  '0rz'      => qr{^http://0rz\.tw/.+},
-  haojp      => qr{^http://hao\.jp/.+},
-  Metamark   => qr{^http://xrl\.us/.+},
-  NotLong    => qr{^http://[\w\-]+\.notlong\.com/?$},
-  ShortenURL => qr{^http://www\.shortenurl\.com/.+},
-  Smallr     => qr{^http://smallr\.com/.+},
-  SnipURL    => qr{^http://snipurl\.com/.+},
-  TinyURL    => qr{^http://tinyurl\.com/.+},
-  urlTea     => qr{^http://urltea\.com/.+},
-  snurl      => qr{^http://snurl.com/.+},
-  icanhaz    => qr{^http://icanhaz.com/.+},
+  '0rz'            => qr{^http://0rz\.tw/.+},
+  haojp            => qr{^http://hao\.jp/.+},
+  Metamark         => qr{^http://xrl\.us/.+},
+  NotLong          => qr{^http://[\w\-]+\.notlong\.com/?$},
+  Smallr           => qr{^http://smallr\.com/.+},
+  SnipURL          => qr{^http://snipurl\.com/.+},
+  TinyURL          => qr{^http://tinyurl\.com/.+},
+  snurl            => qr{^http://snurl\.com/.+},
+  bitly            => qr{^http://bit\.ly/.+},
+  isgd             => qr{^http://is\.gd/.+},
 );
 
 our %ExtraServices = (
-  OneShortLink => [ qr{^http://1sl\.net/.+}, 'OneShortLink' ],
-  Tinylink     => [ qr{^http://tinylink\.com/.+}, 'Tinylink' ],
+  OneShortLink     => [ qr{^http://1sl\.net/.+}, 'OneShortLink' ],
+  Tinylink         => [ qr{^http://tinylink\.com/.+}, 'Tinylink' ],
+  Shorl            => [ qr{^http://shorl\.com/.+}, 'Shorl' ],
 );
 
 # or maybe was down/too heavy when I tested
 our %DeadServices = (
-  BabyURL   => qr{^http://babyurl\.com/.+},
-  Linkz     => qr{^http://lin\.kz/?\?.+},
-  Shorl     => [ qr{^http://shorl\.com/.+}, 'Shorl' ], # too heavy
-  TinyClick => qr{^http://tinyclick\.com/?\?.+},
-  V3        => qr{^http://\w+\.v3\.net/},
+  icanhaz          => qr{^http://icanhaz\.com/.+},
+  urlTea           => qr{^http://urltea\.com/.+},
+  BabyURL          => qr{^http://babyurl\.com/.+},
+  Linkz            => qr{^http://lin\.kz/?\?.+},
+  TinyClick        => qr{^http://tinyclick\.com/?\?.+},
+  V3               => qr{^http://\w+\.v3\.net/},
+  ShortenURL       => qr{^http://www\.shortenurl\.com/.+},
+  URLjr            => qr{^http://urljr\.com/.+},
+  qURL             => qr{^http://qurl\.net/.+},
+  SmLnk            => qr{^http://smlnk\.com/.+},
+  ShortLink        => qr{^http://shortlink\.us/.+},
+  EkDk             => qr{^http://add\.redir\.ek\.dk/.+},
+  MakeAShorterLink => qr{^http://tinyurl\.com/.+},
+  LinkToolbot      => qr{^http://link\.toolbot\.com/.+},
 );
 
@@ -154 +163 @@
 =item haojp (http://hao.jp/)
 
-=item I CAN HAZ dot COM (http://icanhaz.com/)
-
 =item Metamark (http://xrl.us/)
 
 =item NotLong (http://notlong.com/)
 
+=item Smallr (http://smallr.com/)
+
+=item SnipURL (http://snipurl.com/)
+
+=item TinyURL (http://tinyurl.com/)
+
+=item Snurl (http://snurl.com/)
+
+=item bit.ly (http://bit.ly/)
+
+=item is.gd (http://is.gd/)
+
+=back
+
+=head2 Require WWW::Shorten subclasses
+
+=over 4
+
+=item OneShortLink (http://1sl.net/)
+
+=item Shorl (http://shorl.com/)
+
+=item Tinylink (http://tinylink.com/)
+
+# Tinylink may not be available now as WWW::Shorten marks this as "dead"
+
+=back
+
+=head2 Dead/Down/Too Heavy when I tested
+
+not tested but probably works with WWW::Shorten subclasses.
+
+=over 4
+
+=item I CAN HAZ dot COM (http://icanhaz.com/) (temporarily unavailable?)
+
+=item urlTea (http://urltea.com/) (temporarily unavailable?)
+
+=item BabyURL (http://babyurl.com/)
+
+=item Linkz (http://lin.kz/)
+
+=item TinyClick (http://tinyclick.com/)
+
+=item V3 (http://www.v3.net/)
+
 =item ShortenURL (http://www.shortenurl.com/)
-
-=item Smallr (http://smallr.com/)
-
-=item SnipURL (http://snipurl.com/)
-
-=item TinyURL (http://tinyurl.com/)
-
-=item urlTea (http://urltea.com/)
-
-=item Snurl (http://snurl.com/)
-
-=back
-
-=head2 Require WWW::Shorten subclasses
-
-=over 4
-
-=item OneShortLink (http://1sl.net/)
-
-=item Tinylink (http://tinylink.com/)
-
-=back
-
-=head2 Dead/Down/Too Heavy when I tested
-
-not tested but probably works with WWW::Shorten subclasses.
-
-=over 4
-
-=item BabyURL (http://babyurl.com/)
-
-=item Linkz (http://lin.kz/)
-
-=item Shorl (http://shorl.com/)  # was too heavy
-
-=item TinyClick (http://tinyclick.com/)
-
-=item V3 (http://www.v3.net/)
 
 =back

lang/perl/WWW-Lengthen/trunk/t_live/basic.t

@@ -12 +12 @@
   my $got = $l->try( $short ) || '';
   ok $got eq $long, "$name: $got";
+  sleep 1;
 }
 
@@ -22 +23 @@
   }
   else {
-    ok $got ne $long, "$name: $got";
+    ok $got eq $short, "$name: (ignored)";
   }
+  sleep 1;
 }

lang/perl/WWW-Lengthen/trunk/t_live/basic_cached.t

@@ -14 +14 @@
   my $got = $l->try( $short ) || '';
   ok $got eq $long, "$name: $got";
+  sleep 1;
 }
 
@@ -20 +21 @@
   my $got = $l->try( $short ) || '';
   ok $got eq $long, "$name: $got";
+  sleep 1;
 }

lang/perl/WWW-Lengthen/trunk/t_live/urllist.pm

@@ -4 +4 @@
 use strict;
 use warnings;
+use WWW::Lengthen;
 
-my $ex   = 'http://example.com/';
-my $ex_t = 'http://example.com/test';
-
-sub basic_tests {(
-  '0rz'      => [ $ex_t => 'http://0rz.tw/443v7' ],
-  Metamark   => [ $ex   => 'http://xrl.us/bdgj9' ],
-  NotLong    => [ $ex   => 'http://exampletest.notlong.com' ],
-  ShortenURL => [ $ex_t => 'http://www.shortenurl.com/9ugbj' ],
-  Smallr     => [ $ex   => 'http://smallr.com/2ne' ],
-  SnipURL    => [ $ex   => 'http://snipurl.com/1vv5c' ],
-  TinyURL    => [ $ex   => 'http://tinyurl.com/kotu' ],
-  urlTea     => [ $ex   => 'http://urltea.com/1y' ],
-  haojp      => [ $ex   => 'http://hao.jp/hb' ],
-  snurl      => [ $ex   => 'http://snurl.com/1vv5c' ],
-  icanhaz    => [ $ex   => 'http://icanhaz.com/example' ],
-)}
-
-sub extra_tests {(
+my $ex    = 'http://example.com/';
+my $ex_t  = 'http://example.com/test';
+my %tests = (
+  '0rz'        => [ $ex_t => 'http://0rz.tw/443v7' ],
+  Metamark     => [ $ex   => 'http://xrl.us/bdgj9' ],
+  NotLong      => [ $ex   => 'http://exampletest.notlong.com' ],
+  Smallr       => [ $ex   => 'http://smallr.com/2ne' ],
+  SnipURL      => [ $ex   => 'http://snipurl.com/1vv5c' ],
+  TinyURL      => [ $ex   => 'http://tinyurl.com/kotu' ],
+  urlTea       => [ $ex   => 'http://urltea.com/1y' ],
+  haojp        => [ $ex   => 'http://hao.jp/hb' ],
+  snurl        => [ $ex   => 'http://snurl.com/fuz4q' ],
+  icanhaz      => [ $ex   => 'http://icanhaz.com/example' ],
   OneShortLink => [ $ex   => 'http://1sl.net/1239' ],
   Tinylink     => [ $ex_t => 'http://tinylink.com/?nlxzHox18M' ],
-)}
+  Shorl        => [ $ex   => 'http://shorl.com/fylevihehyra' ],
+  ShortenURL   => [ $ex_t => 'http://www.shortenurl.com/9ugbj' ],
+  bitly        => [ $ex   => 'http://bit.ly/VDcn' ],
+  isgd         => [ $ex   => 'http://is.gd/1NTB' ],
+);
+
+sub basic_tests {
+  return map { $_ => $tests{$_} } keys %WWW::Lengthen::KnownServices;
+}
+
+sub extra_tests {
+  return map { $_ => $tests{$_} } keys %WWW::Lengthen::ExtraServices;
+}
 
 1;