32 lines
691 B
Perl
32 lines
691 B
Perl
#!perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::More 'no_plan';
|
|
use Carp qw/ croak /;
|
|
|
|
use TestFunctions;
|
|
|
|
my $test_dir = mktempdir();
|
|
put_file(
|
|
"$test_dir/1",
|
|
"$test_dir/2",
|
|
);
|
|
|
|
my (undef, $stdout, $stderr) = run_script_capture('-f', $test_dir);
|
|
ok "freed 1,048,576 bytes (1 MB)\n" eq $stderr, 'prints freed bytes with commas';
|
|
|
|
sub put_file {
|
|
my @files = @_;
|
|
my $bytes = 1_048_576; # 1 MB
|
|
foreach my $file (@files) {
|
|
open my $fh, '>', $file
|
|
or croak("Failed to open file $file for writing: $!");
|
|
for (my $bytes_written = 0; $bytes_written < $bytes; ++$bytes_written) {
|
|
print $fh 'A';
|
|
}
|
|
close $fh;
|
|
}
|
|
return;
|
|
}
|