diff --git a/t/freed-bytes-commas.t b/t/freed-bytes-commas.t
index c7b9b0b..2c96ca3 100644
--- a/t/freed-bytes-commas.t
+++ b/t/freed-bytes-commas.t
@@ -25,6 +25,7 @@ sub put_file {
         for (my $bytes_written = 0; $bytes_written < $bytes; ++$bytes_written) {
             print $fh 'A';
         }
+        close $fh;
     }
     return;
 }