Mercurial > hg > octave-nkf
changeset 18343:57d5bd8700df
gzip.m: Re-write %!test not to depend on external system diff command.
* gzip.m: Don't rely on external 'diff' which may not exist on all operating
systems.
author | Rik <rik@octave.org> |
---|---|
date | Fri, 17 Jan 2014 21:42:18 -0800 |
parents | 515187b51411 |
children | b0e8cc676396 |
files | scripts/miscellaneous/gzip.m |
diffstat | 1 files changed, 10 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/miscellaneous/gzip.m +++ b/scripts/miscellaneous/gzip.m @@ -58,10 +58,17 @@ %! error ("gzipped file cannot be found!"); %! endif %! gunzip (entry); -%! if (system (sprintf ("diff %s %s%c%s%s", filename, dirname, filesep, -%! basename, extension))) +%! fid = fopen (filename, "rb"); +%! assert (fid >= 0); +%! orig_data = fread (fid); +%! fclose (fid); +%! fid = fopen ([dirname filesep basename extension], "rb"); +%! assert (fid >= 0); +%! new_data = fread (fid); +%! fclose (fid); +%! if (orig_data != new_data) %! error ("unzipped file not equal to original file!"); -%! end +%! endif %! unwind_protect_cleanup %! delete (filename); %! delete ([dirname, filesep, basename, extension]);