last perl tests migrated to unittests.sh

tests/iotests.cfg

@@ -1,8 +1,8 @@
-# -*-html-*-
+# -*-sh-*-
 #
 #    This file is part of Pretty Curved Privacy (pcp1).
 #
-#    Copyright (C) 2013 T.Linden.
+#    Copyright (C) 2013-2016 T.v.Dein.
 #
 #    This program is free software: you can redistribute it and/or modify
 #    it under the terms of the GNU General Public License as published by
@@ -20,27 +20,29 @@
 #    You can contact me by mail: <tlinden AT cpan DOT org>.
 #
 
-pcp   = ../src/pcp1
-vault = v1
-passwd = xxx
-md5msg   = 66b8c4ca9e5d2a7e3c0559c3cdea3d50
+pcp=../src/pcp1
+vault=v1
+passwd=xxx
+md5msg=66b8c4ca9e5d2a7e3c0559c3cdea3d50
 
-include keys.cfg
+. ./keys.cfg
 
-<test check-dependencies>
-  <test check-dependencies-shell>
-    cmd = which mdmfs
-    expect = /mdmfs/
-  </test>
-  <test check-dependencies-pcp>
-    cmd = ls $pcp
-    expect = /pcp/
-  </test>
-</test>
+check_dependencies_shell () {
+    cmd="which mdmfs"
+    expect="/mdmfs/"
+    check "$cmd" "$expect" "$input"
+}
+
+check_dependencies_pcp () {
+    cmd="ls $pcp"
+    expect="/pcp/"
+    check "$cmd" "$expect" "$input"
+}
 
 # this one only works on freebsd for my user. sorrry
-<test check-vault-disk-full>
-  prepare = sudo mdmfs -s 1M -w 1001:1001 md env && dd if=/dev/zero of=env/b bs=1024 count=700
-  cmd = ./jot 100 | while read N; do if ! (echo a; echo b) | $pcp -V env/v1 -k -x x; then break; fi; done
-  expect = /Failed to copy/
-</test>
+check_vault_disk_full () {
+  sudo mdmfs -s 1M -w 1001:1001 md env && dd if=/dev/zero of=env/b bs=1024 count=700
+  cmd="./jot 100 | while read N; do if ! (echo a; echo b) | $pcp -V env/v1 -k -x x; then break; fi; done"
+  expect="/Failed to copy/"
+  check "$cmd" "$expect" "$input"
+}