From c612a0acc8c45303b5c40538b87e406ac22a26ef Mon Sep 17 00:00:00 2001
From: "kay.sievers@vrfy.org" <kay.sievers@vrfy.org>
Date: Fri, 12 Mar 2004 00:58:33 -0800
Subject: [PATCH] [PATCH] add permission tests

> Any chance on being able to add a test for this kind of stuff to the
> udev-test.pl script?

Sure, not brilliant but seems to work :)
Only numeric id's are supported so far.
---
 test/udev-test.pl | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

diff --git a/test/udev-test.pl b/test/udev-test.pl
index c12a21ee..e345b20c 100644
--- a/test/udev-test.pl
+++ b/test/udev-test.pl
@@ -522,6 +522,16 @@ 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     => "permissions test",
+		subsys   => "block",
+		devpath  => "block/sda",
+		expected => "node",
+		perms    => "5000::0444",
+		conf     => <<EOF
+BUS="scsi", KERNEL="sda", NAME="node", OWNER="5000", MODE="0444"
 EOF
 	},
 );
@@ -556,6 +566,26 @@ sub run_test {
 
 	udev("add", $config->{subsys}, $config->{devpath}, \$config->{conf});
 	if (-e "$PWD/$udev_root$config->{expected}") {
+		if (defined($config->{perms})) {
+			my $wrong = 0;
+			my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size,
+			    $atime, $mtime, $ctime, $blksize, $blocks) = stat("$PWD/$udev_root$config->{expected}");
+
+			$config->{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 == 1) {
+				printf "expected permissions are: %i:%i:%#o\n", $1, $2, oct($3);
+				printf "created permissions are : %i:%i:%#o\n", $uid, $gid, $mode & 07777;
+			}
+		}
 		print "add: ok    ";
 	} else {
 		print "add: error\n";
-- 
2.39.5