Permalink
Browse files

Cleanup

  • Loading branch information...
1 parent dad5e79 commit f6f77be1cf9ca5c92ecd9203fe4913a1074aea03 @vti committed Feb 23, 2012
Showing with 9 additions and 13 deletions.
  1. +4 −1 Changes
  2. +1 −1 Makefile.PL
  3. +3 −1 lib/PocketIO.pm
  4. +1 −10 t/conn/parsing.t
View
5 Changes
@@ -1,6 +1,9 @@
Revision history for perl module PocketIO
-0.13 2012-01-28
+0.14 2012-02-23
+
+ - Fixed exception handling bugs (Jason May)
+ - Provide the status code when throwing a websocket exception (Jason May)
0.12 2012-01-25
View
2 Makefile.PL
@@ -18,7 +18,7 @@ requires 'Scalar::Util' => '0';
requires 'AnyEvent' => '0';
requires 'JSON' => '0';
-requires 'Protocol::SocketIO' => '0';
+requires 'Protocol::SocketIO' => '0.04';
requires 'Protocol::WebSocket' => '0.009006';
requires 'Test::More' => '0';
View
4 lib/PocketIO.pm
@@ -3,7 +3,7 @@ package PocketIO;
use strict;
use warnings;
-our $VERSION = '0.13';
+our $VERSION = '0.14';
use overload '&{}' => sub { shift->to_app(@_) }, fallback => 1;
@@ -335,6 +335,8 @@ Uwe Voelker
Oskari Okko Ojala
+Jason May
+
=head1 AUTHOR
Viacheslav Tykhanovskyi, C<vti@cpan.org>.
View
11 t/conn/parsing.t
@@ -3,7 +3,7 @@ use warnings;
use utf8;
use Encode;
-use Test::More tests => 10;
+use Test::More tests => 6;
use_ok('PocketIO::Connection');
@@ -24,12 +24,3 @@ is_deeply $output => {foo => 'bar'};
$conn->parse_message('4:1::{"foo":"' . encode_utf8('привет') . '"}');
is_deeply $output => {foo => 'привет'};
-
-# FIXME private methods testing? are you nuts?!!!
-is $conn->_build_message('foo') => '3:::foo';
-is $conn->_build_message({foo => 'bar'}) => '4:::{"foo":"bar"}';
-
-is $conn->_build_message('привет') => '3:::'
- . encode_utf8('привет');
-is $conn->_build_message({foo => 'привет'}) => '4:::{"foo":"'
- . encode_utf8('привет') . '"}';

0 comments on commit f6f77be

Please sign in to comment.