+ {
+ desc => "multiple symlinks with format char",
+ subsys => "tty",
+ devpath => "/class/tty/ttyUSB0",
+ exp_name => "symlink2-ttyUSB0",
+ exp_target => "ttyUSB0",
+ rules => <<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",
+ rules => <<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",
+ rules => <<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",
+ rules => <<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" ,
+ rules => <<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",
+ rules => <<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 '.'",
+ subsys => "block",
+ devpath => "/block/sda",
+ exp_name => ".",
+ exp_target => "link",
+ exp_add_error => "yes",
+ exp_rem_error => "yes",
+ rules => <<EOF
+BUS=="scsi", KERNEL=="sda", NAME="link", SYMLINK+="."
+EOF
+ },
+ {
+ desc => "symlink node to itself",
+ subsys => "tty",
+ devpath => "/class/tty/tty0",
+ exp_name => "link",
+ exp_target => "link",
+ exp_rem_error => "yes",
+ option => "clean",
+ rules => <<EOF
+KERNEL=="tty0", NAME="link", SYMLINK+="link"
+EOF
+ },
+ {
+ desc => "symlink %n substitution",
+ subsys => "tty",
+ devpath => "/class/tty/ttyUSB0",
+ exp_name => "symlink0",
+ exp_target => "ttyUSB0",
+ rules => <<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",
+ rules => <<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",
+ rules => <<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",
+ rules => <<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",
+ rules => <<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",
+ rules => <<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",
+ rules => <<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",
+ rules => <<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",
+ rules => <<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",
+ rules => <<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",
+ rules => <<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",
+ rules => <<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",
+ rules => <<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",
+ rules => <<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",
+ rules => <<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",
+ rules => <<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",
+ rules => <<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",
+ rules => <<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",
+ rules => <<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 => "clean",
+ rules => <<EOF
+KERNEL=="sda4", NAME="cdrom%e"
+EOF
+ },
+ {
+ desc => "enumeration char test after cleanup (single test)",
+ subsys => "block",
+ devpath => "/block/sda",
+ exp_name => "cdrom",
+ rules => <<EOF
+KERNEL=="sda", NAME="cdrom%e"
+EOF
+ },
+ {
+ desc => "ignore rule test",
+ subsys => "block",
+ devpath => "/block/sda",
+ exp_name => "node",
+ exp_add_error => "yes",
+ rules => <<EOF
+BUS=="scsi", KERNEL=="sda", NAME="node", OPTIONS="ignore"
+EOF
+ },
+ {
+ desc => "all_partitions, option-only rule",
+ subsys => "block",
+ devpath => "/block/sda",
+ exp_name => "node6",
+ rules => <<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_add_error => "yes",
+ rules => <<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_rem_error => "yes",
+ rules => <<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_rem_error => "yes",
+ option => "clean",
+ rules => <<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",
+ rules => <<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",
+ rules => <<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",
+ rules => <<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",
+ rules => <<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",
+ rules => <<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",
+ rules => <<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",
+ rules => <<EOF
+BUS=="scsi", KERNEL=="sda1", NAME="start-%r-end"
+EOF
+ },
+ {
+ desc => "last_rule option",
+ subsys => "block",
+ devpath => "/block/sda/sda1",
+ exp_name => "last",
+ rules => <<EOF
+BUS=="scsi", KERNEL=="sda1", SYMLINK+="last", OPTIONS="last_rule"
+BUS=="scsi", KERNEL=="sda1", NAME="very-last"
+EOF
+ },
+ {
+ desc => "negation KERNEL!=",
+ subsys => "block",
+ devpath => "/block/sda/sda1",
+ exp_name => "match",
+ rules => <<EOF
+BUS=="scsi", KERNEL!="sda1", NAME="matches-but-is-negated"
+BUS=="scsi", KERNEL!="xsda1", NAME="match"
+BUS=="scsi", KERNEL=="sda1", NAME="wrong"
+EOF
+ },
+ {
+ desc => "negation SUBSYSTEM!=",
+ subsys => "block",
+ devpath => "/block/sda/sda1",
+ exp_name => "not-anything",
+ rules => <<EOF
+BUS=="scsi", SUBSYSTEM=="block", KERNEL!="sda1", NAME="matches-but-is-negated"
+BUS=="scsi", SUBSYSTEM!="anything", NAME="not-anything"
+BUS=="scsi", KERNEL=="sda1", NAME="wrong"
+EOF
+ },
+ {
+ desc => "negation PROGRAM!= exit code",
+ subsys => "block",
+ devpath => "/block/sda/sda1",
+ exp_name => "nonzero-program",
+ rules => <<EOF
+KERNEL=="sda1", PROGRAM!="/bin/false", NAME="nonzero-program"
+BUS=="scsi", KERNEL=="sda1", NAME="wrong"
+EOF
+ },
+ {
+ desc => "test for whitespace between the operator",
+ subsys => "block",
+ devpath => "/block/sda/sda1",
+ exp_name => "true",
+ rules => <<EOF
+KERNEL == "sda1" , NAME = "true"
+BUS=="scsi", KERNEL=="sda1", NAME="wrong"
+EOF
+ },
+ {
+ desc => "ENV{} test",
+ subsys => "block",
+ devpath => "/block/sda/sda1",
+ exp_name => "true",
+ rules => <<EOF
+BUS=="scsi", KERNEL=="sda1", ENV{ENV_KEY_TEST}=="go", NAME="wrong"
+BUS=="scsi", KERNEL=="sda1", ENV{ENV_KEY_TEST}=="test", NAME="true"
+BUS=="scsi", KERNEL=="sda1", ENV{ENV_KEY_TEST}=="bad", NAME="bad"
+EOF
+ },
+ {
+ desc => "ENV{} test",
+ subsys => "block",
+ devpath => "/block/sda/sda1",
+ exp_name => "true",
+ rules => <<EOF
+BUS=="scsi", KERNEL=="sda1", ENV{ENV_KEY_TEST}=="go", NAME="wrong"
+BUS=="scsi", KERNEL=="sda1", ENV{ENV_KEY_TEST}=="yes", ENV{ACTION}=="add", ENV{DEVPATH}=="/block/sda/sdax1", NAME="no"
+BUS=="scsi", KERNEL=="sda1", ENV{ENV_KEY_TEST}=="test", ENV{ACTION}=="add", ENV{DEVPATH}=="/block/sda/sda1", NAME="true"
+BUS=="scsi", KERNEL=="sda1", ENV{ENV_KEY_TEST}=="bad", NAME="bad"
+EOF
+ },
+ {
+ desc => "untrusted string sanitize",
+ subsys => "block",
+ devpath => "/block/sda/sda1",
+ exp_name => "sane",
+ rules => <<EOF
+BUS=="scsi", KERNEL=="sda1", PROGRAM=="/bin/echo -e name; (/sbin/badprogram)", RESULT="name_ _/sbin/badprogram_", NAME="sane"
+EOF
+ },
+ {
+ desc => "read sysfs value from device down in the chain",
+ subsys => "block",
+ devpath => "/class/tty/ttyUSB0",
+ exp_name => "serial-0000:00:09.0",
+ rules => <<EOF
+KERNEL=="ttyUSB*", NAME="serial-%s{serial}"
+EOF
+ },
+ {
+ desc => "match against empty key string",
+ subsys => "block",
+ devpath => "/block/sda",
+ exp_name => "ok",
+ rules => <<EOF
+KERNEL=="sda", SYSFS{nothing}!="", NAME="not-1-ok"
+KERNEL=="sda", SYSFS{nothing}=="", NAME="not-2-ok"
+KERNEL=="sda", SYSFS{vendor}!="", NAME="ok"
+KERNEL=="sda", SYSFS{vendor}=="", NAME="not-3-ok"
+EOF
+ },
+ {
+ desc => "check ACTION value",
+ subsys => "block",
+ devpath => "/block/sda",
+ exp_name => "ok",
+ rules => <<EOF
+ACTION=="unknown", KERNEL=="sda", NAME="unknown-not-ok"
+ACTION=="add", KERNEL=="sda", NAME="ok"
+EOF
+ },
+ {
+ desc => "apply NAME only once",
+ subsys => "block",
+ devpath => "/block/sda",
+ exp_name => "link",
+ exp_target => "ok",
+ rules => <<EOF
+KERNEL=="sda", NAME="ok"
+KERNEL=="sda", NAME="not-ok"
+KERNEL=="sda", SYMLINK+="link"
+EOF
+ },
+ {
+ desc => "test RUN key",
+ subsys => "block",
+ devpath => "/block/sda",
+ exp_name => "testsymlink",
+ exp_target => "ok",
+ exp_rem_error => "yes",
+ option => "clean",
+ rules => <<EOF
+KERNEL=="sda", NAME="ok", RUN+="/bin/ln -s ok %r/testsymlink"
+KERNEL=="sda", NAME="not-ok"
+EOF
+ },
+ {
+ desc => "test RUN key and DEVNAME",
+ subsys => "block",
+ devpath => "/block/sda",
+ exp_name => "testsymlink",
+ exp_target => "ok",
+ exp_rem_error => "yes",
+ option => "clean",
+ rules => <<EOF
+KERNEL=="sda", NAME="ok", RUN+="/bin/sh -c 'ln -s `basename \$DEVNAME` %r/testsymlink'"
+KERNEL=="sda", NAME="not-ok"
+EOF
+ },
+ {
+ desc => "test RUN key remove",
+ subsys => "block",
+ devpath => "/block/sda",
+ exp_name => "testsymlink2",
+ exp_target => "ok2",
+ rules => <<EOF
+KERNEL=="sda", NAME="ok2", RUN+="/bin/ln -s ok2 %r/testsymlink2"
+KERNEL=="sda", ACTION=="remove", RUN+="/bin/rm -f %r/testsymlink2"
+KERNEL=="sda", NAME="not-ok2"
+EOF
+ },
+ {
+ desc => "final assignment",
+ subsys => "block",
+ devpath => "/block/sda",
+ exp_name => "ok",
+ exp_perms => "root:nobody:0640",
+ rules => <<EOF
+KERNEL=="sda", GROUP:="nobody"
+KERNEL=="sda", GROUP="not-ok", MODE="0640", NAME="ok"
+EOF
+ },
+ {
+ desc => "final assignment",
+ subsys => "block",
+ devpath => "/block/sda",
+ exp_name => "ok",
+ exp_perms => "root:nobody:0640",
+ rules => <<EOF
+KERNEL=="sda", GROUP:="nobody"
+SUBSYSTEM=="block", MODE:="640"
+KERNEL=="sda", GROUP="not-ok", MODE="0666", NAME="ok"
+EOF
+ },
+ {
+ desc => "reset list to current value",
+ subsys => "tty",
+ devpath => "/class/tty/ttyUSB0",
+ exp_name => "three",
+ not_exp_name => "two",
+ exp_target => "node",
+ rules => <<EOF
+KERNEL=="ttyUSB[0-9]*", SYMLINK+="one"
+KERNEL=="ttyUSB[0-9]*", SYMLINK+="two"
+KERNEL=="ttyUSB[0-9]*", SYMLINK="three"
+KERNEL=="ttyUSB[0-9]*", NAME="node"
+EOF
+ },
+);
+
+# set env
+$ENV{ENV_KEY_TEST} = "test";
+$ENV{SYSFS_PATH} = $sysfs;
+$ENV{UDEV_CONFIG_FILE} = $udev_conf;
+$ENV{UDEV_NO_DEVD} = "yes";
+$ENV{UDEV_NO_HOTPLUGD} = "yes";
+
+
+sub udev {
+ my ($action, $subsys, $devpath, $rules) = @_;
+
+ $ENV{DEVPATH} = $devpath;
+
+ # create temporary rules
+ open CONF, ">$udev_rules" || die "unable to create rules file: $udev_rules";
+ print CONF $$rules;
+ close CONF;
+
+ $ENV{ACTION} = $action;
+ system("$udev_bin $subsys");
+}
+
+my $error = 0;
+
+sub permissions_test {
+ my($rules, $uid, $gid, $mode) = @_;
+
+ my $wrong = 0;
+ my $userid;
+ my $groupid;
+
+ $rules->{exp_perms} =~ m/^(.*):(.*):(.*)$/;
+ if ($1 ne "") {
+ if (defined(getpwnam($1))) {
+ $userid = int(getpwnam($1));
+ } else {
+ $userid = $1;
+ }
+ if ($uid != $userid) { $wrong = 1; }
+ }
+ if ($2 ne "") {
+ if (defined(getgrnam($2))) {
+ $groupid = int(getgrnam($2));
+ } else {
+ $groupid = $2;
+ }
+ if ($gid != $groupid) { $wrong = 1; }
+ }
+ if ($3 ne "") {
+ if (($mode & 07777) != oct($3)) { $wrong = 1; };
+ }
+ if ($wrong == 0) {
+ print "permissions: ok\n";
+ } else {
+ printf " expected permissions are: %s:%s:%#o\n", $1, $2, oct($3);
+ printf " created permissions are : %i:%i:%#o\n", $uid, $gid, $mode & 07777;
+ print "permissions: error\n";
+ $error++;
+ }
+}
+
+sub major_minor_test {
+ my($rules, $rdev) = @_;
+
+ my $major = ($rdev >> 8) & 0xfff;
+ my $minor = ($rdev & 0xff) | (($rdev >> 12) & 0xfff00);
+ my $wrong = 0;
+
+ $rules->{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\n";
+ } 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\n";
+ $error++;
+ }
+}
+
+sub symlink_test {
+ my ($rules) = @_;
+
+ my $output = `ls -l $PWD/$udev_root$rules->{exp_name}`;
+
+ if ($output =~ m/(.*)-> (.*)/) {
+ if ($2 eq $rules->{exp_target}) {
+ print "symlink: ok\n";
+ } else {
+ print " expected symlink from: \'$rules->{exp_name}\' to \'$rules->{exp_target}\'\n";
+ print " created symlink from: \'$rules->{exp_name}\' to \'$2\'\n";
+ print "symlink: error";
+ if ($rules->{exp_add_error}) {
+ print " as expected\n";
+ } else {
+ print "\n";
+ $error++;
+ }
+ }
+ } else {
+ print " expected symlink from: \'$rules->{exp_name}\' to \'$rules->{exp_target}\'\n";
+ print "symlink: not created";
+ if ($rules->{exp_add_error}) {
+ print " as expected\n";
+ } else {
+ print "\n";
+ $error++;
+ }
+ }
+}
+
+sub run_test {
+ my ($rules, $number) = @_;
+
+ print "TEST $number: $rules->{desc}\n";
+
+ if ($rules->{exp_target}) {
+ print "device \'$rules->{devpath}\' expecting symlink '$rules->{exp_name}' to node \'$rules->{exp_target}\'\n";
+ } else {
+ print "device \'$rules->{devpath}\' expecting node \'$rules->{exp_name}\'\n";
+ }
+
+
+ udev("add", $rules->{subsys}, $rules->{devpath}, \$rules->{rules});
+ if ((-e "$PWD/$udev_root$rules->{exp_name}") ||
+ (-l "$PWD/$udev_root$rules->{exp_name}")) {
+
+ my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size,
+ $atime, $mtime, $ctime, $blksize, $blocks) = stat("$PWD/$udev_root$rules->{exp_name}");
+
+ if (defined($rules->{not_exp_name})) {
+ if ((-e "$PWD/$udev_root$rules->{not_exp_name}") ||
+ (-l "$PWD/$udev_root$rules->{not_exp_name}")) {
+ print "nonexistent: error \'$rules->{not_exp_name}\' not expected to be there\n";
+ $error++
+ }
+ }
+ if (defined($rules->{exp_perms})) {
+ permissions_test($rules, $uid, $gid, $mode);
+ }
+ if (defined($rules->{exp_majorminor})) {
+ major_minor_test($rules, $rdev);
+ }
+ if (defined($rules->{exp_target})) {
+ symlink_test($rules);
+ }
+ print "add: ok\n";
+ } else {
+ print "add: error";
+ if ($rules->{exp_add_error}) {
+ print " as expected\n";
+ } else {
+ print "\n";
+ system("tree $udev_root");
+ print "\n";
+ $error++;
+ }
+ }
+
+ if (defined($rules->{option}) && $rules->{option} eq "keep") {
+ print "\n\n";
+ return;
+ }
+
+ udev("remove", $rules->{subsys}, $rules->{devpath}, \$rules->{rules});
+ if ((-e "$PWD/$udev_root$rules->{exp_name}") ||
+ (-l "$PWD/$udev_root$rules->{exp_name}")) {
+ print "remove: error";
+ if ($rules->{exp_rem_error}) {
+ print " as expected\n";
+ } else {
+ print "\n";
+ system("tree $udev_root");
+ print "\n";
+ $error++;
+ }
+ } else {
+ print "remove: ok\n";
+ }
+
+ print "\n";
+
+ if (defined($rules->{option}) && $rules->{option} eq "clean") {
+ 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 config file
+open CONF, ">$udev_conf" || die "unable to create config file: $udev_conf";
+print CONF "udev_root=\"$udev_root\"\n";
+print CONF "udev_db=\"$udev_db\"\n";
+print CONF "udev_rules=\"$udev_rules\"\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";
+
+ foreach my $rules (@tests) {
+ run_test($rules, $test_num);
+ $test_num++;