view release on metacpan or  search on metacpan

t/control-frame.t  view on Meta::CPAN

		(my $txt = join '', @chunk) =~ s/[^[:print:]]/./g;
		print "   " x (16 - @chunk);
		print for split //, $txt;
		print "\n";
		$idx += @bytes;
	}
}

sub unhex($) { join '', map { chr hex } split ' ', shift }

sub double_check(&$) {
	my $code = shift;
	my $data = shift;
	my $sender_zlib = Protocol::SPDY::Compress->new;
	ok(my $original = Protocol::SPDY::Frame->parse(\unhex $data, zlib => $sender_zlib), 'parse frame');
	control_frame_ok($original);
	ok(my $encoded = $original->as_packet($sender_zlib), 'can regenerate packet');

	my $receiver_zlib = Protocol::SPDY::Compress->new;
	# Check once for original bytestream, then again after decoding/regenerating packet
	subtest 'Original bytestream' => sub { $code->($original); };