d817fb0ef3
This PR introduces checks to make sure that the IO functions produce errors when inputs contain NUL bytes (instead of ignoring everything after the first NUL byte).
30 lines
902 B
Text
30 lines
902 B
Text
/-!
|
||
# Test that IO functions error when inputs contain NUL bytes
|
||
-/
|
||
|
||
def checkError (x : IO α) : IO Unit := do
|
||
try
|
||
discard x
|
||
throw (.userError "error expected")
|
||
catch e =>
|
||
unless e matches .invalidArgument .. do
|
||
throw e
|
||
|
||
def badPath : System.FilePath := "Path with\x00NUL"
|
||
|
||
#eval checkError <| IO.setAccessRights badPath {}
|
||
#eval checkError <| IO.FS.Handle.mk badPath .read
|
||
#eval checkError <| IO.FS.realPath badPath
|
||
#eval checkError <| badPath.readDir
|
||
#eval checkError <| badPath.metadata
|
||
#eval checkError <| badPath.symlinkMetadata
|
||
#eval checkError <| IO.FS.createDir badPath
|
||
#eval checkError <| IO.FS.createDirAll badPath
|
||
#eval checkError <| IO.FS.removeDir badPath
|
||
#eval checkError <| IO.FS.removeDirAll badPath
|
||
#eval checkError <| IO.FS.removeFile badPath
|
||
#eval checkError <| IO.FS.rename badPath badPath
|
||
|
||
/-- info: none -/
|
||
#guard_msgs in
|
||
#eval IO.getEnv "Path with\x00NUL"
|