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

10 lines
256 B
Plaintext
Raw Permalink Normal View History

{ '$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;
}