ref: refs/heads/master
commit 38ecc0e34cbdef948609b6c044b31b040f5825a1
Author: Klaus Kämpf
Date: Thu Apr 2 14:25:18 2009 +0200
test a repo for installability (of all its solvables)
---
bindings/ruby/tests/installable.rb | 44 ++++++++++++++++++++++++++++++++++++
1 files changed, 44 insertions(+), 0 deletions(-)
diff --git a/bindings/ruby/tests/installable.rb b/bindings/ruby/tests/installable.rb
new file mode 100644
index 0000000..8dba24c
--- /dev/null
+++ b/bindings/ruby/tests/installable.rb
@@ -0,0 +1,44 @@
+$:.unshift "../../../build/bindings/ruby"
+require 'pathname'
+
+# test 'installability' of Repo
+#
+# queues every single package for installation
+# and checks if solving succeeds.
+#
+# Usage:
+#
+# installable <arch> <solv>...
+#
+# Multiple solv files can be given and all are added to the pool.
+# The last one will be tested.
+#
+
+require 'satsolver'
+
+raise "Usage: installable <arch> <solv>..." unless ARGV.size > 1
+
+pool = Satsolver::Pool.new
+
+arch = ARGV.shift
+raise "Bad arch" unless ["i386", "i486", "i586","i686","x86_64","ppc","ppc64","ia64","s390", "s390x", "arm","noarch",].include? arch
+pool.arch = arch
+
+repo = nil
+
+while (ARGV.size > 0)
+ solvname = ARGV.shift
+ repo = pool.add_solv( solvname )
+ repo.name = solvname
+end
+
+pool.prepare
+
+repo.each do |s|
+ transaction = Satsolver::Transaction.new( pool )
+ transaction.install( s )
+
+ solver = Satsolver::Solver.new( pool )
+ res = solver.solve( transaction )
+ $stderr.puts "Package #{s} is not installable" unless res
+end
--
To unsubscribe, e-mail: zypp-commit+unsubscribe@opensuse.org
For additional commands, e-mail: zypp-commit+help@opensuse.org
