r32081 - in /scripts/use-test: ./ dotests gen-pkg-perl-list install-and-use

[ryan52-guest at users.alioth.debian.org]

Author: ryan52-guest
Date: Sun Mar 15 08:09:02 2009
New Revision: 32081

URL: http://svn.debian.org/wsvn/?sc=1&rev=32081
Log:
add the code I used to detect possible missing depencies (and other bugs..)

Added:
    scripts/use-test/
    scripts/use-test/dotests   (with props)
    scripts/use-test/gen-pkg-perl-list   (with props)
    scripts/use-test/install-and-use   (with props)

Added: scripts/use-test/dotests
URL: http://svn.debian.org/wsvn/scripts/use-test/dotests?rev=32081&op=file
==============================================================================
--- scripts/use-test/dotests (added)
+++ scripts/use-test/dotests Sun Mar 15 08:09:02 2009
@@ -1,0 +1,14 @@
+#!/bin/bash
+
+mkdir -p ~/pkg-perl/logs/
+rm ~/pkg-perl/logs/*
+
+for PACKAGE in $(cat /home/ryan52/pkg-perl-packages); do 
+    tail -F ~/pkg-perl/logs/$PACKAGE.log &
+    if ! schroot -c sid-i386 -u root /home/admin/install-and-use $PACKAGE >>~/pkg-perl/logs/$PACKAGE.log 2>>~/pkg-perl/logs/$PACKAGE.log; then
+	echo $PACKAGE >> ~/pkg-perl/logs/failed.log
+    fi
+    for i in $(jobs | awk '{gsub(/[\[\]\+]/, ""); print $1}'); do
+	kill %$i
+    done
+done

Propchange: scripts/use-test/dotests
------------------------------------------------------------------------------
    svn:executable = *

Added: scripts/use-test/gen-pkg-perl-list
URL: http://svn.debian.org/wsvn/scripts/use-test/gen-pkg-perl-list?rev=32081&op=file
==============================================================================
--- scripts/use-test/gen-pkg-perl-list (added)
+++ scripts/use-test/gen-pkg-perl-list Sun Mar 15 08:09:02 2009
@@ -1,0 +1,8 @@
+#!/bin/sh
+
+cd ~/pkg-perl/trunk/
+for i in $(find -mindepth 1 -maxdepth 1 -type d | sed 's,./,,'); do
+    if [ -f $i/debian/control ]; then
+        sed -n '/^Package: / {s/Package: //; p; q}' $i/debian/control
+    fi
+done | sort -u > ~/pkg-perl-packages

Propchange: scripts/use-test/gen-pkg-perl-list
------------------------------------------------------------------------------
    svn:executable = *

Added: scripts/use-test/install-and-use
URL: http://svn.debian.org/wsvn/scripts/use-test/install-and-use?rev=32081&op=file
==============================================================================
--- scripts/use-test/install-and-use (added)
+++ scripts/use-test/install-and-use Sun Mar 15 08:09:02 2009
@@ -1,0 +1,26 @@
+#!/usr/bin/perl
+
+system("apt-get -y --no-install-recommends install @ARGV");
+foreach(@ARGV) {
+    chomp;
+    my $orig = $_;
+    s/^lib//;
+    s/-perl$//;
+    my $searchfor = $_;
+    $searchfor =~ s/-/\//g;
+    my @list = split("\n", `dpkg -L $orig`);
+    my @inclist = ();
+    foreach my $path (@INC) {
+	push @inclist, grep(/^$path/, @list) if("." ne $path);
+    }
+    my @found = grep(/$searchfor/i, @inclist);
+    die("Couldn't find what to use") if(length(@found) == 0);
+    my $last = $found[-1];
+    $last =~ m/($searchfor)/i;
+    my $usethis = $1;
+    $usethis =~ s/\//::/g;
+    print "USING: $usethis\n";
+    eval "use $usethis";
+    die($@) if($@);
+}
+

Propchange: scripts/use-test/install-and-use
------------------------------------------------------------------------------
    svn:executable = *