X-Git-Url: https://pd.if.org/git/?a=blobdiff_plain;f=zpm-test;fp=zpm-test;h=9f7471868b00e425357690bd75308e4bb264ea8a;hb=bd46218e36b09bc89497dd8aa5426d6610cd240c;hp=0000000000000000000000000000000000000000;hpb=e37940bd405aa420af334d03e0b751ee7099dddb;p=zpackage

diff --git a/zpm-test b/zpm-test
new file mode 100755
index 0000000..9f74718
--- /dev/null
+++ b/zpm-test
@@ -0,0 +1,24 @@
+#!/bin/sh
+
+# tests a package file
+
+# just checks that all args are valid pkg files
+verbose=0
+
+while getopts v opt; do
+        case $opt in
+                v) verbose=1 ;;
+        esac
+done
+
+for pkgfile in "$@"; do
+appid=$(sqlite3 $pkgfile 'pragma application_id;' | ( echo obase = 16; cat - ) | bc)
+if [ "$appid" != "5A504442" ]; then
+	if [ "$verbose" -eq 1 ]; then
+		echo $pkgfile does not appear to be a zpm package file 1>&2
+	fi
+	exit 1
+fi
+done
+
+exit 0