From b500b64f772f2b3ac538ef65cc394a99745133bc Mon Sep 17 00:00:00 2001
From: Patrick McDermott <patrick.mcdermott@libiquity.com>
Date: Tue, 23 Apr 2019 12:32:12 -0400
Subject: tests/substvars.sh: New test file

---
diff --git a/tests/local.mk b/tests/local.mk
index 42ac039..9be9cc7 100644
--- a/tests/local.mk
+++ b/tests/local.mk
@@ -3,7 +3,8 @@ check_PROGRAMS = \
 	tests/resolve_deps.basic \
 	tests/arch_is_concerned \
 	tests/plat_is_concerned \
-	tests/reduce_deps
+	tests/reduce_deps \
+	tests/substvars
 
 TESTS = $(check_PROGRAMS)
 
@@ -47,3 +48,11 @@ tests_reduce_deps_SOURCES = \
 	src/archplat.sh
 tests_reduce_deps_LDADD = $(tests_reduce_deps_SOURCES:.sh=.sho)
 CLEANFILES += $(tests_reduce_deps_LDADD)
+
+tests_substvars_SOURCES = \
+	tests/substvars.sh \
+	tests/aux/common.sh \
+	tests/aux/tap-functions.sh \
+	src/substvars.sh
+tests_substvars_LDADD = $(tests_substvars_SOURCES:.sh=.sho)
+CLEANFILES += $(tests_substvars_LDADD)
diff --git a/tests/substvars.sh b/tests/substvars.sh
new file mode 100644
index 0000000..12a061d
--- /dev/null
+++ b/tests/substvars.sh
@@ -0,0 +1,35 @@
+# set_substvar() and substvars() tests
+#
+# Copyright (C) 2019 Patrick 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/>.
+
+main()
+{
+	plan_ 2
+
+	command_ok_ 'setting source substvar' -- \
+		set_substvar 'Source-Substvar' '
+Source substvar value
+'
+	
+	is 'source package substvars' \
+		"$(substvars 'Field: ${Source-Substvar}')" \
+		'Field: Source substvar value'
+
+	return 0
+}
--
cgit v0.9.1