enhance test 2

Author: Mukulyadav2004

inst/tests/tests.Rraw

@@ -21195,9 +21195,13 @@ test(2319.2, !is.null(attr(dt_get0, ".internal.selfref")))
 
 # Improved fread error handling for cmd exe and decompression #5415
 test(2320.1, fread(cmd="false"), error="External command failed with exit code") # external command execution error handling
+
 if (test_R.utils) {
-  corrupted_data <- c(0x1F, 0x8B, 0x08, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x03, rep(0xFF, 50), 0x00, 0x00, 0x00, 0x00, 0xFF, 0xFF, 0xFF, 0xFF)
-  writeBin(as.raw(corrupted_data), f<-tempfile(fileext=".csv.gz"))
-  test(2320.2, fread(f), error="R.utils::decompressFile failed to decompress") # Compressed file decompression error handling
-  unlink(f)
+  tmp <- tempfile(fileext=".csv.gz")
+  file.create(tmp)
+  conn <- file(tmp, 'wb')
+  writeBin(as.raw(c(31, 139)), conn)
+  close(conn)
+  test(2320.2, fread(tmp), error="R.utils::decompressFile failed to decompress") # Compressed file decompression error handling
+  unlink(tmp)
 }