Skip to content
This repository has been archived by the owner on Sep 28, 2022. It is now read-only.

Commit

Permalink
WWW::Shorten v0.1.1 compatibility
Browse files Browse the repository at this point in the history
Metamark is dead, and was removed from WWW::Shorten. Pick a
different, currently supported, service for the test suite.

Fixes gh-8.
  • Loading branch information
doherty committed Sep 27, 2014
1 parent f32dfa3 commit 4dabc27
Show file tree
Hide file tree
Showing 4 changed files with 6 additions and 4 deletions.
2 changes: 2 additions & 0 deletions Changes
Original file line number Diff line number Diff line change
@@ -1,6 +1,8 @@
Revision history for Dist-Zilla-Plugin-Twitter

{{$NEXT}}
- Fixed the test suite for compatibility with WWW::Shorten v0.1.1,
which removed Metamark support [gh-8]

0.025 2014-01-16
- Twitter API is now SSL-only, so use SSL to connect to Twitter
Expand Down
2 changes: 1 addition & 1 deletion corpus/DZ2/dist.ini
Original file line number Diff line number Diff line change
Expand Up @@ -11,4 +11,4 @@ remove = FakeRelease
[FakeUploader]
[Twitter]
hash_tags = #foo
url_shortener = Metamark
url_shortener = TinyURL
4 changes: 2 additions & 2 deletions t/choose_shortener.t
Original file line number Diff line number Diff line change
Expand Up @@ -29,8 +29,8 @@ ok(
) or diag "STDOUT:\n" . $result->output . "STDERR:\n" . $result->error;

ok (
(grep { $_ eq '[Twitter] Trying Metamark' } @{ $result->log_messages }),
'Log claims we tried to use WWW::Shorten::Metamark',
(grep { $_ eq '[Twitter] Trying TinyURL' } @{ $result->log_messages }),
'Log claims we tried to use WWW::Shorten::TinyURL',
) or diag "STDOUT:\n" . $result->output . "STDERR:\n" . $result->error;

done_testing;
Expand Down
2 changes: 1 addition & 1 deletion t/module.t
Original file line number Diff line number Diff line change
Expand Up @@ -33,7 +33,7 @@ ok(
my $no_shortener_msg = '[Twitter] dist.ini specifies to not use a URL shortener; using full URL';
ok (
(grep { $_ eq $no_shortener_msg } @{ $result->log_messages }),
'Log claims we tried to use WWW::Shorten::Metamark',
q/Log claims we didn't use a URL shortener/,
) or diag explain { STDOUT => $result->output, STDERR => $result->error };

done_testing;

0 comments on commit 4dabc27

Please sign in to comment.