Mercurial > octave-nkf

changeset 18301:57d5bd8700df

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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	Fri Jan 17 18:32:00 2014 -0800
+++ b/scripts/miscellaneous/gzip.m	Fri Jan 17 21:42:18 2014 -0800
@@ -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]);