From ef60e92699d2de392b68a2f97bb4e9009d7e38a1 Mon Sep 17 00:00:00 2001
From: Werner Almesberger <werner@almesberger.net>
Date: Wed, 30 May 2012 12:27:05 -0300
Subject: [PATCH] b2/test/hierfld: field definitions in hierarchy

---
 b2/test/hierfld | 82 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 82 insertions(+)
 create mode 100755 b2/test/hierfld

diff --git a/b2/test/hierfld b/b2/test/hierfld
new file mode 100755
index 0000000..cd0c672
--- /dev/null
+++ b/b2/test/hierfld
@@ -0,0 +1,82 @@
+#!/bin/bash
+. ./Common
+
+#
+# Note: the hierarchy dump differs in some details from the input format.
+# Its main purpose is to aid with debugging, not to produce a syntactically
+# valid representation of the currently loaded hierarchy.
+#
+
+###############################################################################
+
+tst "hierarchy: name field" <<EOF
+{ X=* };
+EOF
+
+expect <<EOF
+{ X=* }
+EOF
+
+#------------------------------------------------------------------------------
+
+tst "hierarchy: name set field (correct name)" <<EOF
+<abc> = A<B<C;
+{ X=<abc> };
+EOF
+
+expect <<EOF
+{ X=<abc> }
+EOF
+
+#------------------------------------------------------------------------------
+
+tst_fail "hierarchy: name set field (incorrect name)" <<EOF
+<abc> = A<B<C;
+{ X=<def> };
+EOF
+
+expect <<EOF
+file-h:2: unknown name set "def"
+EOF
+
+#------------------------------------------------------------------------------
+
+tst "hierarchy: absolute value field" <<EOF
+{ X=#foo };
+EOF
+
+expect <<EOF
+{ X=#foo }
+EOF
+
+#------------------------------------------------------------------------------
+
+tst_fail "hierarchy: absolute value field (omit type name)" <<EOF
+{ X=# };
+EOF
+
+expect <<EOF
+file-h:1: syntax error
+EOF
+
+#------------------------------------------------------------------------------
+
+tst "hierarchy: relative value field (correct name)" <<EOF
+{ X=#foo Y=%X };
+EOF
+
+expect <<EOF
+{ X=#foo Y=%foo }
+EOF
+
+#------------------------------------------------------------------------------
+
+tst_fail "hierarchy: relative value field (incorrect name)" <<EOF
+{ X=#foo Y=%Z };
+EOF
+
+expect <<EOF
+file-h:1: unknown field "Z"
+EOF
+
+###############################################################################