wrng instead of error in test 2

Mukulyadav2004 · web-flow · commit e9d763c60993 · 2025-06-28T05:00:46.000+05:30
diff --git a/inst/tests/tests.Rraw b/inst/tests/tests.Rraw
@@ -21202,6 +21202,6 @@ if (test_R.utils) {
   conn <- file(tmp, 'wb')
   writeBin(as.raw(c(31, 139)), conn) # Gzip header starts with magic numbers: 0x1F 0x8B (decimal 31, 139) - these identify the file as gzip
   close(conn)
-  test(2320.2, fread(tmp), error="R.utils::decompressFile failed to decompress") # Compressed file decompression error handling
+  test(2320.2, fread(tmp), warning="R.utils::decompressFile") # Compressed file decompression error handling - catches warning first
   unlink(tmp)
 }

Original file line number	Diff line number	Diff line change
`@@ -21202,6 +21202,6 @@ if (test_R.utils) {`
`21202`	`21202`	`conn <- file(tmp, 'wb')`
`21203`	`21203`	`writeBin(as.raw(c(31, 139)), conn) # Gzip header starts with magic numbers: 0x1F 0x8B (decimal 31, 139) - these identify the file as gzip`
`21204`	`21204`	`close(conn)`
`21205`		`- test(2320.2, fread(tmp), error="R.utils::decompressFile failed to decompress") # Compressed file decompression error handling`
	`21205`	`+ test(2320.2, fread(tmp), warning="R.utils::decompressFile") # Compressed file decompression error handling - catches warning first`
`21206`	`21206`	`unlink(tmp)`
`21207`	`21207`	`}`