36 |
test(4); |
test(4); |
37 |
|
|
38 |
# test 5, getting an atom |
# test 5, getting an atom |
39 |
display(5); |
#display(5); |
40 |
$struct = new Libconf("smb.conf", 'samba', ''); |
#$struct = new Libconf("smb.conf", 'samba', ''); |
41 |
my $a = $struct->getAtom(1); |
#my $a = $struct->getAtom(1); |
42 |
Libconf::output("smb.conf_output_5", Data::Dumper->Dump([$a],['getatom']) . "\n"); |
#Libconf::output("smb.conf_output_5", Data::Dumper->Dump([$a],['getatom']) . "\n"); |
43 |
test(5); |
#test(5); |
44 |
|
|
45 |
# test 6, test for stable loop |
# test 6, test for stable loop |
46 |
display(6); |
display(6); |