more crptd file in 2nd test

Author: Mukulyadav2004

inst/tests/tests.Rraw

@@ -21196,7 +21196,8 @@ 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) {
-  writeBin(c(0x1F, 0x8B, 0xFF, 0xFF), f<-tempfile(fileext=".csv.gz"))
-  test(2320.2, fread(f), error="R.utils::decompressFile failed to decompress") # Compressed file decompression error handling
+  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="decompressFile.*failed|failed.*decompress")
   unlink(f)
 }