Author: kkaempf Date: Mon Jan 7 17:53:49 2008 New Revision: 8219 URL: http://svn.opensuse.org/viewcvs/zypp?rev=8219&view=rev Log: add pool tests for Perl Added: trunk/sat-solver/bindings/perl/tests/pool.pl (with props) Added: trunk/sat-solver/bindings/perl/tests/pool.pl URL: http://svn.opensuse.org/viewcvs/zypp/trunk/sat-solver/bindings/perl/tests/pool.pl?rev=8219&view=auto ============================================================================== --- trunk/sat-solver/bindings/perl/tests/pool.pl (added) +++ trunk/sat-solver/bindings/perl/tests/pool.pl Mon Jan 7 17:53:49 2008 @@ -0,0 +1,18 @@ +#!/usr/bin/perl + +use lib '../../../build/bindings/perl'; + +use satsolverx; + +# +# Test for 'Pool' class of sat-solver perl bindings +# +my $pool = new satsolverx::Pool || die; +$pool -> set_arch( 'i686' ); + +# $pool->count_repos == 0 +# $pool->size == 1 + +$pool->prepare(); + +my $system = $pool->find( 'system:system' ) || die; -- To unsubscribe, e-mail: zypp-commit+unsubscribe@opensuse.org For additional commands, e-mail: zypp-commit+help@opensuse.org