aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--t_install_iso/010_check_autorun.t84
-rw-r--r--t_install_iso/011_check_idx.t97
-rw-r--r--t_install_iso/012_check_ids.t41
-rw-r--r--t_install_iso/013_check_rpms.t50
-rw-r--r--t_install_iso/014_check_bad_words.t53
-rw-r--r--t_install_iso/016_check_pubkey.t113
6 files changed, 0 insertions, 438 deletions
diff --git a/t_install_iso/010_check_autorun.t b/t_install_iso/010_check_autorun.t
deleted file mode 100644
index ce607fe..0000000
--- a/t_install_iso/010_check_autorun.t
+++ /dev/null
@@ -1,84 +0,0 @@
-# This file is part of the Mageia project
-# Copyright (C) 2011 Damien Lallement <dams@mageia.org>
-# (C) 2011 Romain D'Alverny <rda@mageia.org>
-#
-# This library is free software; you can redistribute it and/or
-# modify it under the terms of the GNU Library General Public
-# License as published by the Free Software Foundation; either
-# version 2 of the License, or (at your option) any later version.
-#
-# This library is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-# Library General Public License for more details.
-#
-# You should have received a copy of the GNU Library General Public License
-# along with this library; see the file COPYING.LIB. If not, write to
-# the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-# Boston, MA 02110-1301, USA.
-#
-#
-# Check autorun
-#
-use Test::Most tests => 12;
-use File::Basename;
-use Tools;
-
-my ($image_path) = @ARGV;
-
-my $name = basename($image_path);
-
-bail_on_fail;
-
-set_failure_handler(sub {
- print "umount iso\n";
- system 'umount /media/iso_check; rm -r /media/iso_check';
-});
-
-#
-ok(-r "/media/iso_check/autorun.inf", 'autorun.inf is there');
-
-BAIL_OUT('Autorun stuff is missing anyway.') if !(-r "/media/iso_check/autorun.inf");
-
-# TODO check media name in autorun.inf (for Windows)
-
-#
-my $lines = `cat -e /media/iso_check/autorun.inf | wc -l`;
-my $num = `cat -e /media/iso_check/autorun.inf | grep "\\^M" | wc -l`;
-chomp($num);
-chomp($lines);
-my $last = `cat -e /media/iso_check/autorun.inf | tail -n 1 | grep "\\^M" | wc -l`;
-
-# TODO rewrite this
-if ($lines != $num && $lines - 1 != $num
- || $lines == 0
- || $lines - 1 == $num && $last == 1) {
- fail('autorun.inf valid EOL chars');
-} else {
- pass('autorun.inf valid EOL chars');
-}
-
-#
-my $directory;
-$directory = "/media/iso_check/autorun/" if -r "/media/iso_check/autorun";
-$directory = "/media/iso_check/dosutils/autorun/" if -r "/media/iso_check/dosutils/autorun";
-ok(-r $directory, 'dosutils directory is there');
-
-#
-my $exe = $directory . "autorun.exe";
-ok(-r $exe, 'autorun.exe is there');
-
-BAIL_OUT('autorun.exe is not here.') if !(-r $exe);
-
-#
-my $file = $directory . "autorun.ico";
-$file = $directory . "mageia.ico" if !(-r $file);
-ok(-r $file, 'autorun.ico is there');
-
-#
-foreach my $a ("de-DE/", "es-ES/", "fr-FR/", "it-IT/", "pt-BR/", "ru-RU/", "zh-CN/") {
- $file = $directory . $a . "autorun.resources.dll";
- ok(-r $file, "$file is there");
-}
-
-done_testing();
diff --git a/t_install_iso/011_check_idx.t b/t_install_iso/011_check_idx.t
deleted file mode 100644
index 8863b9b..0000000
--- a/t_install_iso/011_check_idx.t
+++ /dev/null
@@ -1,97 +0,0 @@
-# This file is part of the Mageia project
-# Copyright (C) 2011 Damien Lallement <dams@mageia.org>
-# (C) 2011 Romain D'Alverny <rda@mageia.org>
-#
-# This library is free software; you can redistribute it and/or
-# modify it under the terms of the GNU Library General Public
-# License as published by the Free Software Foundation; either
-# version 2 of the License, or (at your option) any later version.
-#
-# This library is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-# Library General Public License for more details.
-#
-# You should have received a copy of the GNU Library General Public License
-# along with this library; see the file COPYING.LIB. If not, write to
-# the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-# Boston, MA 02110-1301, USA.
-#
-# TODO
-#
-#
-use Test::Most;
-
-bail_on_fail;
-
-SKIP: {
- skip "TODO", 1 unless 0;
-}
-
-done_testing();
-
-# get the product to verify in idxlist
-sub check_idx {
- my ($log, $distro, $image, $verbo) = @_;
- my $idx;
- my $valid = 1;
- my $col;
- $col = 0 if member($distro, qw(Free FREE));
- $col = 2 if member($distro, qw(PWP Powerpack));
- $col = 3 if member($distro, qw(One ONE one));
- $col = 1 if -r "/media/iso_check/i586/" && -r "/media/iso_check/x86_64/";
- if ($col == 3) {
- substr($image, -3 , 3) = '';
- $idx = $image . "lst";
- $valid &= check_idx_list($idx, $log, $col, $verbo) if -r $idx && -r "idxlist";
- }
- else {
- substr($image, -3 , 3) = '';
- $idx = $image . "idx";
- $valid &= check_idx_list($idx, $log, $col, $verbo) if -r $idx && -r "idxlist";
- }
-
- return $valid;
-}
-
-
-# Verification of the presence of the packages on the iso
-sub check_idx_list {
- my ($idx, $log, $col, $verb) = @_;
- my $pkg;
- my $valid = 1;
- my $file;
- my @media;
-
- print "<Log of check_idx>\n" if $verb;
- print $log "<Log of check_idx>\n";
-
- open(my $list, 'idxlist') or fail('check_idx_list');
- while ($pkg = <$list>) {
- if (substr($pkg, 0, 1) ne '#') {
- chomp($pkg);
- @media = split(/ /, $pkg);
- if ($media[$col] == 1) {
- $file = `cat $idx | cut -d ' ' -f 2 | grep $media[4]` if $col != 3;
- $file = `cat $idx | grep $media[4]` if $col == 3;
- if ($file eq '') {
- print $log "$media[4] NOT FOUND in $idx\n";
- print "$media[4] NOT FOUND in $idx\n" if $verb;
- $valid = 0;
- }
- else {
- print $file if $verb;
- #print $log $file;
- }
- }
- }
- }
- print $log "</Log of check_idx>\n";
- print $log "Comparison between idxlist and .idx OK\n" if $valid != 0;
- print $log "Comparison between idxlist and .idx NOT OK\n" if $valid == 0;
- print "</Log of check_idx>\n" if $verb;
- print "Comparison between idxlist and .idx: OK\n" if $valid != 0 && $verb;
- print "Comparison between idxlist and .idx: NOT OK\n" if $valid == 0 && $verb;
-
- return $valid;
-}
diff --git a/t_install_iso/012_check_ids.t b/t_install_iso/012_check_ids.t
deleted file mode 100644
index 56eed85..0000000
--- a/t_install_iso/012_check_ids.t
+++ /dev/null
@@ -1,41 +0,0 @@
-# This file is part of the Mageia project
-# Copyright (C) 2011 Damien Lallement <dams@mageia.org>
-# (C) 2011 Romain D'Alverny <rda@mageia.org>
-#
-# This library is free software; you can redistribute it and/or
-# modify it under the terms of the GNU Library General Public
-# License as published by the Free Software Foundation; either
-# version 2 of the License, or (at your option) any later version.
-#
-# This library is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-# Library General Public License for more details.
-#
-# You should have received a copy of the GNU Library General Public License
-# along with this library; see the file COPYING.LIB. If not, write to
-# the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-# Boston, MA 02110-1301, USA.
-#
-#
-# Check if PCI ids are on the ISO
-#
-
-use Test::Most tests => 1;
-use File::Basename;
-
-my ($image_path) = @ARGV;
-
-bail_on_fail;
-
-my $valid;
-my $valid2;
-
-$valid = -r "/media/iso_check/i586/isolinux/pci.ids" if -r "/media/iso_check/i586";
-$valid2 = -r "/media/iso_check/x86_64/isolinux/pci.ids" if -r "/media/iso_check/x86_64";
-$valid &= $valid2 if -r "/media/iso_check/x86_64" && -r "/media/iso_check/i586";
-$valid = $valid2 if -r "/media/iso_check/x86_64" && !$valid;
-
-ok($valid, 'HDT can find pci.ids.');
-
-done_testing();
diff --git a/t_install_iso/013_check_rpms.t b/t_install_iso/013_check_rpms.t
deleted file mode 100644
index cd329ac..0000000
--- a/t_install_iso/013_check_rpms.t
+++ /dev/null
@@ -1,50 +0,0 @@
-# This file is part of the Mageia project
-# Copyright (C) 2011 Damien Lallement <dams@mageia.org>
-# (C) 2011 Romain D'Alverny <rda@mageia.org>
-#
-# This library is free software; you can redistribute it and/or
-# modify it under the terms of the GNU Library General Public
-# License as published by the Free Software Foundation; either
-# version 2 of the License, or (at your option) any later version.
-#
-# This library is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-# Library General Public License for more details.
-#
-# You should have received a copy of the GNU Library General Public License
-# along with this library; see the file COPYING.LIB. If not, write to
-# the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-# Boston, MA 02110-1301, USA.
-#
-#
-# Verification of the signature of all the rpm packages present on the iso
-#
-use Test::Most;
-
-bail_on_fail;
-
-SKIP: {
- skip "Not working yet", 1 unless 0;
-
-my $_find = `find /media/iso_check/* -name *.rpm > find_all_rpm.log`;
-open(my $list, 'find_all_rpm.log');
-
-my $pkg;
-my $sign;
-my $valid = 1;
-
-while ($pkg = <$list>) {
- $sign = '';
- chomp($pkg);
- $sign = `rpm -K $pkg | grep 'gpg OK'`;
- ok($sign, "$pkg is correctly signed.");
-
- $valid = 0 if !$sign;
-}
-close($list);
-my $_res = `rm -rf find_all_rpm.log`;
-
-}
-
-done_testing();
diff --git a/t_install_iso/014_check_bad_words.t b/t_install_iso/014_check_bad_words.t
deleted file mode 100644
index 260f323..0000000
--- a/t_install_iso/014_check_bad_words.t
+++ /dev/null
@@ -1,53 +0,0 @@
-# This file is part of the Mageia project
-# Copyright (C) 2011 Damien Lallement <dams@mageia.org>
-# (C) 2011 Romain D'Alverny <rda@mageia.org>
-#
-# This library is free software; you can redistribute it and/or
-# modify it under the terms of the GNU Library General Public
-# License as published by the Free Software Foundation; either
-# version 2 of the License, or (at your option) any later version.
-#
-# This library is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-# Library General Public License for more details.
-#
-# You should have received a copy of the GNU Library General Public License
-# along with this library; see the file COPYING.LIB. If not, write to
-# the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-# Boston, MA 02110-1301, USA.
-#
-#
-# This function search if there is any temporary files ( .file.swp and file~)
-# or file with "bad" words.
-#
-use Test::Most tests => 3;
-
-#bail_on_fail;
-
-# check for temp/hidden files
-my $res = `find /media/iso_check/ -name '*~' -or -iname '*.swp' -or -iname '.svn' -or -iname '.git*'`;
-if ($res) {
- fail('Has no swap temp or hiden RCS files (*~, *.swp, .svn or .git*).');
- note $res;
-} else {
- pass('Has no swap temp or hiden RCS files (*~, *.swp, .svn or .git*).');
-}
-
-# check for bad words in file name or inside files
-$res = `find /media/iso_check/ -iname '*roxx*' -or -iname '*sucks*' -or -iname 'ubuntu*' -or -iname 'microsoft*' -or -iname 'mandrake*' -or -iname 'mandriva' -or -iname 'todo' -or -iname 'delete*'`;
-if ($res) {
- fail('Has no blacklisted words in files names.');
- note $res;
-} else {
- $res = `grep -c -r -l --exclude-dir=media --exclude-dir=dosutils --exclude=release* --exclude=pci.ids --exclude=memtest -i -e mandriva -e ubuntu -e roxx -e sucks -e microsoft -e mandrake -e trash -e delete /media/iso_check/`;
- if ($res) {
- fail('Has no blacklisted words inside files.');
- note $res;
- } else {
- pass('Has no blacklisted words inside files.');
- }
- pass('Has no blacklisted words in files names.');
-}
-
-done_testing();
diff --git a/t_install_iso/016_check_pubkey.t b/t_install_iso/016_check_pubkey.t
deleted file mode 100644
index edf20cb..0000000
--- a/t_install_iso/016_check_pubkey.t
+++ /dev/null
@@ -1,113 +0,0 @@
-# This file is part of the Mageia project
-# Copyright (C) 2011 Damien Lallement <dams@mageia.org>
-# (C) 2011 Romain D'Alverny <rda@mageia.org>
-#
-# This library is free software; you can redistribute it and/or
-# modify it under the terms of the GNU Library General Public
-# License as published by the Free Software Foundation; either
-# version 2 of the License, or (at your option) any later version.
-#
-# This library is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-# Library General Public License for more details.
-#
-# You should have received a copy of the GNU Library General Public License
-# along with this library; see the file COPYING.LIB. If not, write to
-# the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-# Boston, MA 02110-1301, USA.
-#
-#
-# TODO check pubkeys FIXME this looks like a mess.
-# This function get the path of the pubkeys
-#
-use MDK::Common;
-use Test::Most;
-use File::Basename;
-use Tools;
-
-my ($image_path) = @ARGV;
-my $name = basename($image_path);
-my %info = Tools::parse_mageia_iso_name($name);
-
-bail_on_fail;
-
-my $url;
-my $path;
-my $pubkey = 1;
-my $media;
-
-system "ls /media/iso_check/i586/media/ > temp_media_on_iso.log" if -r "/media/iso_check/i586/media/";
-system "ls /media/iso_check/x86_64/media/ >> temp_media_on_iso.log" if -r "/media/iso_check/x86_64/media/";
-
-ok(-r "temp_media_on_iso.log", "Got a log for media contents");
-
-foreach (cat_("temp_media_on_iso.log")) {
- chomp;
- if ($info{arch} ne "dual" && $_ ne 'media_info') {
- $path = "/media/iso_check/" . $info{arch} . "/media/$_/media_info/pubkey";
- $url = "pubkey/" . $info{arch} . "-$_-pubkey";
- #$url .= "-cooker" if !$finale;
- $pubkey &= check_key($path, $url, $_, $info{arch}) if -r $path && -r $url;
- }
- elsif ($_ ne 'media_info') {
- foreach my $arch ("i586", "x86_64") {
- $path = "/media/iso_check/$arch/media/$_/media_info/pubkey";
- $url = "pubkey/$arch-$_-pubkey";
- #$url .= "-cooker" if !$finale;
- -r $path and -r $url and $pubkey &= check_key($path, $url, $_, $arch);
- }
- }
-}
--r "temp_media_on_iso.log" and system "rm temp_media_on_iso.log";
-
-
-#This function get the gpg -a key of the pubkey to compare it
-sub get_gpg {
- my ($pubkey) = @_;
- my $key;
- my $file;
- system "gpg -a $pubkey > get_gpg_key.log";
- open($file, "get_gpg_key.log");
- while (my $a = <$file>) {
- if (substr($a, 0, 11) eq "pub 1024D/") {
- $key = substr($a, 11, 8);
- }
- }
- system "rm get_gpg_key.log";
-
- return $key;
-}
-
-
-#Verification of the pubkey with the original pubkey
-sub check_key { # sed "s/pub\w1024D/\(.*\) /\1/"
- my ($iso_file, $ref_file, $media, $arch) = @_;
- my $unvalid;
- my $valid = 1;
- my $file = get_gpg($iso_file);
- my $sign = `cat $ref_file`;
- chomp($sign);
- if ($file eq $sign) {
- if (member($media, qw(core nonfree))) {
- note "$arch-$media pubkey is valid.\t\tOK\n" if $arch eq 'i586';
- note "$arch-$media pubkey is valid.\t\tOK\n" if $arch eq 'x86_64' && member($media, qw(core nonfree));
- note "$arch-$media pubkey is valid.\tOK\n" if $arch eq 'x86_64' && $media eq 'non-free';
- } else {
- note "$arch-$media pubkey is valid.\tOK\n";
- }
- note "$arch-$media pubkey is valid.\n";
- return $valid;
- } else {
- if (member($media, qw(core))) {
- note "$arch-$media pubkey isn't valid.\t\tNOK\n";
- } else {
- note "$arch-$media pubkey isn't valid.\tNOK\n";
- }
- note "$arch-$media pubkey isn't valid.\n";
- return $unvalid;
- }
- return $unvalid;
-}
-
-done_testing();