Add --backlink, --dangling, and --recursive options to cfg-info

1 files changed, 176 insertions, 0 deletions

diff --git a/tests/cfg-info.testscript b/tests/cfg-info.testscript
new file mode 100644
index 0000000..10e1e4c
--- /dev/null
+++ b/tests/cfg-info.testscript
@@ -0,0 +1,176 @@
+# file      : tests/cfg-info.testscript
+# license   : MIT; see accompanying LICENSE file
+
+.include common.testscript
+
+cfg_create += 2>!
+
+uuid1 = '18f48b4b-b5d9-4712-b98c-1930df1c4228'
+uuid2 = '28f48b4b-b5d9-4712-b98c-1930df1c4228'
+uuid3 = '38f48b4b-b5d9-4712-b98c-1930df1c4228'
+uuid4 = '48f48b4b-b5d9-4712-b98c-1930df1c4228'
+
++$cfg_create -d cfg1 --name 't1' --uuid "$uuid1"               &cfg1/***
++$cfg_create -d cfg2 --name 't2' --uuid "$uuid2"               &cfg2/***
++$cfg_create -d cfg3 --name 'h3' --uuid "$uuid3" --type host   &cfg3/***
++$cfg_create -d cfg4 --name 'b4' --uuid "$uuid4" --type build2 &cfg4/***
+
++$cfg_link -d cfg1 cfg3 2>!
++$cfg_link -d cfg2 cfg3 2>!
++$cfg_link -d cfg3 cfg4 2>!
+
+clone_cfgs = cp -r ../cfg1 ../cfg2 ../cfg3 ../cfg4 ./
+
+sp = ' '
+
+: self
+:
+{
+  $clone_cfgs;
+
+  $* -d cfg1 >>/"EOO"
+    path: $~/cfg1/
+    uuid: $uuid1
+    type: target
+    name: t1
+    EOO
+}
+
+: links
+:
+{
+  $clone_cfgs;
+
+  $* -d cfg1 --link >>/"EOO"
+    path: $~/cfg1/
+    uuid: $uuid1
+    type: target
+    name: t1
+
+    path: $~/cfg3/
+    uuid: $uuid3
+    type: host
+    name: h3
+    EOO
+}
+
+: links-recursive
+:
+{
+  $clone_cfgs;
+
+  $* -d cfg1 --link --recursive >>/"EOO"
+    path: $~/cfg1/
+    uuid: $uuid1
+    type: target
+    name: t1
+
+    path: $~/cfg3/
+    uuid: $uuid3
+    type: host
+    name: h3
+
+    path: $~/cfg4/
+    uuid: $uuid4
+    type: build2
+    name: b4
+    EOO
+}
+
+: backlinks
+:
+{
+  $clone_cfgs;
+
+  $* -d cfg3 --backlink >>/"EOO";
+    path: $~/cfg3/
+    uuid: $uuid3
+    type: host
+    name: h3
+
+    path: $~/cfg1/
+    uuid: $uuid1
+    type: target
+    name: t1
+
+    path: $~/cfg2/
+    uuid: $uuid2
+    type: target
+    name: t2
+    EOO
+
+  mv cfg2 cfg2.tmp;
+
+  # Make sure that dangling links are silently skipped.
+  #
+  $* -d cfg3 --backlink >>/"EOO";
+    path: $~/cfg3/
+    uuid: $uuid3
+    type: host
+    name: h3
+
+    path: $~/cfg1/
+    uuid: $uuid1
+    type: target
+    name: t1
+    EOO
+
+  # While at it, test printing dangling links.
+  #
+  $* -d cfg3 --dangling >>/"EOO";
+    path: $~/cfg3/
+    uuid: $uuid3
+    type: host
+    name: h3
+
+    path: $~/cfg2/
+    uuid: $uuid2
+    type: target
+    name:$sp
+    EOO
+
+  $* -d cfg3 --dangling --backlink >>/"EOO"
+    path: $~/cfg3/
+    uuid: $uuid3
+    type: host
+    name: h3
+
+    path: $~/cfg1/
+    uuid: $uuid1
+    type: target
+    name: t1
+
+    path: $~/cfg2/
+    uuid: $uuid2
+    type: target
+    name:$sp
+    EOO
+}
+
+: all-links-recursive
+:
+{
+  $clone_cfgs;
+
+  $* -d cfg1 --link --backlink --recursive >>/"EOO"
+    path: $~/cfg1/
+    uuid: $uuid1
+    type: target
+    name: t1
+
+    path: $~/cfg3/
+    uuid: $uuid3
+    type: host
+    name: h3
+
+    path: $~/cfg2/
+    uuid: $uuid2
+    type: target
+    name: t2
+
+    path: $~/cfg4/
+    uuid: $uuid4
+    type: build2
+    name: b4
+    EOO
+}