>>>>> processing /run/media/godfrey/GoFlex08/qss/d/src/octave/hg/octave/scripts/miscellaneous/gzip.m ***** xtest # test gzip together with gunzip unwind_protect filename = tmpnam; dummy = 1; save (filename, "dummy"); dirname = tmpnam; mkdir (dirname); entry = gzip (filename, dirname); [path, basename, extension] = fileparts (filename); if (! strcmp (entry, [dirname, filesep, basename, extension, ".gz"])) error ("gzipped file does not match expected name!"); endif if (! exist (entry, "file")) error ("gzipped file cannot be found!"); endif gunzip (entry); if (system (sprintf ("diff %s %s%c%s%s", filename, dirname, filesep, basename, extension))) error ("unzipped file not equal to original file!"); end unwind_protect_cleanup delete (filename); delete ([dirname, filesep, basename, extension]); rmdir (dirname); end_unwind_protect !!!!! known failure 'basename' undefined near line 25 column 29 ***** error gzip ("1", tmpnam) !!!!! expected but got parse error near line 66 of file /d/src/octave/hg/octave/scripts/miscellaneous/private/__xzip__.m syntax error >>> files(cellfun (@(x) length (x) > length (extension) ^ ***** error gzip (1) !!!!! expected but got parse error near line 66 of file /d/src/octave/hg/octave/scripts/miscellaneous/private/__xzip__.m syntax error >>> files(cellfun (@(x) length (x) > length (extension) ^