#!/usr/bin/perl
# test.pl - Don Yang (uguu.org)
#
# Test script
#
# 09/15/01

$encode = "../kirika e";
$decode = "../kirika x";

foreach $file (<*.dat>)
{
   print "$file = ", (-s $file), " bytes, ";

   ($name = $file) =~ s/^(.*?)(\.dat)$/$1/o;
   system "$encode $file $name.enc";
   system "$decode $name.enc $name.dec";
   print ((-s "$name.enc"), " bytes compressed\n");

   $orig = `md5sum < $file`;
   $test = `md5sum < $name.dec`;
   if( $orig ne $test )
   {
      print "Compare failed\n";
   }
   else
   {
      open ORIG, "< $file" or die;
      open TEST, "< $name.dec" or die;
      foreach $orig (<ORIG>)
      {
         $test = <TEST>;
         if( $orig ne $test )
         {
            print "Compare failed\n";
            last;
         }
      }
      close ORIG;
      close TEST;
   }
}