head	1.2;
access;
symbols
	pjones-sparse-experiment:1.2.0.20
	rpm-4_4:1.2.0.18
	rpm-4_3_1-start:1.2
	rpm-4_3:1.2.0.16
	rpm-4_2_1-release:1.2
	rpm-4_1_1-release:1.2
	rpm-4_2-release:1.2
	rpm-4_2:1.2.0.14
	rpm-4_1-release:1.2
	rpm-4_1:1.2.0.12
	rpm-4_0_4-release:1.2
	jbj-before-beecrypt:1.2
	rpm-4_0_3-release:1.2
	jbj_b4_rollback:1.2
	rpm-4_0_2-release:1.2
	rpm-4_0_1-release:1.2
	rpm-3_0_6-release:1.2
	rpm-4_0-release:1.2
	rpm-3_0_6:1.2
	rpm-4_0:1.2.0.10
	rpm-3_0_5:1.2.0.8
	jbj_sparc64:1.2.0.6
	rpm-3_0_4:1.2.0.4
	rpm-3_0_3:1.2.0.2;
locks; strict;
comment	@# @;


1.2
date	99.07.16.08.44.54;	author gafton;	state Exp;
branches
	1.2.18.1;
next	1.1;

1.1
date	99.07.14.16.52.52;	author jbj;	state Exp;
branches;
next	;

1.2.18.1
date	2004.11.19.15.44.15;	author jbj;	state dead;
branches;
next	;


desc
@@


1.2
log
@Added rpmdb traversal
@
text
@#!/usr/bin/perl

use ExtUtils::testlib;
use rpm;

my $testfile = "foo.i386.rpm";

my $header = rpm::Header($testfile);

print "Test No. 1\n";
if ($header) {
  my @@foo_test = ();
  my %foo_test = ();
  my $key;

  print "call to the header function SUCCEEDED\n";
  @@foo_test = $header->ItemByVal(1027);
  print "values returned by ItemByVal(1027) ", join(' ',@@foo_test), "\n\n\n";
  @@foo_test = $header->ItemByName("Filenames");
  print "values returned by ItemByName(\"Filenames\") ", join(' ',@@foo_test), "\n\n\n";

  print "\n\nTest No. 2\n";
  %foo_test = $header->List();
  foreach $key (sort keys %foo_test) {
    my $foo_it;
    print "Item [$key] has [", scalar @@{$foo_test{$key}}, "] values: ";
    foreach $foo_it (@@{$foo_test{$key}}) {
      print "[$foo_it] ";
    }
    print "\n";
  }
  
  print "\n\nTest No. 3\n";
  print "The number of header tags is: ", scalar $header->Tags(), "\n";

  print "\n\nTest No. 4\n";
  rpm::Debug();
  my $db = rpm::dbOpen();
  if ($db) {
    my $rec = $db->First();
    while ($rec != 0) {
      my $hdr = $db->Record($rec);
      print "Found header: Name=[", $hdr->ItemByName("Name"), "]\n";
      $rec = $db->Next($rec);
    }
    $db->Close();
  } else {
    print "Could not open the RPM database! Error code: ", rpm::Error(), "\n";
  }
} else {
  print "call to the header function FAILED\n";
}



@


1.2.18.1
log
@Not in rpm-4_4.
@
text
@@


1.1
log
@Merge Christian's preliminary perl bindings.
@
text
@d10 1
d17 4
a20 2
  @@foo_test = $header->ItemByVal(1081);
  print "values returned ", @@foo_test, "\n\n\n";
d22 1
d33 1
d36 14
@

