view release on metacpan or  search on metacpan

t/extended_tests.t  view on Meta::CPAN

	};
}

# ---------------------------------------------------------------------------
# EX15 — Gzip-compressed CSV (lines 684-691) and DESTROY temp cleanup (line 1920)
# ---------------------------------------------------------------------------

SKIP: {
	skip('Gzip::Faster not available', 3) unless $HAS_GZIP;

	subtest 'EX15: gzip CSV is transparently decompressed (lines 684-691)' => sub {
		plan tests => 3;

		# Build a tiny CSV, gzip it, write to a temp directory
		my $csv_content = "entry!number\n\"uno\"!1\n\"dos\"!2\n";
		my $gzipped     = Gzip::Faster::gzip($csv_content);

		my $tmpdir = tempdir(CLEANUP => 1);
		my $gzfile = File::Spec->catfile($tmpdir, 'testgz.csv.gz');
		open(my $fh, '>', $gzfile) or die "cannot write $gzfile: $!";
		binmode $fh;