From e68d853b4f66c52e9e3a1f67d8064bf5cb8810fa Mon Sep 17 00:00:00 2001
From: "Joachim Wuttke (h)" <j.wuttke@fz-juelich.de>
Date: Sun, 19 Mar 2017 09:28:01 +0100
Subject: [PATCH] + check integroty of postscript files, for later use in
automatized tests.
---
pub/itest/checkIntegrity.ps | 16 ++++++++++++++++
1 file changed, 16 insertions(+)
create mode 100644 pub/itest/checkIntegrity.ps
diff --git a/pub/itest/checkIntegrity.ps b/pub/itest/checkIntegrity.ps
new file mode 100644
index 00000000..d31a46fd
--- /dev/null
+++ b/pub/itest/checkIntegrity.ps
@@ -0,0 +1,16 @@
+ {Script run} stopped
+ {
+ (\n===> Integrity test failed: ) print Script print ( has error\n\n) print
+ handleerror
+ (ignore this error which only serves to force a return value of 1) /syntaxerror signalerror
+ }{
+ % script passed, now check the stack
+ count dup 0 eq {
+ pop (\n===> Integrity test passed: ) print Script print ( terminated normally\n\n) print
+ } {
+ (\n===> Integrity test failed: ) print Script print ( left ) print
+ 3 string cvs print ( item(s) on stack\n\n) print
+ Script /syntaxerror signalerror
+ } ifelse
+ } ifelse
+ quit
--
GitLab