File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -8,15 +8,8 @@ use Test::More;
88use HTTP::Headers qw( ) ;
99use HTTP::Response qw( ) ;
1010
11- my $ok = eval {
12- require IO::Compress::Brotli;
13- require IO::Uncompress::Brotli;
14- 1;
15- };
16- if (! $ok ) {
17- plan skip_all => " IO::Compress::Brotli needed; $@ " ;
18- exit
19- }
11+ use Test::Needs ' IO::Compress::Brotli' , ' IO::Uncompress::Brotli' ;
12+
2013plan tests => 9;
2114
2215# Create a nasty brotli stream:
Original file line number Diff line number Diff line change @@ -8,15 +8,7 @@ use Test::More;
88use HTTP::Headers qw( ) ;
99use HTTP::Response qw( ) ;
1010
11- my $ok = eval {
12- require Compress::Raw::Zlib;
13- Compress::Raw::Zlib-> VERSION(' 2.061' );
14- 1;
15- };
16- if (! $ok ) {
17- plan skip_all => " Compress::Raw::Zlib 2.061+ needed; $@ " ;
18- exit
19- }
11+ use Test::Needs { ' Compress::Raw::Zlib' => ' 2.061' };
2012plan tests => 9;
2113
2214# Create a nasty gzip stream:
You can’t perform that action at this time.
0 commit comments