+ {
+ desc => "multiple symlinks with format char",
+ subsys => "tty",
+ devpath => "/class/tty/ttyUSB0",
+ exp_name => "symlink2-ttyUSB0",
+ exp_target => "ttyUSB0",
+ conf => <<EOF
+KERNEL="ttyUSB[0-9]*", NAME="ttyUSB%n", SYMLINK="symlink1-%n symlink2-%k symlink3-%b"
+EOF
+ },
+ {
+ desc => "symlink creation (same directory)",
+ subsys => "tty",
+ devpath => "/class/tty/ttyUSB0",
+ exp_name => "visor0",
+ exp_target => "ttyUSB0",
+ conf => <<EOF
+KERNEL="ttyUSB[0-9]*", NAME="ttyUSB%n", SYMLINK="visor%n"
+EOF
+ },
+ {
+ desc => "symlink creation (relative link forward)",
+ subsys => "block",
+ devpath => "/block/sda/sda2",
+ exp_name => "1/2/symlink" ,
+ exp_target => "a/b/node",
+ conf => <<EOF
+BUS="scsi", SYSFS{vendor}="IBM-ESXS", NAME="1/2/a/b/node", SYMLINK="1/2/symlink"
+EOF
+ },
+ {
+ desc => "symlink creation (relative link back and forward)",
+ subsys => "block",
+ devpath => "/block/sda/sda2",
+ exp_name => "1/2/c/d/symlink" ,
+ exp_target => "../../a/b/node",
+ conf => <<EOF
+BUS="scsi", SYSFS{vendor}="IBM-ESXS", NAME="1/2/a/b/node", SYMLINK="1/2/c/d/symlink"
+EOF
+ },
+ {
+ desc => "multiple symlinks",
+ subsys => "tty",
+ devpath => "/class/tty/ttyUSB0",
+ exp_name => "second-0" ,
+ exp_target => "visor" ,
+ conf => <<EOF
+KERNEL="ttyUSB0", NAME="visor", SYMLINK="first-%n second-%n third-%n"
+EOF
+ },
+ {
+ desc => "symlink only rule",
+ subsys => "block",
+ devpath => "/block/sda",
+ exp_name => "symlink-only2",
+ exp_target => "link",
+ conf => <<EOF
+BUS="scsi", KERNEL="sda", SYMLINK="symlink-only1"
+BUS="scsi", KERNEL="sda", SYMLINK="symlink-only2"
+BUS="scsi", KERNEL="sda", NAME="link", SYMLINK="symlink0"
+EOF
+ },
+ {
+ desc => "symlink name empty",
+ subsys => "block",
+ devpath => "/block/sda",
+ exp_name => "",
+ exp_target => "link",
+ exp_error => "yes",
+ conf => <<EOF
+BUS="scsi", KERNEL="sda", NAME="link", SYMLINK=""
+EOF
+ },
+ {
+ desc => "symlink name '.'",
+ subsys => "block",
+ devpath => "/block/sda",
+ exp_name => ".",
+ exp_target => "link",
+ exp_error => "yes",
+ conf => <<EOF
+BUS="scsi", KERNEL="sda", NAME="link", SYMLINK="."
+EOF
+ },
+ {
+ desc => "symlink to empty name",
+ subsys => "block",
+ devpath => "/block/sda",
+ exp_name => "symlink",
+ exp_target => "",
+ exp_error => "yes",
+ conf => <<EOF
+BUS="scsi", KERNEL="sda", NAME="", SYMLINK="symlink"
+EOF
+ },
+ {
+ desc => "symlink and name empty",
+ subsys => "block",
+ devpath => "/block/sda",
+ exp_name => "",
+ exp_target => "",
+ exp_error => "yes",
+ conf => <<EOF
+BUS="scsi", KERNEL="sda", NAME="", SYMLINK=""
+EOF
+ },
+ {
+ desc => "symlink node to itself",
+ subsys => "tty",
+ devpath => "/class/tty/tty0",
+ exp_name => "link",
+ exp_target => "link",
+ conf => <<EOF
+KERNEL="tty0", NAME="link", SYMLINK="link"
+EOF
+ },
+ {
+ desc => "symlink %n substitution",
+ subsys => "tty",
+ devpath => "/class/tty/ttyUSB0",
+ exp_name => "symlink0",
+ exp_target => "ttyUSB0",
+ conf => <<EOF
+KERNEL="ttyUSB[0-9]*", NAME="ttyUSB%n", SYMLINK="symlink%n"
+EOF
+ },
+ {
+ desc => "symlink %k substitution",
+ subsys => "tty",
+ devpath => "/class/tty/ttyUSB0",
+ exp_name => "symlink-ttyUSB0",
+ exp_target => "ttyUSB0",
+ conf => <<EOF
+KERNEL="ttyUSB[0-9]*", NAME="ttyUSB%n", SYMLINK="symlink-%k"
+EOF
+ },
+ {
+ desc => "symlink %M:%m substitution",
+ subsys => "tty",
+ devpath => "/class/tty/ttyUSB0",
+ exp_name => "major-188:0",
+ exp_target => "ttyUSB0",
+ conf => <<EOF
+KERNEL="ttyUSB[0-9]*", NAME="ttyUSB%n", SYMLINK="major-%M:%m"
+EOF
+ },
+ {
+ desc => "symlink %b substitution",
+ subsys => "block",
+ devpath => "/block/sda",
+ exp_name => "symlink-0:0:0:0",
+ exp_target => "node",
+ conf => <<EOF
+BUS="scsi", KERNEL="sda", NAME="node", SYMLINK="symlink-%b"
+EOF
+ },
+ {
+ desc => "symlink %c substitution",
+ subsys => "tty",
+ devpath => "/class/tty/ttyUSB0",
+ exp_name => "test",
+ exp_target => "ttyUSB0",
+ conf => <<EOF
+KERNEL="ttyUSB[0-9]*", PROGRAM="/bin/echo test" NAME="ttyUSB%n", SYMLINK="%c"
+EOF
+ },
+ {
+ desc => "symlink %c{N} substitution",
+ subsys => "tty",
+ devpath => "/class/tty/ttyUSB0",
+ exp_name => "test",
+ exp_target => "ttyUSB0",
+ conf => <<EOF
+KERNEL="ttyUSB[0-9]*", PROGRAM="/bin/echo symlink test this" NAME="ttyUSB%n", SYMLINK="%c{2}"
+EOF
+ },
+ {
+ desc => "symlink %c{N+} substitution",
+ subsys => "tty",
+ devpath => "/class/tty/ttyUSB0",
+ exp_name => "this",
+ exp_target => "ttyUSB0",
+ conf => <<EOF
+KERNEL="ttyUSB[0-9]*", PROGRAM="/bin/echo symlink test this" NAME="ttyUSB%n", SYMLINK="%c{2+}"
+EOF
+ },
+ {
+ desc => "symlink only rule with %c{N+}",
+ subsys => "block",
+ devpath => "/block/sda",
+ exp_name => "test",
+ exp_target => "link",
+ conf => <<EOF
+BUS="scsi", KERNEL="sda", PROGRAM="/bin/echo link test this" SYMLINK="%c{2+}"
+BUS="scsi", KERNEL="sda", NAME="link", SYMLINK="symlink0"
+EOF
+ },
+ {
+ desc => "symlink %s{filename} substitution",
+ subsys => "tty",
+ devpath => "/class/tty/ttyUSB0",
+ exp_name => "188:0",
+ exp_target => "ttyUSB0",
+ conf => <<EOF
+KERNEL="ttyUSB[0-9]*", NAME="ttyUSB%n", SYMLINK="%s{dev}"
+EOF
+ },
+ {
+ desc => "symlink %Ns{filename} substitution",
+ subsys => "tty",
+ devpath => "/class/tty/ttyUSB0",
+ exp_name => "188",
+ exp_target => "ttyUSB0",
+ conf => <<EOF
+KERNEL="ttyUSB[0-9]*", NAME="ttyUSB%n", SYMLINK="%3s{dev}"
+EOF
+ },
+ {
+ desc => "symlink with '%' in name",
+ subsys => "tty",
+ devpath => "/class/tty/ttyUSB0",
+ exp_name => "percent%sign",
+ exp_target => "ttyUSB0",
+ conf => <<EOF
+KERNEL="ttyUSB[0-9]*", NAME="ttyUSB%n", SYMLINK="percent%%sign"
+EOF
+ },
+ {
+ desc => "symlink with '%' in name",
+ subsys => "tty",
+ devpath => "/class/tty/ttyUSB0",
+ exp_name => "%ttyUSB0_name",
+ exp_target => "ttyUSB0",
+ conf => <<EOF
+KERNEL="ttyUSB[0-9]*", NAME="ttyUSB%n", SYMLINK="%%%k_name"
+EOF
+ },
+ {
+ desc => "program result substitution (numbered part of)",
+ subsys => "block",
+ devpath => "/block/sda/sda3",
+ exp_name => "link1",
+ exp_target => "node",
+ conf => <<EOF
+BUS="scsi", PROGRAM="/bin/echo -n node link1 link2", RESULT="node *", NAME="%c{1}", SYMLINK="%c{2} %c{3}"
+EOF
+ },
+ {
+ desc => "program result substitution (numbered part of+)",
+ subsys => "block",
+ devpath => "/block/sda/sda3",
+ exp_name => "link4",
+ exp_target => "node",
+ conf => <<EOF
+BUS="scsi", PROGRAM="/bin/echo -n node link1 link2 link3 link4", RESULT="node *", NAME="%c{1}", SYMLINK="%c{2+}"
+EOF
+ },
+ {
+ desc => "enumeration char test (single test)",
+ subsys => "block",
+ devpath => "/block/sda",
+ exp_name => "cdrom",
+ conf => <<EOF
+KERNEL="sda", NAME="cdrom%e"
+EOF
+ },
+ {
+ desc => "enumeration char test sequence 1/5 (keep)",
+ subsys => "block",
+ devpath => "/block/sda",
+ exp_name => "cdrom",
+ option => "keep",
+ conf => <<EOF
+KERNEL="sda", NAME="cdrom%e"
+EOF
+ },
+ {
+ desc => "enumeration char test sequence 2/5 (keep)",
+ subsys => "block",
+ devpath => "/block/sda/sda1",
+ exp_name => "enum",
+ option => "keep",
+ conf => <<EOF
+KERNEL="sda1", NAME="enum%e"
+EOF
+ },
+ {
+ desc => "enumeration char test sequence 3/5 (keep)",
+ subsys => "block",
+ devpath => "/block/sda/sda2",
+ exp_name => "cdrom1",
+ option => "keep",
+ conf => <<EOF
+KERNEL="sda2", NAME="cdrom%e"
+EOF
+ },
+ {
+ desc => "enumeration char test sequence 4/5 (keep)",
+ subsys => "block",
+ devpath => "/block/sda/sda3",
+ exp_name => "enum1",
+ option => "keep",
+ conf => <<EOF
+KERNEL="sda3", NAME="enum%e"
+EOF
+ },
+ {
+ desc => "enumeration char test sequence 5/5 (clean)",
+ subsys => "block",
+ devpath => "/block/sda/sda4",
+ exp_name => "cdrom2",
+ option => "clear",
+ conf => <<EOF
+KERNEL="sda4", NAME="cdrom%e"
+EOF
+ },
+ {
+ desc => "enumeration char test after cleanup (single test)",
+ subsys => "block",
+ devpath => "/block/sda",
+ exp_name => "cdrom",
+ conf => <<EOF
+KERNEL="sda", NAME="cdrom%e"
+EOF
+ },
+ {
+ desc => "ignore rule test",
+ subsys => "block",
+ devpath => "/block/sda",
+ exp_name => "node",
+ exp_error => "yes",
+ conf => <<EOF
+BUS="scsi", KERNEL="sda", NAME="node", OPTIONS="ignore"
+EOF
+ },
+ {
+ desc => "all_partitions, option-only rule",
+ subsys => "block",
+ devpath => "/block/sda",
+ exp_name => "node6",
+ conf => <<EOF
+SUBSYSTEM="block", OPTIONS="all_partitions"
+BUS="scsi", KERNEL="sda", NAME="node"
+EOF
+ },
+ {
+ desc => "all_partitions, option-only rule (fail on partition)",
+ subsys => "block",
+ devpath => "/block/sda/sda1",
+ exp_name => "node6",
+ exp_error => "yes",
+ conf => <<EOF
+SUBSYSTEM="block", OPTIONS="all_partitions"
+BUS="scsi", KERNEL="sda", NAME="node"
+EOF
+ },
+ {
+ desc => "ignore remove event test",
+ subsys => "block",
+ devpath => "/block/sda",
+ exp_name => "node",
+ exp_error => "yes",
+ conf => <<EOF
+BUS="scsi", KERNEL="sda", NAME="node", OPTIONS="ignore_remove"
+EOF
+ },
+ {
+ desc => "ignore remove event test (with all partitions)",
+ subsys => "block",
+ devpath => "/block/sda",
+ exp_name => "node14",
+ exp_error => "yes",
+ option => "clear",
+ conf => <<EOF
+BUS="scsi", KERNEL="sda", NAME="node", OPTIONS="ignore_remove, all_partitions"
+EOF
+ },
+ {
+ desc => "SUBSYSTEM match test",
+ subsys => "block",
+ devpath => "/block/sda",
+ exp_name => "node",
+ conf => <<EOF
+BUS="scsi", KERNEL="sda", NAME="should_not_match", SUBSYSTEM="vc"
+BUS="scsi", KERNEL="sda", NAME="node", SUBSYSTEM="block"
+BUS="scsi", KERNEL="sda", NAME="should_not_match2", SUBSYSTEM="vc"
+EOF
+ },
+ {
+ desc => "DRIVER match test",
+ subsys => "block",
+ devpath => "/block/sda",
+ exp_name => "node",
+ conf => <<EOF
+BUS="scsi", KERNEL="sda", NAME="should_not_match", DRIVER="sd-wrong"
+BUS="scsi", KERNEL="sda", NAME="node", DRIVER="sd"
+EOF
+ },
+ {
+ desc => "temporary node creation test",
+ subsys => "block",
+ devpath => "/block/sda",
+ exp_name => "node",
+ conf => <<EOF
+BUS="scsi", KERNEL="sda", PROGRAM="/usr/bin/test -b %N" NAME="node"
+EOF
+ },
+ {
+ desc => "devpath substitution test",
+ subsys => "block",
+ devpath => "/block/sda",
+ exp_name => "sda",
+ conf => <<EOF
+BUS="scsi", KERNEL="sda", PROGRAM="/bin/echo %p", RESULT="/block/sda" NAME="%k"
+EOF
+ },
+ {
+ desc => "parent node name substitution test sequence 1/2 (keep)",
+ subsys => "block",
+ devpath => "/block/sda",
+ exp_name => "main_device",
+ option => "keep",
+ conf => <<EOF
+BUS="scsi", KERNEL="sda", NAME="main_device"
+EOF
+ },
+ {
+ desc => "parent node name substitution test sequence 2/2 (clean)",
+ subsys => "block",
+ devpath => "/block/sda/sda1",
+ exp_name => "main_device-part-1",
+ option => "clean",
+ conf => <<EOF
+BUS="scsi", KERNEL="sda1", NAME="%P-part-1"
+EOF
+ },
+ {
+ desc => "udev_root substitution",
+ subsys => "block",
+ devpath => "/block/sda/sda1",
+ exp_name => "start-udev-root-end",
+ option => "clean",
+ conf => <<EOF
+BUS="scsi", KERNEL="sda1", NAME="start-%r-end"
+EOF
+ },
+);
+
+# set env
+$ENV{UDEV_TEST} = "yes";
+$ENV{SYSFS_PATH} = $sysfs;
+$ENV{UDEV_CONFIG_FILE} = $main_conf;
+$ENV{UDEV_NO_DEVD} = "yes";
+$ENV{UDEV_NO_HOTPLUGD} = "yes";
+
+
+sub udev {
+ my ($action, $subsys, $devpath, $config) = @_;
+
+ $ENV{DEVPATH} = $devpath;
+
+ # 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");
+}
+
+my $error = 0;
+
+sub permissions_test {
+ my($config, $uid, $gid, $mode) = @_;
+
+ my $wrong = 0;
+ $config->{exp_perms} =~ m/^(.*):(.*):(.*)$/;
+ if ($1 ne "") {
+ if ($uid != $1) { $wrong = 1; };
+ }
+ if ($2 ne "") {
+ if ($gid != $2) { $wrong = 1; };
+ }
+ if ($3 ne "") {
+ if (($mode & 07777) != oct($3)) { $wrong = 1; };
+ }
+ if ($wrong == 0) {
+ print "permissions: ok ";
+ } else {
+ printf "expected permissions are: %i:%i:%#o\n", $1, $2, oct($3);
+ printf "created permissions are : %i:%i:%#o\n", $uid, $gid, $mode & 07777;
+ $error++;
+ }
+}
+
+sub major_minor_test {
+ my($config, $rdev) = @_;
+
+ my $major = ($rdev >> 8) & 0xfff;
+ my $minor = ($rdev & 0xff) | (($rdev >> 12) & 0xfff00);
+ my $wrong = 0;
+
+ $config->{exp_majorminor} =~ m/^(.*):(.*)$/;
+ if ($1 ne "") {
+ if ($major != $1) { $wrong = 1; };
+ }
+ if ($2 ne "") {
+ if ($minor != $2) { $wrong = 1; };
+ }
+ if ($wrong == 0) {
+ print "major:minor: ok ";
+ } else {
+ printf "expected major:minor is: %i:%i\n", $1, $2;
+ printf "created major:minor is : %i:%i\n", $major, $minor;
+ print "major:minor: error ";
+ $error++;
+ }
+}
+
+sub symlink_test {
+ my ($config) = @_;
+
+ my $output = `ls -l $PWD/$udev_root$config->{exp_name}`;
+
+ if ($output =~ m/(.*)-> (.*)/) {
+ if ($2 eq $config->{exp_target}) {
+ print "symlink: ok ";
+ } else {
+ print "expected symlink from: \'$config->{exp_name}\' to \'$config->{exp_target}\'\n";
+ print "created symlink from: \'$config->{exp_name}\' to \'$2\'\n";
+ if ($config->{exp_error}) {
+ print "as expected ";
+ } else {
+ $error++;
+ }
+ }
+ } else {
+ print "expected symlink from: \'$config->{exp_name}\' to \'$config->{exp_target}\'\n";
+ print "symlink: not created ";
+ if ($config->{exp_error}) {
+ print "as expected ";
+ } else {
+ $error++;
+ }
+ }
+}
+
+sub run_test {
+ my ($config, $number) = @_;
+
+ print "TEST $number: $config->{desc}\n";
+
+ if ($config->{exp_target}) {
+ print "device \'$config->{devpath}\' expecting symlink '$config->{exp_name}' to node \'$config->{exp_target}\'\n";
+ } else {
+ print "device \'$config->{devpath}\' expecting node \'$config->{exp_name}\'\n";
+ }
+
+
+ udev("add", $config->{subsys}, $config->{devpath}, \$config->{conf});
+ if ((-e "$PWD/$udev_root$config->{exp_name}") ||
+ (-l "$PWD/$udev_root$config->{exp_name}")) {
+
+ my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size,
+ $atime, $mtime, $ctime, $blksize, $blocks) = stat("$PWD/$udev_root$config->{exp_name}");
+
+ if (defined($config->{exp_perms})) {
+ permissions_test($config, $uid, $gid, $mode);
+ }
+ if (defined($config->{exp_majorminor})) {
+ major_minor_test($config, $rdev);
+ }
+ if (defined($config->{exp_target})) {
+ symlink_test($config);
+ }
+ print "add: ok ";
+ } else {
+ print "add: error ";
+ if ($config->{exp_error}) {
+ print "as expected ";
+ } else {
+ print "\n\n";
+ system("tree $udev_root");
+ print "\n";
+ $error++;
+ }
+ }
+
+ if (defined($config->{option}) && $config->{option} eq "keep") {
+ print "\n\n";
+ return;
+ }
+
+ udev("remove", $config->{subsys}, $config->{devpath}, \$config->{conf});
+ if ((-e "$PWD/$udev_root$config->{exp_name}") ||
+ (-l "$PWD/$udev_root$config->{exp_name}")) {
+ print "remove: error ";
+ if ($config->{exp_error}) {
+ print "as expected\n\n";
+ } else {
+ print "\n\n";
+ system("tree $udev_root");
+ print "\n";
+ $error++;
+ }
+ } else {
+ print "remove: ok\n\n";
+ }
+
+ if (defined($config->{option}) && $config->{option} eq "clear") {
+ system("rm -rf $udev_db");
+ system("rm -rf $udev_root");
+ mkdir($udev_root) || die "unable to create udev_root: $udev_root\n";
+ }
+
+}
+
+# only run if we have root permissions
+# due to mknod restrictions
+if (!($<==0)) {
+ print "Must have root permissions to run properly.\n";
+ exit;
+}
+
+# prepare
+system("rm -rf $udev_root");
+mkdir($udev_root) || die "unable to create udev_root: $udev_root\n";
+
+# create initial config file
+open CONF, ">$main_conf" || die "unable to create config file: $main_conf";
+print CONF "udev_root=\"$udev_root\"\n";
+print CONF "udev_db=\"$udev_db\"\n";
+print CONF "udev_rules=\"$conf_tmp\"\n";
+close CONF;
+
+my $test_num = 1;
+
+if ($ARGV[0]) {
+ # only run one test
+ $test_num = $ARGV[0];
+
+ if (defined($tests[$test_num-1]->{desc})) {
+ print "udev-test will run test number $test_num only:\n\n";
+ run_test($tests[$test_num-1], $test_num);
+ } else {
+ print "test does not exist.\n";
+ }
+} else {
+ # test all
+ print "\nudev-test will run ".($#tests + 1)." tests:\n\n";