text: BEGIN {
      if ($ENV{PERL_CORE}) {
  	chdir 't' if -d 't';
  	@INC = ("../lib", "lib/compress");
      }
  }
  
  use lib qw(t t/compress);
  use strict;
  use warnings;
  
  use IO::Compress::Deflate   qw($DeflateError) ;
  use IO::Uncompress::Inflate qw($InflateError) ;
  
  sub identify
  {
      'IO::Compress::Deflate';
  }
  
  require "multi.pl" ;
  run();
  