[devel] test perl packages [2]

[devel] test perl packages [2]

[Alexey Tourbin]

[-- Attachment #1.1: Type: text/plain, Size: 1246 bytes --]

У меня созрела ещё одна процедура, которая до некоторой степени
позволяет убдиться в том, что после обновления перла ничего не
сломается.

0) будем использовать макрос myrpm, который работает с каталогом ~/MYRPM
вместо ~/RPM.

$ alias myrpm='rpm --define "_topdir %homedir/MYRPM"'

1) Ставим в систему (почти) все перловые модули, примерно вот так вот:

$ cd ~Sisyphus/files/i586/RPMS
$ sudo apt-get install `rpm -qp --qf '%{NAME}\n' perl-*.rpm | grep -v GD1 | grep -v LibXML-Common`

2) Распаковываем все перловые исходные пакеты:
$ cd ~Sisyphus/files/SRPMS
$ myrpm -ivh perl-*.rpm

3) Разворачиваем исходники:

$ cd ~/MYRPM/SPECS
$ rm -f perl58.spec
$ myrpm -bp --nodeps *.spec

4) Запускаем скрипт run-perl-tests и сохраняем его вывод.

$ cd ~/MYRPM/BUILD
$ DISPLAY=:0 run-perl-tests 2>&1 | tee perl-tests-5.8.4

5) Обновлям перл.

6) Запускаем скрипт run-perl-tests и сохраняем его вывод.

$ cd ~/MYRPM/BUILD
$ DISPLAY=:0 run-perl-tests 2>&1 | tee perl-tests-5.8.5

7) Смотрим, отвалилось ли что-нибудь, на основе diff'а от двух выводов скрипта 

$ cd ~/MYRPM/BUILD
$ vimdiff perl-tests-5.8.{4,5}

Скрипт run-perl-tests ищет каталоги t, файлы test.pl и выполняет
соответствующие тестовые процедуры.

[-- Attachment #1.2: run-perl-tests --]
[-- Type: text/plain, Size: 560 bytes --]

#!/usr/bin/perl

use strict;
use File::Find qw(find);

$ENV{PERL_DL_NONLAZY} = $ENV{LD_BIND_NOW} = 1;
my $RC;

sub wanted {
	my $rc;
	if ($_ eq "t" && -d $_) {
		my @tests = <t/*.t>;
		@tests or return;
		print "TestDir $File::Find::name\n";
		system "mkdir -p blib/lib blib/arch";
		$rc = system $^X,
			qw(-MExtUtils::Command::MM -e test_harness) , @tests;
	} elsif ($_ eq "test.pl" && -f $_) {
		print "TestFile $File::Find::name\n";
		system "mkdir -p blib/lib blib/arch";
		$rc = system $^X, "test.pl";
	}
	$RC ||= $rc;
}

find \&wanted => ".";
exit $RC;

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

Re: [devel] test perl packages [2]

[Alexey I. Froloff]

[-- Attachment #1: Type: text/plain, Size: 553 bytes --]

* Alexey Tourbin <at@> [040804 03:20]:
> 0) будем использовать макрос myrpm, который работает с каталогом ~/MYRPM
> вместо ~/RPM.
> 1) Ставим в систему (почти) все перловые модули, примерно вот так вот:
Есть мнение, что можно использовать для этих целей
sandman/hasher...

-- 
Regards, Sir Raorn.
-------------------
> И еще. нужна ли нам локализация на 19 языков? Без нее пакет будет хоть
> немного полегче:
Локализация всегда нужна. Неужели у нас выкидываются языки только
потому, что сборщики пакетов их не знают?
		-- slava in devel@

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]