[PATCH] add udev-test perl script from Kay Sievers <kay.sievers@vrfy.org> which blows away my puny shell scripts.
This commit is contained in:
greg@kroah.com
Greg KH
parent
75d0730c84
commit
a367f04ee0
|
|
@ -0,0 +1,164 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
# udev-test
|
||||
#
|
||||
# Provides automated testing of the udev binary.
|
||||
# The whole test is self contained in this file, except the matching sysfs tree.
|
||||
# Simply extend the @tests array, to add a new test variant.
|
||||
#
|
||||
# Every test is driven by its own temporary config file.
|
||||
# This program prepares the environment, creates the config and calls udev.
|
||||
#
|
||||
# udev reads the config, looks at the provided sysfs and
|
||||
# first creates and then removes the device node.
|
||||
# After creation and removal the result is checked against the
|
||||
# expected value and the result is printed.
|
||||
#
|
||||
# happy testing,
|
||||
# Kay Sievers <kay.sievers@vrfy.org>, 2003
|
||||
|
||||
|
||||
use warnings;
|
||||
use strict;
|
||||
|
||||
my $PWD = `pwd`;
|
||||
chomp($PWD);
|
||||
|
||||
my $sysfs = "sys/";
|
||||
my $udev_bin = "../udev";
|
||||
my $udev_root = "udev-root/"; # !!! directory will be removed !!!
|
||||
my $udev_db = "udev.tdb";
|
||||
my $perm = "udev.permissions";
|
||||
my $conf_tmp = "udev-test.config";
|
||||
|
||||
|
||||
my @tests = (
|
||||
{
|
||||
desc => "label test of scsi disc",
|
||||
subsys => "block",
|
||||
devpath => "block/sda",
|
||||
expected => "boot_disk" ,
|
||||
conf => <<EOF
|
||||
LABEL, BUS="scsi", vendor="IBM-ESXS", NAME="boot_disk%n"
|
||||
REPLACE, KERNEL="ttyUSB0", NAME="visor""
|
||||
EOF
|
||||
},
|
||||
{
|
||||
desc => "label test of scsi partition",
|
||||
subsys => "block",
|
||||
devpath => "block/sda/sda1",
|
||||
expected => "boot_disk1" ,
|
||||
conf => <<EOF
|
||||
LABEL, BUS="scsi", vendor="IBM-ESXS", NAME="boot_disk%n"
|
||||
EOF
|
||||
},
|
||||
{
|
||||
desc => "replace kernel name",
|
||||
subsys => "tty",
|
||||
devpath => "class/tty/ttyUSB0",
|
||||
expected => "visor" ,
|
||||
conf => <<EOF
|
||||
REPLACE, KERNEL="ttyUSB0", NAME="visor"
|
||||
EOF
|
||||
},
|
||||
{
|
||||
desc => "place on bus of scsi partition",
|
||||
subsys => "block",
|
||||
devpath => "block/sda/sda3",
|
||||
expected => "first_disk3" ,
|
||||
conf => <<EOF
|
||||
TOPOLOGY, BUS="scsi", PLACE="0:0:0:0", NAME="first_disk%n"
|
||||
EOF
|
||||
},
|
||||
{
|
||||
desc => "test NAME substitution chars",
|
||||
subsys => "block",
|
||||
devpath => "block/sda/sda3",
|
||||
expected => "Major:8:minor:3:kernelnumber:3:bus:0:0:0:0" ,
|
||||
conf => <<EOF
|
||||
TOPOLOGY, BUS="scsi", PLACE="0:0:0:0", NAME="Major:%M:minor:%m:kernelnumber:%n:bus:%b"
|
||||
EOF
|
||||
},
|
||||
{
|
||||
desc => "callout result subtitution, only last should match",
|
||||
subsys => "block",
|
||||
devpath => "block/sda/sda3",
|
||||
expected => "special-device-3" ,
|
||||
conf => <<EOF
|
||||
CALLOUT, BUS="scsi", PROGRAM="/bin/echo -n special-device", ID="-special-*", NAME="%c-1-%n"
|
||||
CALLOUT, BUS="scsi", PROGRAM="/bin/echo -n special-device", ID="special--*", NAME="%c-2-%n"
|
||||
CALLOUT, BUS="scsi", PROGRAM="/bin/echo -n special-device", ID="special-device-", NAME="%c-3-%n"
|
||||
CALLOUT, BUS="scsi", PROGRAM="/bin/echo -n special-device", ID="special-devic", NAME="%c-4-%n"
|
||||
CALLOUT, BUS="scsi", PROGRAM="/bin/echo -n special-device", ID="special-*", NAME="%c-%n"
|
||||
EOF
|
||||
},
|
||||
);
|
||||
|
||||
# set env
|
||||
$ENV{UDEV_TEST} = "yes";
|
||||
$ENV{SYSFS_PATH} = $sysfs;
|
||||
$ENV{UDEV_CONFIG_DIR} = "./";
|
||||
$ENV{UDEV_ROOT} = $udev_root;
|
||||
$ENV{UDEV_DB} = $udev_db;
|
||||
$ENV{UDEV_PERMISSION_FILE} = $perm;
|
||||
|
||||
|
||||
sub udev {
|
||||
my ($action, $subsys, $devpath, $config) = @_;
|
||||
|
||||
$ENV{DEVPATH} = $devpath;
|
||||
$ENV{UDEV_CONFIG_FILE} = $conf_tmp;
|
||||
|
||||
# create temporary config
|
||||
open CONF, ">$conf_tmp" || die "unable to create config file: $conf_tmp";
|
||||
print CONF $$config;
|
||||
close CONF;
|
||||
|
||||
$ENV{ACTION} = $action;
|
||||
system("$udev_bin $subsys");
|
||||
}
|
||||
|
||||
|
||||
# prepare
|
||||
system("rm -rf $udev_root");
|
||||
mkdir($udev_root) || die "unable to create udev_root: $udev_root\n";
|
||||
|
||||
# test
|
||||
my $error;
|
||||
print "\nudev-test will run ".($#tests + 1)." tests:\n\n";
|
||||
|
||||
foreach my $config (@tests) {
|
||||
$config->{conf} =~ m/^([A-Z]*).*/;
|
||||
my $method = $1;
|
||||
|
||||
print "TEST: $config->{desc}\n";
|
||||
print "method \'$method\' for \'$config->{devpath}\' expecting node \'$config->{expected}\'\n";
|
||||
|
||||
udev("add", $config->{subsys}, $config->{devpath}, \$config->{conf});
|
||||
if (-e "$PWD/$udev_root$config->{expected}") {
|
||||
print "add: ok ";
|
||||
} else {
|
||||
print "add: error\n";
|
||||
system("tree $udev_root");
|
||||
print "\n";
|
||||
$error++;
|
||||
# next;
|
||||
}
|
||||
|
||||
udev("remove", $config->{subsys}, $config->{devpath}, \$config->{conf});
|
||||
if (-e "$PWD/$udev_root$config->{expected}") {
|
||||
print "remove: error\n\n";
|
||||
system("tree $udev_root");
|
||||
$error++;
|
||||
} else {
|
||||
print "remove: ok\n\n";
|
||||
}
|
||||
}
|
||||
|
||||
print "$error errors occured\n\n";
|
||||
|
||||
# cleanup
|
||||
system("rm -rf $udev_root");
|
||||
unlink($conf_tmp);
|
||||
unlink($udev_db);
|
||||
|
||||
Loading…
Reference in New Issue