From: nwf <nwf@cs.jhu.edu>
Date: Fri, 29 Aug 2008 20:09:22 +0000 (-0400)
Subject: HuffmanCoder_test test larger new symbol vocabulary
X-Git-Url: https://hydra-www.ietfng.org/gitweb/?a=commitdiff_plain;h=fdfb51d990e64e3e449cf0fb42145539a19d98f0;p=instirc

HuffmanCoder_test test larger new symbol vocabulary

darcs-hash:20080829200922-4d648-ddc1c68783a9155731f3c62032e17987e35460c6.gz
---

diff --git a/HuffmanCoder_test.pl b/HuffmanCoder_test.pl
index 8053af8..df95175 100644
--- a/HuffmanCoder_test.pl
+++ b/HuffmanCoder_test.pl
@@ -18,7 +18,11 @@ my $huffmancoder = Instance::HuffmanCoder->new($mastercoder, $instance_huffman_t
 
 #print Dumper($huffmancoder);
 
-my @test_strings = ( "hi", "there", "coin", "test", "!@#\$&*.-=" );
+my @test_strings = ( "abcdefghijklmnopqrstuvwxyz"
+                   , "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
+                   , "1234567890!@#\$%^&*()"
+                   , ",<.>/?;:'\"[]{}=+-_`~\\|"
+                   );
 
 foreach my $ts (@test_strings) {
   my $enc = $huffmancoder->encode($ts);