4 @INC = ("../lib", "lib/compress");
8 use lib qw(t t/compress);
16 eval ' use Scalar::Util "dualvar" ';
22 # use Test::NoWarnings, if available
25 if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 };
28 my $VERSION = '2.021';
35 IO::Compress::Adapter::Bzip2
36 IO::Compress::Adapter::Deflate
37 IO::Compress::Adapter::Identity
38 IO::Compress::Base::Common
42 IO::Compress::Gzip::Constants
44 IO::Compress::RawDeflate
45 IO::Compress::Zip::Constants
47 IO::Compress::Zlib::Constants
48 IO::Compress::Zlib::Extra
49 IO::Uncompress::Adapter::Bunzip2
50 IO::Uncompress::Adapter::Identity
51 IO::Uncompress::Adapter::Inflate
52 IO::Uncompress::AnyInflate
53 IO::Uncompress::AnyUncompress
55 IO::Uncompress::Bunzip2
56 IO::Uncompress::Gunzip
57 IO::Uncompress::Inflate
58 IO::Uncompress::RawInflate
67 plan tests => 2 + @NAMES + @OPT + $extra ;
69 foreach my $name (@NAMES)
71 use_ok($name, $VERSION);
75 foreach my $name (@OPT)
77 eval " require $name " ;
80 ok 1, "$name not available"
84 my $ver = eval("\$${name}::VERSION");
85 is $ver, $VERSION, "$name version should be $VERSION"
86 or diag "$name version is $ver, need $VERSION" ;
90 use_ok('Scalar::Util') ;
94 ok gotScalarUtilXS(), "Got XS Version of Scalar::Util"
96 You don't have the XS version of Scalar::Util