mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-20 20:03:44 +00:00
ced3f74b87
Estimated hours taken: 0.5 library/io.m: Fix a bug in io__remove_file_2 that was spotted by Thomas By <T.By@dcs.shef.ac.uk>: a call to strcpy() in the pragma c_code had the wrong argument, causing it to do the wrong thing in the case where io__remove_file returned an error. tests/hard_coded/Mmakefile: tests/hard_coded/remove_file.m: tests/hard_coded/remove_file.exp: Regression test.
51 lines
1.3 KiB
Mathematica
51 lines
1.3 KiB
Mathematica
:- module remove_file.
|
|
:- interface.
|
|
:- use_module io.
|
|
|
|
:- pred main(io__state::di, io__state::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
main -->
|
|
io__tmpnam(Name),
|
|
%%%%%%% io__print("Temp file name = "), io__print(Name), io__nl,
|
|
io__tell(Name, TellResult),
|
|
( { TellResult = io__ok },
|
|
io__print("Just testing"), io__nl,
|
|
io__told,
|
|
io__remove_file(Name, RemoveResult),
|
|
( { RemoveResult = io__ok },
|
|
io__see(Name, SeeResult),
|
|
( { SeeResult = io__ok } ->
|
|
io__print("Remove didn't remove file\n"),
|
|
io__set_exit_status(1)
|
|
;
|
|
io__print("Test passed\n")
|
|
)
|
|
; { RemoveResult = io__error(RemoveError) },
|
|
io__print("Remove failed: "),
|
|
{ io__error_message(RemoveError, RemoveErrorMsg) },
|
|
io__print(RemoveErrorMsg),
|
|
io__nl,
|
|
io__set_exit_status(1)
|
|
),
|
|
io__remove_file(Name, RemoveAgainResult),
|
|
( { RemoveAgainResult = io__ok },
|
|
io__print("Second remove didn't report failure\n"),
|
|
io__set_exit_status(1)
|
|
; { RemoveAgainResult = io__error(RemoveAgainError) },
|
|
io__print("Second remove failed, as expected: "),
|
|
{ io__error_message(RemoveAgainError,
|
|
RemoveAgainErrorMsg) },
|
|
io__print(RemoveAgainErrorMsg),
|
|
io__nl
|
|
)
|
|
; { TellResult = io__error(TellError) },
|
|
io__print("Tell failed: "),
|
|
{ io__error_message(TellError, TellErrorMsg) },
|
|
io__print(TellErrorMsg),
|
|
io__nl,
|
|
io__set_exit_status(1)
|
|
).
|
|
|