Mailinglist Archive: zypp-devel (59 mails)

[Olaf Dabrunz <od@xxxxxxx>]

Here is a Perl test script for the identical() function in the bindings.

--- /dev/null   2007-09-21 21:12:45.000000000 +0200
+++ bindings/perl/tests/identical.pl    2008-11-20 20:11:25.000000000 +0100
@@ -0,0 +1,61 @@
+#!/usr/bin/perl
+
+#
+# providers.pl
+#
+# Test the identical() function
+#
+#
+
+use lib '../../../build/bindings/perl';
+
+use satsolver;
+
+# Open Solvable file
+# open(F, "gzip -cd tmp/primary.gz |") || die;
+
+# Create Pool and Repository 
+my $pool = new satsolver::Pool;
+# use x86_64, as this will consider both x86_64 and i?86 packages
+$pool->set_arch( 'x86_64' );
+my $repo1 = $pool->create_repo('test_x86_64') || die;
+
+# Add Solvable to Repository
+$repo1->add_solv ("../../testdata/os11-beta5-x86_64.solv");
+
+# Create another Repository 
+my $repo2 = $pool->create_repo('test_biarch') || die;
+
+# Add Solvable to Repository
+$repo2->add_solv ("../../testdata/os11-biarch.solv");
+
+# Create dependencies to provides table
+$pool->prepare();
+
+# Print how much we have
+print "\"" . $repo1->name() . "\" size: " . $repo1->size() . "\n";
+print "\"" . $repo2->name() . "\" size: " . $repo2->size() . "\n";
+
+# Find a Solvable in the x86_64 Repo
+my $solvname = "aaa_base";
+my $solvable1 = $repo1->find($solvname);
+die if not defined $solvable1;
+
+print "\n" . $repo1->name() . ": found: " . $solvable1->string() . "\n";
+
+# Find Providers of this Solvable in the biarch Repo
+print "\nFinding providers in the biarch repo for $solvname\n";
+foreach my $solvable2 ($pool->providers($solvname)) {
+  print "--\n";
+  next if not defined $solvable2;
+
+  if ($solvable1->identical($solvable2)) {
+    printf("identical: %s and %s\n",
+           $solvable1->string(),
+           $solvable2->string());
+  } else {
+    printf("different: %s and %s\n",
+           $solvable1->string(),
+           $solvable2->string());
+  }
+}

-- 
Olaf Dabrunz (od/odabrunz)
SUSE LINUX Products GmbH, GF: Markus Rex, HRB 16746 (AG Nürnberg)

-- 
To unsubscribe, e-mail: zypp-devel+unsubscribe@xxxxxxxxxxxx
For additional commands, e-mail: zypp-devel+help@xxxxxxxxxxxx