Author: kkaempf Date: Wed Jan 16 14:08:31 2008 New Revision: 8302 URL: http://svn.opensuse.org/viewcvs/zypp?rev=8302&view=rev Log: full solving test Added: trunk/sat-solver/bindings/perl/tests/solver.pl (with props) Added: trunk/sat-solver/bindings/perl/tests/solver.pl URL: http://svn.opensuse.org/viewcvs/zypp/trunk/sat-solver/bindings/perl/tests/solver.pl?rev=8302&view=auto ============================================================================== --- trunk/sat-solver/bindings/perl/tests/solver.pl (added) +++ trunk/sat-solver/bindings/perl/tests/solver.pl Wed Jan 16 14:08:31 2008 @@ -0,0 +1,42 @@ +#!/usr/bin/perl + +use lib '../../build/bindings/perl'; + +use satsolverx; + +# Open Solvable file +# open(F, "gzip -cd tmp/primary.gz |") || die; + +# Create Pool and Repository +my $pool = new satsolverx::Pool; +$pool -> set_arch( 'i686' ); +my $repo = $pool -> create_repo('repo'); + +# Add Solvable to Repository +$repo -> add_solv ("tmp/primary"); +# close(F) || die; + +# Create Solver +my $solver = $pool -> create_solver(); + +# Create dependencies to provides table +$pool -> prepare(); + +# Create Transactions +my $job = $pool -> create_transaction(); + +# Push jobs on Queue +my $pat = $pool -> find( "pattern:default" ) || die; +$job -> install( $pat ); + +# $job -> install( "pattern:default" ); + +# Solve the jobs +$solver -> solve ($job); + +# Print packages to install +$a = $solver -> getInstallList(); +foreach my $c (@{$a}) { + print "$c\n"; +} + -- To unsubscribe, e-mail: zypp-commit+unsubscribe@opensuse.org For additional commands, e-mail: zypp-commit+help@opensuse.org