# This is a test for module Compress::Huffman::Binary.

use warnings;
use strict;
use Test::More;
use Compress::Huffman::Binary ':all';

my $in = <<EOF;
Shall I compare thee to a summer’s day?
Thou art more lovely and more temperate:
Rough winds do shake the darling buds of May,
And summer’s lease hath all too short a date:
Sometime too hot the eye of heaven shines,
And often is his gold complexion dimm’d;
And every fair from fair sometime declines,
By chance, or nature’s changing course, untrimm’d:
But thy eternal summer shall not fade,
Nor lose possession of that fair thou ow’st;
Nor shall Death brag thou wander’st in his shade,
When in eternal lines to time thou grow’st:
So long as men can breathe, or eyes can see,
So long lives this, and this gives life to thee.
EOF

is (huffman_decode (huffman_encode ($in)), $in, "Round trip OK");

done_testing ();
# Local variables:
# mode: perl
# End:
