-$service->stop;
-
-foreach my $rec (@recs1) {
- foreach my $line (split (/\n/, $rec->{buf})) {
- if ($line =~ /^package/) { print STDERR "$line\n";}
- }
-}
-
-#$rep->{groupName} = "Strucc";
-#$rep->describe();
-
-sub test_data1 {
- $m = IDZebra::nmem_create();
- my $d1=IDZebra::Data1->new($m,$IDZebra::DATA1_FLAG_XML);
- my $root=$d1->mk_root('strucc');
- my $tag1 = $d1->mk_tag($root,'emu',('asd' => 1,
- 'bsd' => 2));
- my $tag2 = $d1->mk_tag($root,'emu');
- $d1->pr_tree($root);
- IDZebra::nmem_destroy($m);
- $d1->DESTROY();
-}