*** empty log message ***

--HG--
branch : HEAD

regress/deltest.c

diff --git a/regress/deltest.c b/regress/deltest.c
new file mode 100644
index 0000000..9262e15
--- /dev/null
+++ b/regress/deltest.c
@@ -0,0 +1,37 @@
+#include "zip.h"
+#include "error.h"
+
+char *prg;
+#define BUFSIZE 65536
+
+int
+main(int argc, char *argv[])
+{
+    struct zip *z;
+
+    if (argc != 2) {
+	fprintf(stderr, "%s: call with one option: zip-file. First file"
+		" in zip-file will be deleted\n", argv[0]);
+	return 1;
+    }
+
+    if ((z=zip_open(argv[1], ZIP_CHECKCONS))==NULL) {
+	fprintf(stderr, "%s: can't open '%s': %s\n", argv[0], argv[1],
+		zip_err_str[zip_err]);
+	return 1;
+    }
+
+    if (zip_delete(z, 0)< 0) {
+	fprintf(stderr, "%s: can't delete first file in '%s': %s", 
+		argv[0], argv[1], zip_err_str[zip_err]);
+	return 1;
+    }
+
+    if (zip_close(z)!=0) {
+	fprintf(stderr, "%s: can't close file '%s': %s", argv[0], argv[1],
+		zip_err_str[zip_err]);
+	return 1;
+    }
+    
+    return 0;
+}