HuffmanCoder_test test larger new symbol vocabulary

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

diff --git a/HuffmanCoder_test.pl b/HuffmanCoder_test.pl
index 8053af8809bde1a65a83101ec38b0cb39b9f50a3..df9517544b6eeb5d9acf4c2837f105015c5a93dc 100644 (file)
--- 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);