diff options
| -rw-r--r-- | test/udev-test.pl | 164 |
1 files changed, 164 insertions, 0 deletions
diff --git a/test/udev-test.pl b/test/udev-test.pl new file mode 100644 index 0000000000..9a54b6192a --- /dev/null +++ b/test/udev-test.pl @@ -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); + |