tests/match_arch.sh: New test

2 files changed, 74 insertions, 1 deletions

diff --git a/tests/local.mk b/tests/local.mk
index c3c2aa6..e9f4556 100644
--- a/tests/local.mk
+++ b/tests/local.mk
@@ -1,3 +1,4 @@
 TESTS = \
 	tests/parse_control.basic.sh \
-	tests/resolve_deps.basic.sh
+	tests/resolve_deps.basic.sh \
+	tests/match_arch.sh
diff --git a/tests/match_arch.sh b/tests/match_arch.sh
new file mode 100755
index 0000000..f9b8a22
--- /dev/null
+++ b/tests/match_arch.sh
@@ -0,0 +1,72 @@
+#!/bin/sh
+#
+# match_arch() tests
+#
+# Copyright (C) 2014  Patrick "P. J." McDermott
+#
+# This file is part of the ProteanOS Development Kit.
+#
+# The ProteanOS Development Kit is free software: you can redistribute
+# it and/or modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation, either version 3 of the
+# License, or (at your option) any later version.
+#
+# The ProteanOS Development Kit is distributed in the hope that it
+# will be useful, but WITHOUT ANY WARRANTY; without even the implied
+# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+# See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with the ProteanOS Development Kit.  If not, see
+# <http://www.gnu.org/licenses/>.
+
+. "${srcdir}/tests/common.sh"
+
+use archplat
+
+do_test()
+{
+	local arch="${1}"
+	local arch_field="${2}"
+	local result="${3}"
+
+	if match_arch "${arch}" "${arch_field}"; then
+		if [ "x${result}" = 'xfalse' ]; then
+			printf 'False positive:\n'
+			printf '  arch:       %s\n  arch_field: %s\n' \
+				"${arch}" "${arch_field}"
+			tests_es=1
+		fi
+	else
+		if [ "x${result}" = 'xtrue' ]; then
+			printf 'False negative:\n'
+			printf '  arch:       %s\n  arch_field: %s\n' \
+				"${arch}" "${arch_field}"
+			tests_es=1
+		fi
+	fi
+}
+
+do_test all 'all' true
+
+do_test foo-bar-baz 'any' true
+
+do_test foo-bar-baz 'any all' true
+
+do_test all 'any all' true
+
+do_test foo-bar-baz 'foo-bar-baz' true
+
+do_test foo-bar-baz 'foo-any-any' true
+
+do_test foo-bar-baz 'foo-bar-qux' false
+
+do_test foo-bar-baz 'any-qux-any any-bar-any' true
+
+do_test foo-bar-baz 'any-qux-any any-quux-any' false
+
+do_test all 'any' false
+
+do_test any 'all' false
+
+do_test all 'foo-any-any' false