From: Alexey Tourbin <at@altlinux.ru> To: devel@altlinux.ru Subject: [devel] test perl packages [2] Date: Wed, 4 Aug 2004 03:18:57 +0400 Message-ID: <20040803231857.GE3180@solemn.turbinal.org> (raw) [-- 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 --]
next reply other threads:[~2004-08-03 23:18 UTC|newest] Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top 2004-08-03 23:18 Alexey Tourbin [this message] 2004-08-04 5:50 ` Alexey I. Froloff
Reply instructions: You may reply publicly to this message via plain-text email using any one of the following methods: * Save the following mbox file, import it into your mail client, and reply-to-all from there: mbox Avoid top-posting and favor interleaved quoting: https://en.wikipedia.org/wiki/Posting_style#Interleaved_style * Reply using the --to, --cc, and --in-reply-to switches of git-send-email(1): git send-email \ --in-reply-to=20040803231857.GE3180@solemn.turbinal.org \ --to=at@altlinux.ru \ --cc=devel@altlinux.ru \ /path/to/YOUR_REPLY https://kernel.org/pub/software/scm/git/docs/git-send-email.html * If your mail client supports setting the In-Reply-To header via mailto: links, try the mailto: link
ALT Linux Team development discussions This inbox may be cloned and mirrored by anyone: git clone --mirror http://lore.altlinux.org/devel/0 devel/git/0.git # If you have public-inbox 1.1+ installed, you may # initialize and index your mirror using the following commands: public-inbox-init -V2 devel devel/ http://lore.altlinux.org/devel \ devel@altlinux.org devel@altlinux.ru devel@lists.altlinux.org devel@lists.altlinux.ru devel@linux.iplabs.ru mandrake-russian@linuxteam.iplabs.ru sisyphus@linuxteam.iplabs.ru public-inbox-index devel Example config snippet for mirrors. Newsgroup available over NNTP: nntp://lore.altlinux.org/org.altlinux.lists.devel AGPL code for this site: git clone https://public-inbox.org/public-inbox.git