initial commit of file from CVS for e-smith-lib on Wed 12 Jul 08:58:46 BST 2023

root/etc/e-smith/tests/10e-smith-lib/templates_DB/10DB

@@ -0,0 +1,9 @@
+{ '$DB ok' if defined $DB && $DB->isa('esmith::ConfigDB') }
+{ my $ok = 1;
+  foreach my $rec ($DB->get_all) {
+    my $key = $rec->key;
+    my $type = $rec->props <= 1 ? "SCALAR" : "HASH";
+    $ok = 0 unless *{$key}{$type};
+  }
+  'default vars ok' if $ok;
+}

root/etc/e-smith/tests/10e-smith-lib/templates_DB/20confref

@@ -0,0 +1,7 @@
+
+{ if( *{confref}{SCALAR} ) {
+    "confref not defined";
+  } else {
+    "confref defined" 
+  }
+}

root/etc/e-smith/tests/10e-smith-lib/templates_DB/template-begin

@@ -0,0 +1,10 @@
+                        Chapter 1
+
+The story so far:
+
+        In the beginning the Universe was created.  This has made a lot
+of people very angry and been widely regarded as a bad move.
+                -- { # Testing MORE_DATA
+                     $Author 
+                   }
+

root/etc/e-smith/tests/10e-smith-lib/templates_DB/template-end

@@ -0,0 +1,2 @@
+
+The end of labor is to gain leisure.