#!/usr/bin/perl
# shorttest.pl - Don Yang (uguu.org)
#
# Test script, ignoring large files
#
# 09/15/01

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

foreach $file (sort {(-s $a) <=> (-s $b)} <*.dat>)
{
   last if( -s $file > 0x9000 );

   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");

   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;
}