test/udev-test.pl

   1 #!/usr/bin/perl
   2
   3 # udev-test
   4 #
   5 # Provides automated testing of the udev binary.
   6 # The whole test is self contained in this file, except the matching sysfs tree.
   7 # Simply extend the @tests array, to add a new test variant.
   8 #
   9 # Every test is driven by its own temporary config file.
  10 # This program prepares the environment, creates the config and calls udev.
  11 #
  12 # udev parses the rules, looks at the provided sysfs and
  13 # first creates and then removes the device node.
  14 # After creation and removal the result is checked against the
  15 # expected value and the result is printed.
  16 #
  17 # Copyright (C) 2004-2006 Kay Sievers <kay.sievers@vrfy.org>
  18 # Copyright (C) 2004 Leann Ogasawara <ogasawara@osdl.org>
  19
  20 use warnings;
  21 use strict;
  22
  23 my $PWD                 = $ENV{PWD};
  24 my $sysfs               = "sys/";
  25 my $udev_bin            = "../udev/test-udev";
  26 my $valgrind            = 0;
  27 my $udev_bin_valgrind   = "valgrind --tool=memcheck --leak-check=yes --quiet $udev_bin";
  28 my $udev_root           = "udev-root/";
  29 my $udev_conf           = "udev-test.conf";
  30 my $udev_rules          = "udev-test.rules";
  31
  32 my @tests = (
  33         {
  34                 desc            => "label test of scsi disc (old key names)",
  35                 subsys          => "block",
  36                 devpath         => "/block/sda",
  37                 exp_name        => "boot_disk" ,
  38                 rules           => <<EOF
  39 SUBSYSTEMS=="scsi", SYSFS{vendor}=="IBM-ESXS", NAME="boot_disk%n"
  40 KERNEL=="ttyUSB0", NAME="visor"
  41 EOF
  42         },
  43         {
  44                 desc            => "label test of scsi disc (old key names)",
  45                 subsys          => "block",
  46                 devpath         => "/block/sda",
  47                 exp_name        => "boot_disk" ,
  48                 rules           => <<EOF
  49 SUBSYSTEMS=="scsi", SYSFS{vendor}=="IBM-ESXS", NAME="boot_disk%n"
  50 KERNEL=="ttyUSB0", NAME="visor"
  51 EOF
  52         },
  53         {
  54                 desc            => "label test of scsi disc",
  55                 subsys          => "block",
  56                 devpath         => "/block/sda",
  57                 exp_name        => "boot_disk" ,
  58                 rules           => <<EOF
  59 SUBSYSTEMS=="scsi", ATTRS{vendor}=="IBM-ESXS", NAME="boot_disk%n"
  60 KERNEL=="ttyUSB0", NAME="visor"
  61 EOF
  62         },
  63         {
  64                 desc            => "label test of scsi partition",
  65                 subsys          => "block",
  66                 devpath         => "/block/sda/sda1",
  67                 exp_name        => "boot_disk1" ,
  68                 rules           => <<EOF
  69 SUBSYSTEMS=="scsi", ATTRS{vendor}=="IBM-ESXS", NAME="boot_disk%n"
  70 EOF
  71         },
  72         {
  73                 desc            => "label test of pattern match",
  74                 subsys          => "block",
  75                 devpath         => "/block/sda/sda1",
  76                 exp_name        => "boot_disk1" ,
  77                 rules           => <<EOF
  78 SUBSYSTEMS=="scsi", ATTRS{vendor}=="?IBM-ESXS", NAME="boot_disk%n-1"
  79 SUBSYSTEMS=="scsi", ATTRS{vendor}=="IBM-ESXS?", NAME="boot_disk%n-2"
  80 SUBSYSTEMS=="scsi", ATTRS{vendor}=="IBM-ES??", NAME="boot_disk%n"
  81 SUBSYSTEMS=="scsi", ATTRS{vendor}=="IBM-ESXSS", NAME="boot_disk%n-3"
  82 EOF
  83         },
  84         {
  85                 desc            => "label test of multiple sysfs files",
  86                 subsys          => "block",
  87                 devpath         => "/block/sda/sda1",
  88                 exp_name        => "boot_disk1" ,
  89                 rules           => <<EOF
  90 SUBSYSTEMS=="scsi", ATTRS{vendor}=="IBM-ESXS", ATTRS{model}=="ST336605LW   !#", NAME="boot_diskX%n"
  91 SUBSYSTEMS=="scsi", ATTRS{vendor}=="IBM-ESXS", ATTRS{model}=="ST336605LW    !#", NAME="boot_disk%n"
  92 EOF
  93         },
  94         {
  95                 desc            => "label test of max sysfs files",
  96                 subsys          => "block",
  97                 devpath         => "/block/sda/sda1",
  98                 exp_name        => "boot_disk1" ,
  99                 rules           => <<EOF
 100 SUBSYSTEMS=="scsi", ATTRS{vendor}=="IBM-ESXS", ATTRS{model}=="ST336605LW    !#", ATTRS{scsi_level}=="4", ATTRS{rev}=="B245", ATTRS{type}=="0", ATTRS{queue_depth}=="32", NAME="boot_diskXX%n"
 101 SUBSYSTEMS=="scsi", ATTRS{vendor}=="IBM-ESXS", ATTRS{model}=="ST336605LW    !#", ATTRS{scsi_level}=="4", ATTRS{rev}=="B245", ATTRS{type}=="0", NAME="boot_disk%n"
 102 EOF
 103         },
 104         {
 105                 desc            => "catch device by *",
 106                 subsys          => "tty",
 107                 devpath         => "/class/tty/ttyUSB0",
 108                 exp_name        => "visor/0" ,
 109                 rules           => <<EOF
 110 KERNEL=="ttyUSB*", NAME="visor/%n"
 111 EOF
 112         },
 113         {
 114                 desc            => "catch device by * - take 2",
 115                 subsys          => "tty",
 116                 devpath         => "/class/tty/ttyUSB0",
 117                 exp_name        => "visor/0" ,
 118                 rules           => <<EOF
 119 KERNEL=="*USB1", NAME="bad"
 120 KERNEL=="*USB0", NAME="visor/%n"
 121 EOF
 122         },
 123         {
 124                 desc            => "catch device by ?",
 125                 subsys          => "tty",
 126                 devpath         => "/class/tty/ttyUSB0",
 127                 exp_name        => "visor/0" ,
 128                 rules           => <<EOF
 129 KERNEL=="ttyUSB??*", NAME="visor/%n-1"
 130 KERNEL=="ttyUSB??", NAME="visor/%n-2"
 131 KERNEL=="ttyUSB?", NAME="visor/%n"
 132 EOF
 133         },
 134         {
 135                 desc            => "catch device by character class",
 136                 subsys          => "tty",
 137                 devpath         => "/class/tty/ttyUSB0",
 138                 exp_name        => "visor/0" ,
 139                 rules           => <<EOF
 140 KERNEL=="ttyUSB[A-Z]*", NAME="visor/%n-1"
 141 KERNEL=="ttyUSB?[0-9]", NAME="visor/%n-2"
 142 KERNEL=="ttyUSB[0-9]*", NAME="visor/%n"
 143 EOF
 144         },
 145         {
 146                 desc            => "replace kernel name",
 147                 subsys          => "tty",
 148                 devpath         => "/class/tty/ttyUSB0",
 149                 exp_name        => "visor" ,
 150                 rules           => <<EOF
 151 KERNEL=="ttyUSB0", NAME="visor"
 152 EOF
 153         },
 154         {
 155                 desc            => "Handle comment lines in config file (and replace kernel name)",
 156                 subsys          => "tty",
 157                 devpath         => "/class/tty/ttyUSB0",
 158                 exp_name        => "visor" ,
 159                 rules           => <<EOF
 160 # this is a comment
 161 KERNEL=="ttyUSB0", NAME="visor"
 162
 163 EOF
 164         },
 165         {
 166                 desc            => "Handle comment lines in config file with whitespace (and replace kernel name)",
 167                 subsys          => "tty",
 168                 devpath         => "/class/tty/ttyUSB0",
 169                 exp_name        => "visor" ,
 170                 rules           => <<EOF
 171  # this is a comment with whitespace before the comment
 172 KERNEL=="ttyUSB0", NAME="visor"
 173
 174 EOF
 175         },
 176         {
 177                 desc            => "Handle whitespace only lines (and replace kernel name)",
 178                 subsys          => "tty",
 179                 devpath         => "/class/tty/ttyUSB0",
 180                 exp_name        => "whitespace" ,
 181                 rules           => <<EOF
 182
 183
 184
 185  # this is a comment with whitespace before the comment
 186 KERNEL=="ttyUSB0", NAME="whitespace"
 187
 188
 189
 190 EOF
 191         },
 192         {
 193                 desc            => "Handle empty lines in config file (and replace kernel name)",
 194                 subsys          => "tty",
 195                 devpath         => "/class/tty/ttyUSB0",
 196                 exp_name        => "visor" ,
 197                 rules           => <<EOF
 198
 199 KERNEL=="ttyUSB0", NAME="visor"
 200
 201 EOF
 202         },
 203         {
 204                 desc            => "Handle backslashed multi lines in config file (and replace kernel name)",
 205                 subsys          => "tty",
 206                 devpath         => "/class/tty/ttyUSB0",
 207                 exp_name        => "visor" ,
 208                 rules           => <<EOF
 209 KERNEL=="ttyUSB0", \\
 210 NAME="visor"
 211
 212 EOF
 213         },
 214         {
 215                 desc            => "preserve backslashes, if they are not for a newline",
 216                 subsys          => "tty",
 217                 devpath         => "/class/tty/ttyUSB0",
 218                 exp_name        => "aaa",
 219                 rules           => <<EOF
 220 KERNEL=="ttyUSB0", PROGRAM=="/bin/echo -e \\101", RESULT=="A", NAME="aaa"
 221 EOF
 222         },
 223         {
 224                 desc            => "Handle stupid backslashed multi lines in config file (and replace kernel name)",
 225                 subsys          => "tty",
 226                 devpath         => "/class/tty/ttyUSB0",
 227                 exp_name        => "visor" ,
 228                 rules           => <<EOF
 229
 230 #
 231 \\
 232
 233 \\\\
 234
 235 #\\
 236
 237 KERNEL=="ttyUSB0", \\
 238         NAME="visor"
 239
 240 EOF
 241         },
 242         {
 243                 desc            => "subdirectory handling",
 244                 subsys          => "tty",
 245                 devpath         => "/class/tty/ttyUSB0",
 246                 exp_name        => "sub/direct/ory/visor" ,
 247                 rules           => <<EOF
 248 KERNEL=="ttyUSB0", NAME="sub/direct/ory/visor"
 249 EOF
 250         },
 251         {
 252                 desc            => "parent device name match of scsi partition",
 253                 subsys          => "block",
 254                 devpath         => "/block/sda/sda3",
 255                 exp_name        => "first_disk3" ,
 256                 rules           => <<EOF
 257 SUBSYSTEMS=="scsi", KERNELS=="0:0:0:0", NAME="first_disk%n"
 258 EOF
 259         },
 260         {
 261                 desc            => "test substitution chars (old key names)",
 262                 subsys          => "block",
 263                 devpath         => "/block/sda/sda3",
 264                 exp_name        => "Major:8:minor:3:kernelnumber:3:id:0:0:0:0" ,
 265                 rules           => <<EOF
 266 BUS=="scsi", ID=="0:0:0:0", NAME="Major:%M:minor:%m:kernelnumber:%n:id:%b"
 267 EOF
 268         },
 269         {
 270                 desc            => "test substitution chars",
 271                 subsys          => "block",
 272                 devpath         => "/block/sda/sda3",
 273                 exp_name        => "Major:8:minor:3:kernelnumber:3:id:0:0:0:0" ,
 274                 rules           => <<EOF
 275 SUBSYSTEMS=="scsi", KERNELS=="0:0:0:0", NAME="Major:%M:minor:%m:kernelnumber:%n:id:%b"
 276 EOF
 277         },
 278         {
 279                 desc            => "test substitution chars (with length limit)",
 280                 subsys          => "block",
 281                 devpath         => "/block/sda/sda3",
 282                 exp_name        => "M8-m3-n3-b0:0-sIBM" ,
 283                 rules           => <<EOF
 284 SUBSYSTEMS=="scsi", KERNELS=="0:0:0:0", NAME="M%M-m%m-n%n-b%3b-s%3s{vendor}"
 285 EOF
 286         },
 287         {
 288                 desc            => "import of shell-value file",
 289                 subsys          => "block",
 290                 devpath         => "/block/sda",
 291                 exp_name        => "subdir/info/node" ,
 292                 rules           => <<EOF
 293 SUBSYSTEMS=="scsi", IMPORT{file}="udev-test.conf", NAME="subdir/%E{udev_log}/node"
 294 KERNEL=="ttyUSB0", NAME="visor"
 295 EOF
 296         },
 297         {
 298                 desc            => "import of shell-value returned from program",
 299                 subsys          => "block",
 300                 devpath         => "/block/sda",
 301                 exp_name        => "node12345678",
 302                 rules           => <<EOF
 303 SUBSYSTEMS=="scsi", IMPORT="/bin/echo -e \' TEST_KEY=12345678\\n  TEST_key2=98765\'", NAME="node\$env{TEST_KEY}"
 304 KERNEL=="ttyUSB0", NAME="visor"
 305 EOF
 306         },
 307         {
 308                 desc            => "sustitution of sysfs value (%s{file})",
 309                 subsys          => "block",
 310                 devpath         => "/block/sda",
 311                 exp_name        => "disk-IBM-ESXS-sda" ,
 312                 rules           => <<EOF
 313 SUBSYSTEMS=="scsi", ATTRS{vendor}=="IBM-ESXS", NAME="disk-%s{vendor}-%k"
 314 KERNEL=="ttyUSB0", NAME="visor"
 315 EOF
 316         },
 317         {
 318                 desc            => "program result substitution",
 319                 subsys          => "block",
 320                 devpath         => "/block/sda/sda3",
 321                 exp_name        => "special-device-3" ,
 322                 rules           => <<EOF
 323 SUBSYSTEMS=="scsi", PROGRAM=="/bin/echo -n special-device", RESULT=="-special-*", NAME="%c-1-%n"
 324 SUBSYSTEMS=="scsi", PROGRAM=="/bin/echo -n special-device", RESULT=="special--*", NAME="%c-2-%n"
 325 SUBSYSTEMS=="scsi", PROGRAM=="/bin/echo -n special-device", RESULT=="special-device-", NAME="%c-3-%n"
 326 SUBSYSTEMS=="scsi", PROGRAM=="/bin/echo -n special-device", RESULT=="special-devic", NAME="%c-4-%n"
 327 SUBSYSTEMS=="scsi", PROGRAM=="/bin/echo -n special-device", RESULT=="special-*", NAME="%c-%n"
 328 EOF
 329         },
 330         {
 331                 desc            => "program result substitution (newline removal)",
 332                 subsys          => "block",
 333                 devpath         => "/block/sda/sda3",
 334                 exp_name        => "newline_removed" ,
 335                 rules           => <<EOF
 336 SUBSYSTEMS=="scsi", PROGRAM=="/bin/echo test", RESULT=="test", NAME="newline_removed"
 337 EOF
 338         },
 339         {
 340                 desc            => "program result substitution",
 341                 subsys          => "block",
 342                 devpath         => "/block/sda/sda3",
 343                 exp_name        => "test-0:0:0:0" ,
 344                 rules           => <<EOF
 345 SUBSYSTEMS=="scsi", PROGRAM=="/bin/echo -n test-%b", RESULT=="test-0:0*", NAME="%c"
 346 EOF
 347         },
 348         {
 349                 desc            => "program with escaped format char (tricky: callout returns format char!)",
 350                 subsys          => "block",
 351                 devpath         => "/block/sda/sda3",
 352                 exp_name        => "escape-3" ,
 353                 rules           => <<EOF
 354 SUBSYSTEMS=="scsi", PROGRAM=="/bin/echo -n escape-%%n", KERNEL=="sda3", NAME="%c"
 355 EOF
 356         },
 357         {
 358                 desc            => "program with lots of arguments",
 359                 subsys          => "block",
 360                 devpath         => "/block/sda/sda3",
 361                 exp_name        => "foo9" ,
 362                 rules           => <<EOF
 363 SUBSYSTEMS=="scsi", PROGRAM=="/bin/echo -n foo3 foo4 foo5 foo6 foo7 foo8 foo9", KERNEL=="sda3", NAME="%c{7}"
 364 EOF
 365         },
 366         {
 367                 desc            => "program with subshell",
 368                 subsys          => "block",
 369                 devpath         => "/block/sda/sda3",
 370                 exp_name        => "bar9" ,
 371                 rules           => <<EOF
 372 SUBSYSTEMS=="scsi", PROGRAM=="/bin/sh -c 'echo foo3 foo4 foo5 foo6 foo7 foo8 foo9 | sed  s/foo9/bar9/'", KERNEL=="sda3", NAME="%c{7}"
 373 EOF
 374         },
 375         {
 376                 desc            => "program arguments combined with apostrophes",
 377                 subsys          => "block",
 378                 devpath         => "/block/sda/sda3",
 379                 exp_name        => "foo7" ,
 380                 rules           => <<EOF
 381 SUBSYSTEMS=="scsi", PROGRAM=="/bin/echo -n 'foo3 foo4'   'foo5   foo6   foo7 foo8'", KERNEL=="sda3", NAME="%c{5}"
 382 EOF
 383         },
 384         {
 385                 desc            => "characters before the %c{N} substitution",
 386                 subsys          => "block",
 387                 devpath         => "/block/sda/sda3",
 388                 exp_name        => "my-foo9" ,
 389                 rules           => <<EOF
 390 SUBSYSTEMS=="scsi", PROGRAM=="/bin/echo -n foo3 foo4 foo5 foo6 foo7 foo8 foo9", KERNEL=="sda3", NAME="my-%c{7}"
 391 EOF
 392         },
 393         {
 394                 desc            => "substitute the second to last argument",
 395                 subsys          => "block",
 396                 devpath         => "/block/sda/sda3",
 397                 exp_name        => "my-foo8" ,
 398                 rules           => <<EOF
 399 SUBSYSTEMS=="scsi", PROGRAM=="/bin/echo -n foo3 foo4 foo5 foo6 foo7 foo8 foo9", KERNEL=="sda3", NAME="my-%c{6}"
 400 EOF
 401         },
 402         {
 403                 desc            => "test substitution by variable name",
 404                 subsys          => "block",
 405                 devpath         => "/block/sda/sda3",
 406                 exp_name        => "Major:8-minor:3-kernelnumber:3-id:0:0:0:0",
 407                 rules           => <<EOF
 408 SUBSYSTEMS=="scsi", KERNELS=="0:0:0:0", NAME="Major:\$major-minor:\$minor-kernelnumber:\$number-id:\$id"
 409 EOF
 410         },
 411         {
 412                 desc            => "test substitution by variable name 2",
 413                 subsys          => "block",
 414                 devpath         => "/block/sda/sda3",
 415                 exp_name        => "Major:8-minor:3-kernelnumber:3-id:0:0:0:0",
 416                 rules           => <<EOF
 417 SUBSYSTEMS=="scsi", KERNELS=="0:0:0:0", DEVPATH=="*/sda/*", NAME="Major:\$major-minor:%m-kernelnumber:\$number-id:\$id"
 418 EOF
 419         },
 420         {
 421                 desc            => "test substitution by variable name 3",
 422                 subsys          => "block",
 423                 devpath         => "/block/sda/sda3",
 424                 exp_name        => "830:0:0:03" ,
 425                 rules           => <<EOF
 426 SUBSYSTEMS=="scsi", KERNELS=="0:0:0:0", DEVPATH=="*/sda/*", NAME="%M%m%b%n"
 427 EOF
 428         },
 429         {
 430                 desc            => "test substitution by variable name 4",
 431                 subsys          => "block",
 432                 devpath         => "/block/sda/sda3",
 433                 exp_name        => "833" ,
 434                 rules           => <<EOF
 435 SUBSYSTEMS=="scsi", KERNELS=="0:0:0:0", DEVPATH=="*/sda/*", NAME="\$major\$minor\$number"
 436 EOF
 437         },
 438         {
 439                 desc            => "test substitution by variable name 5",
 440                 subsys          => "block",
 441                 devpath         => "/block/sda/sda3",
 442                 exp_name        => "8330:0:0:0" ,
 443                 rules           => <<EOF
 444 SUBSYSTEMS=="scsi", KERNELS=="0:0:0:0", DEVPATH=="*/sda/*", NAME="\$major%m%n\$id"
 445 EOF
 446         },
 447         {
 448                 desc            => "non matching SUBSYSTEMS for device with no parent",
 449                 subsys          => "tty",
 450                 devpath         => "/class/tty/console",
 451                 exp_name        => "TTY",
 452                 rules           => <<EOF
 453 SUBSYSTEMS=="scsi", PROGRAM=="/bin/echo -n foo", RESULT=="foo", NAME="foo"
 454 KERNEL=="console", NAME="TTY"
 455 EOF
 456         },
 457         {
 458                 desc            => "non matching SUBSYSTEMS",
 459                 subsys          => "tty",
 460                 devpath         => "/class/tty/console",
 461                 exp_name        => "TTY" ,
 462                 rules           => <<EOF
 463 SUBSYSTEMS=="foo", ATTRS{dev}=="5:1", NAME="foo"
 464 KERNEL=="console", NAME="TTY"
 465 EOF
 466         },
 467         {
 468                 desc            => "ATTRS match",
 469                 subsys          => "tty",
 470                 devpath         => "/class/tty/console",
 471                 exp_name        => "foo" ,
 472                 rules           => <<EOF
 473 ATTRS{dev}=="5:1", NAME="foo"
 474 KERNEL=="console", NAME="TTY"
 475 EOF
 476         },
 477         {
 478                 desc            => "program and bus type match",
 479                 subsys          => "block",
 480                 devpath         => "/block/sda",
 481                 exp_name        => "scsi-0:0:0:0" ,
 482                 rules           => <<EOF
 483 SUBSYSTEMS=="usb", PROGRAM=="/bin/echo -n usb-%b", NAME="%c"
 484 SUBSYSTEMS=="scsi", PROGRAM=="/bin/echo -n scsi-%b", NAME="%c"
 485 SUBSYSTEMS=="foo", PROGRAM=="/bin/echo -n foo-%b", NAME="%c"
 486 EOF
 487         },
 488         {
 489                 desc            => "create all possible partitions",
 490                 subsys          => "block",
 491                 devpath         => "/block/sda",
 492                 exp_name        => "boot_disk15" ,
 493                 exp_majorminor  => "8:15",
 494                 rules           => <<EOF
 495 SUBSYSTEMS=="scsi", ATTRS{vendor}=="IBM-ESXS", NAME{all_partitions}="boot_disk"
 496 EOF
 497         },
 498         {
 499                 desc            => "sysfs parent hierarchy",
 500                 subsys          => "tty",
 501                 devpath         => "/class/tty/ttyUSB0",
 502                 exp_name        => "visor" ,
 503                 rules           => <<EOF
 504 ATTRS{idProduct}=="2008", NAME="visor"
 505 EOF
 506         },
 507         {
 508                 desc            => "name test with ! in the name",
 509                 subsys          => "block",
 510                 devpath         => "/block/rd!c0d0",
 511                 exp_name        => "rd/c0d0" ,
 512                 rules           => <<EOF
 513 SUBSYSTEMS=="scsi", NAME="%k"
 514 KERNEL=="ttyUSB0", NAME="visor"
 515 EOF
 516         },
 517         {
 518                 desc            => "name test with ! in the name, but no matching rule",
 519                 subsys          => "block",
 520                 devpath         => "/block/rd!c0d0",
 521                 exp_name        => "rd/c0d0" ,
 522                 rules           => <<EOF
 523 KERNEL=="ttyUSB0", NAME="visor"
 524 EOF
 525         },
 526         {
 527                 desc            => "name test with ! in the name for a partition",
 528                 subsys          => "block",
 529                 devpath         => "/block/cciss!c0d0/cciss!c0d0p1",
 530                 exp_name        => "cciss/c0d0p1" ,
 531                 rules           => <<EOF
 532 SUBSYSTEMS=="scsi", NAME="%k"
 533 KERNEL=="ttyUSB0", NAME="visor"
 534 EOF
 535         },
 536         {
 537                 desc            => "KERNELS rule",
 538                 subsys          => "block",
 539                 devpath         => "/block/sda",
 540                 exp_name        => "scsi-0:0:0:0",
 541                 rules           => <<EOF
 542 SUBSYSTEMS=="usb", KERNELS=="0:0:0:0", NAME="not-scsi"
 543 SUBSYSTEMS=="scsi", KERNELS=="0:0:0:1", NAME="no-match"
 544 SUBSYSTEMS=="scsi", KERNELS==":0", NAME="short-id"
 545 SUBSYSTEMS=="scsi", KERNELS=="/0:0:0:0", NAME="no-match"
 546 SUBSYSTEMS=="scsi", KERNELS=="0:0:0:0", NAME="scsi-0:0:0:0"
 547 EOF
 548         },
 549         {
 550                 desc            => "KERNELS wildcard all",
 551                 subsys          => "block",
 552                 devpath         => "/block/sda",
 553                 exp_name        => "scsi-0:0:0:0",
 554                 rules           => <<EOF
 555 SUBSYSTEMS=="scsi", KERNELS=="*:1", NAME="no-match"
 556 SUBSYSTEMS=="scsi", KERNELS=="*:0:1", NAME="no-match"
 557 SUBSYSTEMS=="scsi", KERNELS=="*:0:0:1", NAME="no-match"
 558 SUBSYSTEMS=="scsi", KERNELS=="*", NAME="scsi-0:0:0:0"
 559 SUBSYSTEMS=="scsi", KERNELS=="0:0:0:0", NAME="bad"
 560 EOF
 561         },
 562         {
 563                 desc            => "KERNELS wildcard partial",
 564                 subsys          => "block",
 565                 devpath         => "/block/sda",
 566                 exp_name        => "scsi-0:0:0:0",
 567                 rules           => <<EOF
 568 SUBSYSTEMS=="scsi", KERNELS=="*:0", NAME="scsi-0:0:0:0"
 569 SUBSYSTEMS=="scsi", KERNELS=="0:0:0:0", NAME="bad"
 570 EOF
 571         },
 572         {
 573                 desc            => "KERNELS wildcard partial 2",
 574                 subsys          => "block",
 575                 devpath         => "/block/sda",
 576                 exp_name        => "scsi-0:0:0:0",
 577                 rules           => <<EOF
 578 SUBSYSTEMS=="scsi", KERNELS=="*:0:0:0", NAME="scsi-0:0:0:0"
 579 SUBSYSTEMS=="scsi", KERNELS=="0:0:0:0", NAME="bad"
 580 EOF
 581         },
 582         {
 583                 desc            => "substitute attr with link target value (first match)",
 584                 subsys          => "block",
 585                 devpath         => "/block/sda",
 586                 exp_name        => "driver-is-sd",
 587                 rules           => <<EOF
 588 SUBSYSTEMS=="scsi", NAME="driver-is-\$attr{driver}"
 589 EOF
 590         },
 591         {
 592                 desc            => "substitute attr with link target value (currently selected device)",
 593                 subsys          => "block",
 594                 devpath         => "/block/sda",
 595                 exp_name        => "driver-is-aic7xxx",
 596                 rules           => <<EOF
 597 SUBSYSTEMS=="pci", NAME="driver-is-\$attr{driver}"
 598 EOF
 599         },
 600         {
 601                 desc            => "ignore ATTRS attribute whitespace",
 602                 subsys          => "block",
 603                 devpath         => "/block/sda",
 604                 exp_name        => "ignored",
 605                 rules           => <<EOF
 606 SUBSYSTEMS=="scsi", ATTRS{whitespace_test}=="WHITE  SPACE", NAME="ignored"
 607 EOF
 608         },
 609         {
 610                 desc            => "do not ignore ATTRS attribute whitespace",
 611                 subsys          => "block",
 612                 devpath         => "/block/sda",
 613                 exp_name        => "matched-with-space",
 614                 rules           => <<EOF
 615 SUBSYSTEMS=="scsi", ATTRS{whitespace_test}=="WHITE  SPACE ", NAME="wrong-to-ignore"
 616 SUBSYSTEMS=="scsi", ATTRS{whitespace_test}=="WHITE  SPACE   ", NAME="matched-with-space"
 617 EOF
 618         },
 619         {
 620                 desc            => "permissions USER=bad GROUP=name",
 621                 subsys          => "tty",
 622                 devpath         => "/class/tty/tty33",
 623                 exp_name        => "tty33",
 624                 exp_perms       => "0:0:0660",
 625                 rules           => <<EOF
 626 KERNEL=="tty33", NAME="tty33", OWNER="bad", GROUP="name"
 627 EOF
 628         },
 629         {
 630                 desc            => "permissions OWNER=5000",
 631                 subsys          => "block",
 632                 devpath         => "/block/sda",
 633                 exp_name        => "node",
 634                 exp_perms       => "5000::0660",
 635                 rules           => <<EOF
 636 SUBSYSTEMS=="scsi", KERNEL=="sda", NAME="node", OWNER="5000"
 637 EOF
 638         },
 639         {
 640                 desc            => "permissions GROUP=100",
 641                 subsys          => "block",
 642                 devpath         => "/block/sda",
 643                 exp_name        => "node",
 644                 exp_perms       => ":100:0660",
 645                 rules           => <<EOF
 646 SUBSYSTEMS=="scsi", KERNEL=="sda", NAME="node", GROUP="100"
 647 EOF
 648         },
 649         {
 650                 desc            => "textual user id",
 651                 subsys          => "block",
 652                 devpath         => "/block/sda",
 653                 exp_name        => "node",
 654                 exp_perms       => "nobody::0660",
 655                 rules           => <<EOF
 656 SUBSYSTEMS=="scsi", KERNEL=="sda", NAME="node", OWNER="nobody"
 657 EOF
 658         },
 659         {
 660                 desc            => "textual group id",
 661                 subsys          => "block",
 662                 devpath         => "/block/sda",
 663                 exp_name        => "node",
 664                 exp_perms       => ":daemon:0660",
 665                 rules           => <<EOF
 666 SUBSYSTEMS=="scsi", KERNEL=="sda", NAME="node", GROUP="daemon"
 667 EOF
 668         },
 669         {
 670                 desc            => "textual user/group id",
 671                 subsys          => "block",
 672                 devpath         => "/block/sda",
 673                 exp_name        => "node",
 674                 exp_perms       => "root:mail:0660",
 675                 rules           => <<EOF
 676 SUBSYSTEMS=="scsi", KERNEL=="sda", NAME="node", OWNER="root", GROUP="mail"
 677 EOF
 678         },
 679         {
 680                 desc            => "permissions MODE=0777",
 681                 subsys          => "block",
 682                 devpath         => "/block/sda",
 683                 exp_name        => "node",
 684                 exp_perms       => "::0777",
 685                 rules           => <<EOF
 686 SUBSYSTEMS=="scsi", KERNEL=="sda", NAME="node", MODE="0777"
 687 EOF
 688         },
 689         {
 690                 desc            => "permissions OWNER=5000 GROUP=100 MODE=0777",
 691                 subsys          => "block",
 692                 devpath         => "/block/sda",
 693                 exp_name        => "node",
 694                 exp_perms       => "5000:100:0777",
 695                 rules           => <<EOF
 696 SUBSYSTEMS=="scsi", KERNEL=="sda", NAME="node", OWNER="5000", GROUP="100", MODE="0777"
 697 EOF
 698         },
 699         {
 700                 desc            => "permissions OWNER to 5000",
 701                 subsys          => "tty",
 702                 devpath         => "/class/tty/ttyUSB0",
 703                 exp_name        => "ttyUSB0",
 704                 exp_perms       => "5000::",
 705                 rules           => <<EOF
 706 KERNEL=="ttyUSB[0-9]*", NAME="ttyUSB%n", OWNER="5000"
 707 EOF
 708         },
 709         {
 710                 desc            => "permissions GROUP to 100",
 711                 subsys          => "tty",
 712                 devpath         => "/class/tty/ttyUSB0",
 713                 exp_name        => "ttyUSB0",
 714                 exp_perms       => ":100:0660",
 715                 rules           => <<EOF
 716 KERNEL=="ttyUSB[0-9]*", NAME="ttyUSB%n", GROUP="100"
 717 EOF
 718         },
 719         {
 720                 desc            => "permissions MODE to 0060",
 721                 subsys          => "tty",
 722                 devpath         => "/class/tty/ttyUSB0",
 723                 exp_name        => "ttyUSB0",
 724                 exp_perms       => "::0060",
 725                 rules           => <<EOF
 726 KERNEL=="ttyUSB[0-9]*", NAME="ttyUSB%n", MODE="0060"
 727 EOF
 728         },
 729         {
 730                 desc            => "permissions OWNER, GROUP, MODE",
 731                 subsys          => "tty",
 732                 devpath         => "/class/tty/ttyUSB0",
 733                 exp_name        => "ttyUSB0",
 734                 exp_perms       => "5000:100:0777",
 735                 rules           => <<EOF
 736 KERNEL=="ttyUSB[0-9]*", NAME="ttyUSB%n", OWNER="5000", GROUP="100", MODE="0777"
 737 EOF
 738         },
 739         {
 740                 desc            => "permissions only rule",
 741                 subsys          => "tty",
 742                 devpath         => "/class/tty/ttyUSB0",
 743                 exp_name        => "ttyUSB0",
 744                 exp_perms       => "5000:100:0777",
 745                 rules           => <<EOF
 746 KERNEL=="ttyUSB[0-9]*", OWNER="5000", GROUP="100", MODE="0777"
 747 KERNEL=="ttyUSX[0-9]*", OWNER="5001", GROUP="101", MODE="0444"
 748 KERNEL=="ttyUSB[0-9]*", NAME="ttyUSB%n"
 749 EOF
 750         },
 751         {
 752                 desc            => "multiple permissions only rule",
 753                 subsys          => "tty",
 754                 devpath         => "/class/tty/ttyUSB0",
 755                 exp_name        => "ttyUSB0",
 756                 exp_perms       => "3000:4000:0777",
 757                 rules           => <<EOF
 758 SUBSYSTEM=="tty", OWNER="3000"
 759 SUBSYSTEM=="tty", GROUP="4000"
 760 SUBSYSTEM=="tty", MODE="0777"
 761 KERNEL=="ttyUSX[0-9]*", OWNER="5001", GROUP="101", MODE="0444"
 762 KERNEL=="ttyUSB[0-9]*", NAME="ttyUSB%n"
 763 EOF
 764         },
 765         {
 766                 desc            => "permissions only rule with override at NAME rule",
 767                 subsys          => "tty",
 768                 devpath         => "/class/tty/ttyUSB0",
 769                 exp_name        => "ttyUSB0",
 770                 exp_perms       => "3000:8000:0777",
 771                 rules           => <<EOF
 772 SUBSYSTEM=="tty", OWNER="3000"
 773 SUBSYSTEM=="tty", GROUP="4000"
 774 SUBSYSTEM=="tty", MODE="0777"
 775 KERNEL=="ttyUSX[0-9]*", OWNER="5001", GROUP="101", MODE="0444"
 776 KERNEL=="ttyUSB[0-9]*", NAME="ttyUSB%n", GROUP="8000"
 777 EOF
 778         },
 779         {
 780                 desc            => "major/minor number test",
 781                 subsys          => "block",
 782                 devpath         => "/block/sda",
 783                 exp_name        => "node",
 784                 exp_majorminor  => "8:0",
 785                 rules           => <<EOF
 786 SUBSYSTEMS=="scsi", KERNEL=="sda", NAME="node"
 787 EOF
 788         },
 789         {
 790                 desc            => "big minor number test",
 791                 subsys          => "i2c-dev",
 792                 devpath         => "/class/i2c-dev/i2c-300",
 793                 exp_name        => "node",
 794                 exp_majorminor  => "89:300",
 795                 rules           => <<EOF
 796 KERNEL=="i2c-300", NAME="node"
 797 EOF
 798         },
 799         {
 800                 desc            => "big major number test",
 801                 subsys          => "i2c-dev",
 802                 devpath         => "/class/i2c-dev/i2c-fake1",
 803                 exp_name        => "node",
 804                 exp_majorminor  => "4095:1",
 805                 rules           => <<EOF
 806 KERNEL=="i2c-fake1", NAME="node"
 807 EOF
 808         },
 809         {
 810                 desc            => "big major and big minor number test",
 811                 subsys          => "i2c-dev",
 812                 devpath         => "/class/i2c-dev/i2c-fake2",
 813                 exp_name        => "node",
 814                 exp_majorminor  => "4094:89999",
 815                 rules           => <<EOF
 816 KERNEL=="i2c-fake2", NAME="node"
 817 EOF
 818         },
 819         {
 820                 desc            => "multiple symlinks with format char",
 821                 subsys          => "tty",
 822                 devpath         => "/class/tty/ttyUSB0",
 823                 exp_name        => "symlink2-ttyUSB0",
 824                 exp_target      => "ttyUSB0",
 825                 rules           => <<EOF
 826 KERNEL=="ttyUSB[0-9]*", NAME="ttyUSB%n", SYMLINK="symlink1-%n symlink2-%k symlink3-%b"
 827 EOF
 828         },
 829         {
 830                 desc            => "multiple symlinks with a lot of s p a c e s",
 831                 subsys          => "tty",
 832                 devpath         => "/class/tty/ttyUSB0",
 833                 exp_name        => "one",
 834                 not_exp_name    => " ",
 835                 exp_target      => "ttyUSB0",
 836                 rules           => <<EOF
 837 KERNEL=="ttyUSB[0-9]*", NAME="ttyUSB%n", SYMLINK="  one     two        "
 838 EOF
 839         },
 840         {
 841                 desc            => "symlink creation (same directory)",
 842                 subsys          => "tty",
 843                 devpath         => "/class/tty/ttyUSB0",
 844                 exp_name        => "visor0",
 845                 exp_target      => "ttyUSB0",
 846                 rules           => <<EOF
 847 KERNEL=="ttyUSB[0-9]*", NAME="ttyUSB%n", SYMLINK="visor%n"
 848 EOF
 849         },
 850         {
 851                 desc            => "symlink creation (relative link forward)",
 852                 subsys          => "block",
 853                 devpath         => "/block/sda/sda2",
 854                 exp_name        => "1/2/symlink" ,
 855                 exp_target      => "a/b/node",
 856                 rules           => <<EOF
 857 SUBSYSTEMS=="scsi", ATTRS{vendor}=="IBM-ESXS", NAME="1/2/a/b/node", SYMLINK="1/2/symlink"
 858 EOF
 859         },
 860         {
 861                 desc            => "symlink creation (relative link back and forward)",
 862                 subsys          => "block",
 863                 devpath         => "/block/sda/sda2",
 864                 exp_name        => "1/2/c/d/symlink" ,
 865                 exp_target      => "../../a/b/node",
 866                 rules           => <<EOF
 867 SUBSYSTEMS=="scsi", ATTRS{vendor}=="IBM-ESXS", NAME="1/2/a/b/node", SYMLINK="1/2/c/d/symlink"
 868 EOF
 869         },
 870         {
 871                 desc            => "multiple symlinks",
 872                 subsys          => "tty",
 873                 devpath         => "/class/tty/ttyUSB0",
 874                 exp_name        => "second-0" ,
 875                 exp_target      => "visor" ,
 876                 rules           => <<EOF
 877 KERNEL=="ttyUSB0", NAME="visor", SYMLINK="first-%n second-%n third-%n"
 878 EOF
 879         },
 880         {
 881                 desc            => "symlink only rule",
 882                 subsys          => "block",
 883                 devpath         => "/block/sda",
 884                 exp_name        => "symlink-only2",
 885                 exp_target      => "link",
 886                 rules           => <<EOF
 887 SUBSYSTEMS=="scsi", KERNEL=="sda", SYMLINK+="symlink-only1"
 888 SUBSYSTEMS=="scsi", KERNEL=="sda", SYMLINK+="symlink-only2"
 889 SUBSYSTEMS=="scsi", KERNEL=="sda", NAME="link", SYMLINK+="symlink0"
 890 EOF
 891         },
 892         {
 893                 desc            => "symlink name '.'",
 894                 subsys          => "block",
 895                 devpath         => "/block/sda",
 896                 exp_name        => ".",
 897                 exp_target      => "link",
 898                 exp_add_error   => "yes",
 899                 exp_rem_error   => "yes",
 900                 rules           => <<EOF
 901 SUBSYSTEMS=="scsi", KERNEL=="sda", NAME="link", SYMLINK+="."
 902 EOF
 903         },
 904         {
 905                 desc            => "symlink node to itself",
 906                 subsys          => "tty",
 907                 devpath         => "/class/tty/tty0",
 908                 exp_name        => "link",
 909                 exp_target      => "link",
 910                 exp_add_error   => "yes",
 911                 exp_rem_error   => "yes",
 912                 option          => "clean",
 913                 rules           => <<EOF
 914 KERNEL=="tty0", NAME="link", SYMLINK+="link"
 915 EOF
 916         },
 917         {
 918                 desc            => "symlink %n substitution",
 919                 subsys          => "tty",
 920                 devpath         => "/class/tty/ttyUSB0",
 921                 exp_name        => "symlink0",
 922                 exp_target      => "ttyUSB0",
 923                 rules           => <<EOF
 924 KERNEL=="ttyUSB[0-9]*", NAME="ttyUSB%n", SYMLINK+="symlink%n"
 925 EOF
 926         },
 927         {
 928                 desc            => "symlink %k substitution",
 929                 subsys          => "tty",
 930                 devpath         => "/class/tty/ttyUSB0",
 931                 exp_name        => "symlink-ttyUSB0",
 932                 exp_target      => "ttyUSB0",
 933                 rules           => <<EOF
 934 KERNEL=="ttyUSB[0-9]*", NAME="ttyUSB%n", SYMLINK+="symlink-%k"
 935 EOF
 936         },
 937         {
 938                 desc            => "symlink %M:%m substitution",
 939                 subsys          => "tty",
 940                 devpath         => "/class/tty/ttyUSB0",
 941                 exp_name        => "major-188:0",
 942                 exp_target      => "ttyUSB0",
 943                 rules           => <<EOF
 944 KERNEL=="ttyUSB[0-9]*", NAME="ttyUSB%n", SYMLINK+="major-%M:%m"
 945 EOF
 946         },
 947         {
 948                 desc            => "symlink %b substitution",
 949                 subsys          => "block",
 950                 devpath         => "/block/sda",
 951                 exp_name        => "symlink-0:0:0:0",
 952                 exp_target      => "node",
 953                 rules           => <<EOF
 954 SUBSYSTEMS=="scsi", KERNEL=="sda", NAME="node", SYMLINK+="symlink-%b"
 955 EOF
 956         },
 957         {
 958                 desc            => "symlink %c substitution",
 959                 subsys          => "tty",
 960                 devpath         => "/class/tty/ttyUSB0",
 961                 exp_name        => "test",
 962                 exp_target      => "ttyUSB0",
 963                 rules           => <<EOF
 964 KERNEL=="ttyUSB[0-9]*", PROGRAM=="/bin/echo test" NAME="ttyUSB%n", SYMLINK+="%c"
 965 EOF
 966         },
 967         {
 968                 desc            => "symlink %c{N} substitution",
 969                 subsys          => "tty",
 970                 devpath         => "/class/tty/ttyUSB0",
 971                 exp_name        => "test",
 972                 exp_target      => "ttyUSB0",
 973                 rules           => <<EOF
 974 KERNEL=="ttyUSB[0-9]*", PROGRAM=="/bin/echo symlink test this" NAME="ttyUSB%n", SYMLINK+="%c{2}"
 975 EOF
 976         },
 977         {
 978                 desc            => "symlink %c{N+} substitution",
 979                 subsys          => "tty",
 980                 devpath         => "/class/tty/ttyUSB0",
 981                 exp_name        => "this",
 982                 exp_target      => "ttyUSB0",
 983                 rules           => <<EOF
 984 KERNEL=="ttyUSB[0-9]*", PROGRAM=="/bin/echo symlink test this" NAME="ttyUSB%n", SYMLINK+="%c{2+}"
 985 EOF
 986         },
 987         {
 988                 desc            => "symlink only rule with %c{N+}",
 989                 subsys          => "block",
 990                 devpath         => "/block/sda",
 991                 exp_name        => "test",
 992                 exp_target      => "link",
 993                 rules           => <<EOF
 994 SUBSYSTEMS=="scsi", KERNEL=="sda", PROGRAM=="/bin/echo link test this" SYMLINK+="%c{2+}"
 995 SUBSYSTEMS=="scsi", KERNEL=="sda", NAME="link", SYMLINK+="symlink0"
 996 EOF
 997         },
 998         {
 999                 desc            => "symlink %s{filename} substitution",
1000                 subsys          => "tty",
1001                 devpath         => "/class/tty/ttyUSB0",
1002                 exp_name        => "188:0",
1003                 exp_target      => "ttyUSB0",
1004                 rules           => <<EOF
1005 KERNEL=="ttyUSB[0-9]*", NAME="ttyUSB%n", SYMLINK+="%s{dev}"
1006 EOF
1007         },
1008         {
1009                 desc            => "symlink %Ns{filename} substitution",
1010                 subsys          => "tty",
1011                 devpath         => "/class/tty/ttyUSB0",
1012                 exp_name        => "188",
1013                 exp_target      => "ttyUSB0",
1014                 rules           => <<EOF
1015 KERNEL=="ttyUSB[0-9]*", NAME="ttyUSB%n", SYMLINK+="%3s{dev}"
1016 EOF
1017         },
1018         {
1019                 desc            => "program result substitution (numbered part of)",
1020                 subsys          => "block",
1021                 devpath         => "/block/sda/sda3",
1022                 exp_name        => "link1",
1023                 exp_target      => "node",
1024                 rules           => <<EOF
1025 SUBSYSTEMS=="scsi", PROGRAM=="/bin/echo -n node link1 link2", RESULT=="node *", NAME="%c{1}", SYMLINK+="%c{2} %c{3}"
1026 EOF
1027         },
1028         {
1029                 desc            => "program result substitution (numbered part of+)",
1030                 subsys          => "block",
1031                 devpath         => "/block/sda/sda3",
1032                 exp_name        => "link4",
1033                 exp_target      => "node",
1034                 rules           => <<EOF
1035 SUBSYSTEMS=="scsi", PROGRAM=="/bin/echo -n node link1 link2 link3 link4", RESULT=="node *", NAME="%c{1}", SYMLINK+="%c{2+}"
1036 EOF
1037         },
1038         {
1039                 desc            => "ignore rule test",
1040                 subsys          => "block",
1041                 devpath         => "/block/sda",
1042                 exp_name        => "nothing",
1043                 not_exp_name    => "node",
1044                 exp_add_error   => "yes",
1045                 rules           => <<EOF
1046 SUBSYSTEMS=="scsi", KERNEL=="sda", NAME="node", OPTIONS="ignore"
1047 EOF
1048         },
1049         {
1050                 desc            => "all_partitions, option-only rule",
1051                 subsys          => "block",
1052                 devpath         => "/block/sda",
1053                 exp_name        => "node6",
1054                 rules           => <<EOF
1055 SUBSYSTEM=="block", OPTIONS="all_partitions"
1056 SUBSYSTEMS=="scsi", KERNEL=="sda", NAME="node"
1057 EOF
1058         },
1059         {
1060                 desc            => "all_partitions, option-only rule (fail on partition)",
1061                 subsys          => "block",
1062                 devpath         => "/block/sda/sda1",
1063                 exp_name        => "node6",
1064                 exp_add_error   => "yes",
1065                 rules           => <<EOF
1066 SUBSYSTEM=="block", OPTIONS="all_partitions"
1067 SUBSYSTEMS=="scsi", KERNEL=="sda", NAME="node"
1068 EOF
1069         },
1070         {
1071                 desc            => "ignore remove event test",
1072                 subsys          => "block",
1073                 devpath         => "/block/sda",
1074                 exp_name        => "node",
1075                 exp_rem_error   => "yes",
1076                 rules           => <<EOF
1077 SUBSYSTEMS=="scsi", KERNEL=="sda", NAME="node", OPTIONS="ignore_remove"
1078 EOF
1079         },
1080         {
1081                 desc            => "ignore remove event test (with all partitions)",
1082                 subsys          => "block",
1083                 devpath         => "/block/sda",
1084                 exp_name        => "node14",
1085                 exp_rem_error   => "yes",
1086                 option          => "clean",
1087                 rules           => <<EOF
1088 SUBSYSTEMS=="scsi", KERNEL=="sda", NAME="node", OPTIONS="ignore_remove, all_partitions"
1089 EOF
1090         },
1091         {
1092                 desc            => "SUBSYSTEM match test",
1093                 subsys          => "block",
1094                 devpath         => "/block/sda",
1095                 exp_name        => "node",
1096                 rules           => <<EOF
1097 SUBSYSTEMS=="scsi", KERNEL=="sda", NAME="should_not_match", SUBSYSTEM=="vc"
1098 SUBSYSTEMS=="scsi", KERNEL=="sda", NAME="node", SUBSYSTEM=="block"
1099 SUBSYSTEMS=="scsi", KERNEL=="sda", NAME="should_not_match2", SUBSYSTEM=="vc"
1100 EOF
1101         },
1102         {
1103                 desc            => "DRIVERS match test",
1104                 subsys          => "block",
1105                 devpath         => "/block/sda",
1106                 exp_name        => "node",
1107                 rules           => <<EOF
1108 SUBSYSTEMS=="scsi", KERNEL=="sda", NAME="should_not_match", DRIVERS=="sd-wrong"
1109 SUBSYSTEMS=="scsi", KERNEL=="sda", NAME="node", DRIVERS=="sd"
1110 EOF
1111         },
1112         {
1113                 desc            => "temporary node creation test",
1114                 subsys          => "block",
1115                 devpath         => "/block/sda",
1116                 exp_name        => "node",
1117                 rules           => <<EOF
1118 SUBSYSTEMS=="scsi", KERNEL=="sda", PROGRAM=="/usr/bin/test -b %N" NAME="node"
1119 EOF
1120         },
1121         {
1122                 desc            => "devpath substitution test",
1123                 subsys          => "block",
1124                 devpath         => "/block/sda",
1125                 exp_name        => "sda",
1126                 rules           => <<EOF
1127 SUBSYSTEMS=="scsi", KERNEL=="sda", PROGRAM=="/bin/echo %p", RESULT=="/block/sda" NAME="%k"
1128 EOF
1129         },
1130         {
1131                 desc            => "parent node name substitution test sequence 1/2 (keep)",
1132                 subsys          => "block",
1133                 devpath         => "/block/sda",
1134                 exp_name        => "main_device",
1135                 option          => "keep",
1136                 rules           => <<EOF
1137 SUBSYSTEMS=="scsi", KERNEL=="sda", NAME="main_device"
1138 EOF
1139         },
1140         {
1141                 desc            => "parent node name substitution test sequence 2/2 (clean)",
1142                 subsys          => "block",
1143                 devpath         => "/block/sda/sda1",
1144                 exp_name        => "main_device-part-1",
1145                 option          => "clean",
1146                 rules           => <<EOF
1147 SUBSYSTEMS=="scsi", KERNEL=="sda1", NAME="%P-part-1"
1148 EOF
1149         },
1150         {
1151                 desc            => "udev_root substitution",
1152                 subsys          => "block",
1153                 devpath         => "/block/sda/sda1",
1154                 exp_name        => "start-udev-root-end",
1155                 rules           => <<EOF
1156 SUBSYSTEMS=="scsi", KERNEL=="sda1", NAME="start-%r-end"
1157 EOF
1158         },
1159         {
1160                 desc            => "last_rule option",
1161                 subsys          => "block",
1162                 devpath         => "/block/sda/sda1",
1163                 exp_name        => "last",
1164                 rules           => <<EOF
1165 SUBSYSTEMS=="scsi", KERNEL=="sda1", SYMLINK+="last", OPTIONS="last_rule"
1166 SUBSYSTEMS=="scsi", KERNEL=="sda1", NAME="very-last"
1167 EOF
1168         },
1169         {
1170                 desc            => "negation KERNEL!=",
1171                 subsys          => "block",
1172                 devpath         => "/block/sda/sda1",
1173                 exp_name        => "match",
1174                 rules           => <<EOF
1175 SUBSYSTEMS=="scsi", KERNEL!="sda1", NAME="matches-but-is-negated"
1176 SUBSYSTEMS=="scsi", KERNEL!="xsda1", NAME="match"
1177 SUBSYSTEMS=="scsi", KERNEL=="sda1", NAME="wrong"
1178 EOF
1179         },
1180         {
1181                 desc            => "negation SUBSYSTEM!=",
1182                 subsys          => "block",
1183                 devpath         => "/block/sda/sda1",
1184                 exp_name        => "not-anything",
1185                 rules           => <<EOF
1186 SUBSYSTEMS=="scsi", SUBSYSTEM=="block", KERNEL!="sda1", NAME="matches-but-is-negated"
1187 SUBSYSTEMS=="scsi", SUBSYSTEM!="anything", NAME="not-anything"
1188 SUBSYSTEMS=="scsi", KERNEL=="sda1", NAME="wrong"
1189 EOF
1190         },
1191         {
1192                 desc            => "negation PROGRAM!= exit code",
1193                 subsys          => "block",
1194                 devpath         => "/block/sda/sda1",
1195                 exp_name        => "nonzero-program",
1196                 rules           => <<EOF
1197 KERNEL=="sda1", PROGRAM!="/bin/false", NAME="nonzero-program"
1198 SUBSYSTEMS=="scsi", KERNEL=="sda1", NAME="wrong"
1199 EOF
1200         },
1201         {
1202                 desc            => "test for whitespace between the operator",
1203                 subsys          => "block",
1204                 devpath         => "/block/sda/sda1",
1205                 exp_name        => "true",
1206                 rules           => <<EOF
1207 KERNEL   ==   "sda1"     ,    NAME   =    "true"
1208 SUBSYSTEMS=="scsi", KERNEL=="sda1", NAME="wrong"
1209 EOF
1210         },
1211         {
1212                 desc            => "ENV{} test",
1213                 subsys          => "block",
1214                 devpath         => "/block/sda/sda1",
1215                 exp_name        => "true",
1216                 rules           => <<EOF
1217 SUBSYSTEMS=="scsi", KERNEL=="sda1", ENV{ENV_KEY_TEST}=="go", NAME="wrong"
1218 SUBSYSTEMS=="scsi", KERNEL=="sda1", ENV{ENV_KEY_TEST}=="test", NAME="true"
1219 SUBSYSTEMS=="scsi", KERNEL=="sda1", ENV{ENV_KEY_TEST}=="bad", NAME="bad"
1220 EOF
1221         },
1222         {
1223                 desc            => "ENV{} test",
1224                 subsys          => "block",
1225                 devpath         => "/block/sda/sda1",
1226                 exp_name        => "true",
1227                 rules           => <<EOF
1228 SUBSYSTEMS=="scsi", KERNEL=="sda1", ENV{ENV_KEY_TEST}=="go", NAME="wrong"
1229 SUBSYSTEMS=="scsi", KERNEL=="sda1", ENV{ENV_KEY_TEST}=="yes", ENV{ACTION}=="add", ENV{DEVPATH}=="/block/sda/sdax1", NAME="no"
1230 SUBSYSTEMS=="scsi", KERNEL=="sda1", ENV{ENV_KEY_TEST}=="test", ENV{ACTION}=="add", ENV{DEVPATH}=="/block/sda/sda1", NAME="true"
1231 SUBSYSTEMS=="scsi", KERNEL=="sda1", ENV{ENV_KEY_TEST}=="bad", NAME="bad"
1232 EOF
1233         },
1234         {
1235                 desc            => "ENV{} test (assign)",
1236                 subsys          => "block",
1237                 devpath         => "/block/sda/sda1",
1238                 exp_name        => "true",
1239                 rules           => <<EOF
1240 SUBSYSTEMS=="scsi", KERNEL=="sda1", ENV{ASSIGN}="true"
1241 SUBSYSTEMS=="scsi", KERNEL=="sda1", ENV{ASSIGN}=="yes", NAME="no"
1242 SUBSYSTEMS=="scsi", KERNEL=="sda1", ENV{ASSIGN}=="true", NAME="true"
1243 SUBSYSTEMS=="scsi", KERNEL=="sda1", NAME="bad"
1244 EOF
1245         },
1246         {
1247                 desc            => "ENV{} test (assign 2 times)",
1248                 subsys          => "block",
1249                 devpath         => "/block/sda/sda1",
1250                 exp_name        => "true",
1251                 rules           => <<EOF
1252 SUBSYSTEMS=="scsi", KERNEL=="sda1", ENV{ASSIGN}="true"
1253 SUBSYSTEMS=="scsi", KERNEL=="sda1", ENV{ASSIGN}="absolutely-\$env{ASSIGN}"
1254 SUBSYSTEMS=="scsi", KERNEL=="sda1", ENV{ASSIGN}=="yes", NAME="no"
1255 SUBSYSTEMS=="scsi", KERNEL=="sda1", ENV{ASSIGN}=="absolutely-true", NAME="true"
1256 SUBSYSTEMS=="scsi", KERNEL=="sda1", NAME="bad"
1257 EOF
1258         },
1259         {
1260                 desc            => "ENV{} test (assign2)",
1261                 subsys          => "block",
1262                 devpath         => "/block/sda/sda1",
1263                 exp_name        => "part",
1264                 rules           => <<EOF
1265 SUBSYSTEM=="block", KERNEL=="*[0-9]", ENV{PARTITION}="true", ENV{MAINDEVICE}="false"
1266 SUBSYSTEM=="block", KERNEL=="*[!0-9]", ENV{PARTITION}="false", ENV{MAINDEVICE}="true"
1267 ENV{MAINDEVICE}=="true", NAME="disk"
1268 ENV{PARTITION}=="true", NAME="part"
1269 NAME="bad"
1270 EOF
1271         },
1272         {
1273                 desc            => "untrusted string sanitize",
1274                 subsys          => "block",
1275                 devpath         => "/block/sda/sda1",
1276                 exp_name        => "sane",
1277                 rules           => <<EOF
1278 SUBSYSTEMS=="scsi", KERNEL=="sda1", PROGRAM=="/bin/echo -e name; (/sbin/badprogram)", RESULT=="name_ _/sbin/badprogram_", NAME="sane"
1279 EOF
1280         },
1281         {
1282                 desc            => "untrusted string sanitize (don't replace utf8)",
1283                 subsys          => "block",
1284                 devpath         => "/block/sda/sda1",
1285                 exp_name        => "uber",
1286                 rules           => <<EOF
1287 SUBSYSTEMS=="scsi", KERNEL=="sda1", PROGRAM=="/bin/echo -e \\xc3\\xbcber" RESULT=="\xc3\xbcber", NAME="uber"
1288 EOF
1289         },
1290         {
1291                 desc            => "untrusted string sanitize (replace invalid utf8)",
1292                 subsys          => "block",
1293                 devpath         => "/block/sda/sda1",
1294                 exp_name        => "replaced",
1295                 rules           => <<EOF
1296 SUBSYSTEMS=="scsi", KERNEL=="sda1", PROGRAM=="/bin/echo -e \\xef\\xe8garbage", RESULT=="__garbage", NAME="replaced"
1297 EOF
1298         },
1299         {
1300                 desc            => "read sysfs value from device down in the chain",
1301                 subsys          => "block",
1302                 devpath         => "/class/tty/ttyUSB0",
1303                 exp_name        => "serial-0000:00:09.0",
1304                 rules           => <<EOF
1305 KERNEL=="ttyUSB*", NAME="serial-%s{serial}"
1306 EOF
1307         },
1308         {
1309                 desc            => "match against empty key string",
1310                 subsys          => "block",
1311                 devpath         => "/block/sda",
1312                 exp_name        => "ok",
1313                 rules           => <<EOF
1314 KERNEL=="sda", ATTRS{nothing}!="", NAME="not-1-ok"
1315 KERNEL=="sda", ATTRS{nothing}=="", NAME="not-2-ok"
1316 KERNEL=="sda", ATTRS{vendor}!="", NAME="ok"
1317 KERNEL=="sda", ATTRS{vendor}=="", NAME="not-3-ok"
1318 EOF
1319         },
1320         {
1321                 desc            => "check ACTION value",
1322                 subsys          => "block",
1323                 devpath         => "/block/sda",
1324                 exp_name        => "ok",
1325                 rules           => <<EOF
1326 ACTION=="unknown", KERNEL=="sda", NAME="unknown-not-ok"
1327 ACTION=="add", KERNEL=="sda", NAME="ok"
1328 EOF
1329         },
1330         {
1331                 desc            => "apply NAME only once",
1332                 subsys          => "block",
1333                 devpath         => "/block/sda",
1334                 exp_name        => "link",
1335                 exp_target      => "ok",
1336                 rules           => <<EOF
1337 KERNEL=="sda", NAME="ok"
1338 KERNEL=="sda", NAME="not-ok"
1339 KERNEL=="sda", SYMLINK+="link"
1340 EOF
1341         },
1342         {
1343                 desc            => "test RUN key",
1344                 subsys          => "block",
1345                 devpath         => "/block/sda",
1346                 exp_name        => "testsymlink",
1347                 exp_target      => "ok",
1348                 exp_rem_error   => "yes",
1349                 option          => "clean",
1350                 rules           => <<EOF
1351 KERNEL=="sda", NAME="ok", RUN+="/bin/ln -s ok %r/testsymlink"
1352 KERNEL=="sda", NAME="not-ok"
1353 EOF
1354         },
1355         {
1356                 desc            => "test RUN key and DEVNAME",
1357                 subsys          => "block",
1358                 devpath         => "/block/sda",
1359                 exp_name        => "testsymlink",
1360                 exp_target      => "ok",
1361                 exp_rem_error   => "yes",
1362                 option          => "clean",
1363                 rules           => <<EOF
1364 KERNEL=="sda", NAME="ok", RUN+="/bin/sh -c 'ln -s `basename \$\$DEVNAME` %r/testsymlink'"
1365 KERNEL=="sda", NAME="not-ok"
1366 EOF
1367         },
1368         {
1369                 desc            => "test RUN key remove",
1370                 subsys          => "block",
1371                 devpath         => "/block/sda",
1372                 exp_name        => "testsymlink2",
1373                 exp_target      => "ok2",
1374                 rules           => <<EOF
1375 KERNEL=="sda", NAME="ok2", RUN+="/bin/ln -s ok2 %r/testsymlink2"
1376 KERNEL=="sda", ACTION=="remove", RUN+="/bin/rm -f %r/testsymlink2"
1377 KERNEL=="sda", NAME="not-ok2"
1378 EOF
1379         },
1380         {
1381                 desc            => "final assignment",
1382                 subsys          => "block",
1383                 devpath         => "/block/sda",
1384                 exp_name        => "ok",
1385                 exp_perms       => "root:nobody:0640",
1386                 rules           => <<EOF
1387 KERNEL=="sda", GROUP:="nobody"
1388 KERNEL=="sda", GROUP="not-ok", MODE="0640", NAME="ok"
1389 EOF
1390         },
1391         {
1392                 desc            => "final assignment",
1393                 subsys          => "block",
1394                 devpath         => "/block/sda",
1395                 exp_name        => "ok",
1396                 exp_perms       => "root:nobody:0640",
1397                 rules           => <<EOF
1398 KERNEL=="sda", GROUP:="nobody"
1399 SUBSYSTEM=="block", MODE:="640"
1400 KERNEL=="sda", GROUP="not-ok", MODE="0666", NAME="ok"
1401 EOF
1402         },
1403         {
1404                 desc            => "env substitution",
1405                 subsys          => "block",
1406                 devpath         => "/block/sda",
1407                 exp_name        => "node-add-me",
1408                 rules           => <<EOF
1409 KERNEL=="sda", MODE="0666", NAME="node-\$env{ACTION}-me"
1410 EOF
1411         },
1412         {
1413                 desc            => "reset list to current value",
1414                 subsys          => "tty",
1415                 devpath         => "/class/tty/ttyUSB0",
1416                 exp_name        => "three",
1417                 not_exp_name    => "two",
1418                 exp_target      => "node",
1419                 rules           => <<EOF
1420 KERNEL=="ttyUSB[0-9]*", SYMLINK+="one"
1421 KERNEL=="ttyUSB[0-9]*", SYMLINK+="two"
1422 KERNEL=="ttyUSB[0-9]*", SYMLINK="three"
1423 KERNEL=="ttyUSB[0-9]*", NAME="node"
1424 EOF
1425         },
1426         {
1427                 desc            => "test empty NAME",
1428                 subsys          => "tty",
1429                 devpath         => "/class/tty/ttyUSB0",
1430                 exp_name        => "node",
1431                 not_exp_name    => "wrong",
1432                 exp_add_error   => "yes",
1433                 rules           => <<EOF
1434 KERNEL=="ttyUSB[0-9]*", NAME=""
1435 KERNEL=="ttyUSB[0-9]*", NAME="wrong"
1436 EOF
1437         },
1438         {
1439                 desc            => "test empty NAME 2",
1440                 subsys          => "tty",
1441                 devpath         => "/class/tty/ttyUSB0",
1442                 exp_name        => "right",
1443                 rules           => <<EOF
1444 KERNEL=="ttyUSB[0-9]*", NAME="right"
1445 KERNEL=="ttyUSB[0-9]*", NAME=""
1446 KERNEL=="ttyUSB[0-9]*", NAME="wrong"
1447 EOF
1448         },
1449         {
1450                 desc            => "test multi matches",
1451                 subsys          => "tty",
1452                 devpath         => "/class/tty/ttyUSB0",
1453                 exp_name        => "right",
1454                 rules           => <<EOF
1455 KERNEL=="ttyUSB*|nothing", NAME="right"
1456 KERNEL=="ttyUSB*", NAME="wrong"
1457 EOF
1458         },
1459         {
1460                 desc            => "test multi matches 2",
1461                 subsys          => "tty",
1462                 devpath         => "/class/tty/ttyUSB0",
1463                 exp_name        => "right",
1464                 rules           => <<EOF
1465 KERNEL=="dontknow*|*nothing", NAME="nomatch"
1466 KERNEL=="dontknow*|ttyUSB*|nothing*", NAME="right"
1467 KERNEL=="ttyUSB*", NAME="wrong"
1468 EOF
1469         },
1470         {
1471                 desc            => "IMPORT parent test sequence 1/2 (keep)",
1472                 subsys          => "block",
1473                 devpath         => "/block/sda",
1474                 exp_name        => "parent",
1475                 option          => "keep",
1476                 rules           => <<EOF
1477 KERNEL=="sda", IMPORT="/bin/echo -e \'PARENT_KEY=parent_right\\nWRONG_PARENT_KEY=parent_wrong'"
1478 KERNEL=="sda", NAME="parent"
1479 EOF
1480         },
1481         {
1482                 desc            => "IMPORT parent test sequence 2/2 (keep)",
1483                 subsys          => "block",
1484                 devpath         => "/block/sda/sda1",
1485                 exp_name        => "parentenv-parent_right",
1486                 option          => "clean",
1487                 rules           => <<EOF
1488 KERNEL=="sda1", IMPORT{parent}="PARENT*", NAME="parentenv-\$env{PARENT_KEY}\$env{WRONG_PARENT_KEY}"
1489 EOF
1490         },
1491         {
1492                 desc            => "GOTO test",
1493                 subsys          => "block",
1494                 devpath         => "/block/sda/sda1",
1495                 exp_name        => "right",
1496                 rules           => <<EOF
1497 KERNEL=="sda1", GOTO="TEST"
1498 KERNEL=="sda1", NAME="wrong"
1499 KERNEL=="sda1", NAME="", LABEL="NO"
1500 KERNEL=="sda1", NAME="right", LABEL="TEST"
1501 KERNEL=="sda1", NAME="wrong2"
1502 EOF
1503         },
1504         {
1505                 desc            => "NAME compare test",
1506                 subsys          => "block",
1507                 devpath         => "/block/sda/sda1",
1508                 exp_name        => "link",
1509                 exp_target      => "node",
1510                 not_exp_name    => "wronglink",
1511                 rules           => <<EOF
1512 KERNEL=="sda1", NAME="node"
1513 KERNEL=="sda2", NAME="wrong"
1514 KERNEL=="sda1", NAME=="wrong*", SYMLINK+="wronglink"
1515 KERNEL=="sda1", NAME=="?*", SYMLINK+="link"
1516 KERNEL=="sda1", NAME=="node*", SYMLINK+="link2"
1517 EOF
1518         },
1519         {
1520                 desc            => "NAME compare test 2",
1521                 subsys          => "block",
1522                 devpath         => "/block/sda/sda1",
1523                 exp_name        => "link2",
1524                 exp_target      => "sda1",
1525                 not_exp_name    => "link",
1526                 rules           => <<EOF
1527 KERNEL=="sda1", NAME=="?*", SYMLINK+="link"
1528 KERNEL=="sda1", NAME!="?*", SYMLINK+="link2"
1529 EOF
1530         },
1531         {
1532                 desc            => "invalid key operation",
1533                 subsys          => "block",
1534                 devpath         => "/block/sda/sda1",
1535                 exp_name        => "yes",
1536                 rules           => <<EOF
1537 KERNEL="sda1", NAME="no"
1538 KERNEL=="sda1", NAME="yes"
1539 EOF
1540         },
1541         {
1542                 desc            => "operator chars in attribute",
1543                 subsys          => "block",
1544                 devpath         => "/block/sda",
1545                 exp_name        => "yes",
1546                 rules           => <<EOF
1547 KERNEL=="sda", ATTR{test:colon+plus}=="?*", NAME="yes"
1548 EOF
1549         },
1550         {
1551                 desc            => "overlong comment line",
1552                 subsys          => "block",
1553                 devpath         => "/block/sda/sda1",
1554                 exp_name        => "yes",
1555                 rules           => <<EOF
1556 # 012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789
1557    # 012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789
1558 KERNEL="sda1", NAME=="no"
1559 KERNEL=="sda1", NAME="yes"
1560 EOF
1561         },
1562         {
1563                 desc            => "magic subsys/kernel lookup",
1564                 subsys          => "block",
1565                 devpath         => "/block/sda",
1566                 exp_name        => "00:e0:00:fb:04:e1",
1567                 rules           => <<EOF
1568 KERNEL=="sda", NAME="\$attr{[net/eth0]address}"
1569 EOF
1570         },
1571         {
1572                 desc            => "TEST absolute path",
1573                 subsys          => "block",
1574                 devpath         => "/block/sda",
1575                 exp_name        => "there",
1576                 rules           => <<EOF
1577 TEST=="/etc/hosts", NAME="there"
1578 NAME="notthere"
1579 EOF
1580         },
1581         {
1582                 desc            => "TEST subsys/kernel lookup",
1583                 subsys          => "block",
1584                 devpath         => "/block/sda",
1585                 exp_name        => "yes",
1586                 rules           => <<EOF
1587 KERNEL=="sda", TEST=="[net/eth0]", NAME="yes"
1588 EOF
1589         },
1590         {
1591                 desc            => "TEST relative path",
1592                 subsys          => "block",
1593                 devpath         => "/block/sda",
1594                 exp_name        => "relative",
1595                 rules           => <<EOF
1596 KERNEL=="sda", TEST=="size", NAME="relative"
1597 EOF
1598         },
1599         {
1600                 desc            => "TEST wildcard substitution (find queue/nr_requests)",
1601                 subsys          => "block",
1602                 devpath         => "/block/sda",
1603                 exp_name        => "found-subdir",
1604                 rules           => <<EOF
1605 KERNEL=="sda", TEST=="*/nr_requests", NAME="found-subdir"
1606 EOF
1607         },
1608         {
1609                 desc            => "TEST MODE=0000",
1610                 subsys          => "block",
1611                 devpath         => "/block/sda",
1612                 exp_name        => "sda",
1613                 exp_perms       => "0:0:0000",
1614                 rules           => <<EOF
1615 KERNEL=="sda", MODE="0000"
1616 EOF
1617         },
1618         {
1619                 desc            => "TEST PROGRAM feeds MODE",
1620                 subsys          => "block",
1621                 devpath         => "/block/sda",
1622                 exp_name        => "sda",
1623                 exp_perms       => "0:0:0400",
1624                 rules           => <<EOF
1625 KERNEL=="sda", PROGRAM=="/bin/echo 0 0 0400", OWNER="%c{1}", GROUP="%c{2}", MODE="%c{3}"
1626 EOF
1627         },
1628         {
1629                 desc            => "TEST PROGRAM feeds MODE with overflow",
1630                 subsys          => "block",
1631                 devpath         => "/block/sda",
1632                 exp_name        => "sda",
1633                 exp_perms       => "0:0:0400",
1634                 rules           => <<EOF
1635 KERNEL=="sda", PROGRAM=="/bin/echo 0 0 0400letsdoabuffferoverflow0123456789012345789012345678901234567890", OWNER="%c{1}", GROUP="%c{2}", MODE="%c{3}"
1636 EOF
1637         },
1638
1639 );
1640
1641 # set env
1642 $ENV{ENV_KEY_TEST} = "test";
1643 $ENV{SYSFS_PATH} = $sysfs;
1644 $ENV{UDEV_CONFIG_FILE} = $udev_conf;
1645
1646 sub udev {
1647         my ($action, $subsys, $devpath, $rules) = @_;
1648
1649         $ENV{DEVPATH} = $devpath;
1650
1651         # create temporary rules
1652         open CONF, ">$udev_rules" || die "unable to create rules file: $udev_rules";
1653         print CONF $$rules;
1654         close CONF;
1655
1656         $ENV{ACTION} = $action;
1657         if ($valgrind > 0) {
1658                 system("$udev_bin_valgrind $subsys");
1659         } else {
1660                 system("$udev_bin $subsys");
1661         }
1662 }
1663
1664 my $error = 0;
1665
1666 sub permissions_test {
1667         my($rules, $uid, $gid, $mode) = @_;
1668
1669         my $wrong = 0;
1670         my $userid;
1671         my $groupid;
1672
1673         $rules->{exp_perms} =~ m/^(.*):(.*):(.*)$/;
1674         if ($1 ne "") {
1675                 if (defined(getpwnam($1))) {
1676                         $userid = int(getpwnam($1));
1677                 } else {
1678                         $userid = $1;
1679                 }
1680                 if ($uid != $userid) { $wrong = 1; }
1681         }
1682         if ($2 ne "") {
1683                 if (defined(getgrnam($2))) {
1684                         $groupid = int(getgrnam($2));
1685                 } else {
1686                         $groupid = $2;
1687                 }
1688                 if ($gid != $groupid) { $wrong = 1; }
1689         }
1690         if ($3 ne "") {
1691                 if (($mode & 07777) != oct($3)) { $wrong = 1; };
1692         }
1693         if ($wrong == 0) {
1694                 print "permissions: ok\n";
1695         } else {
1696                 printf "  expected permissions are: %s:%s:%#o\n", $1, $2, oct($3);
1697                 printf "  created permissions are : %i:%i:%#o\n", $uid, $gid, $mode & 07777;
1698                 print "permissions: error\n";
1699                 $error++;
1700         }
1701 }
1702
1703 sub major_minor_test {
1704         my($rules, $rdev) = @_;
1705
1706         my $major = ($rdev >> 8) & 0xfff;
1707         my $minor = ($rdev & 0xff) | (($rdev >> 12) & 0xfff00);
1708         my $wrong = 0;
1709
1710         $rules->{exp_majorminor} =~ m/^(.*):(.*)$/;
1711         if ($1 ne "") {
1712                 if ($major != $1) { $wrong = 1; };
1713         }
1714         if ($2 ne "") {
1715                 if ($minor != $2) { $wrong = 1; };
1716         }
1717         if ($wrong == 0) {
1718                 print "major:minor: ok\n";
1719         } else {
1720                 printf "  expected major:minor is: %i:%i\n", $1, $2;
1721                 printf "  created major:minor is : %i:%i\n", $major, $minor;
1722                 print "major:minor: error\n";
1723                 $error++;
1724         }
1725 }
1726
1727 sub symlink_test {
1728         my ($rules) = @_;
1729
1730         my $output = `ls -l $PWD/$udev_root$rules->{exp_name}`;
1731
1732         if ($output =~ m/(.*)-> (.*)/) {
1733                 if ($2 eq $rules->{exp_target}) {
1734                         print "symlink:     ok\n";
1735                 } else {
1736                         print "  expected symlink from: \'$rules->{exp_name}\' to \'$rules->{exp_target}\'\n";
1737                         print "  created symlink from: \'$rules->{exp_name}\' to \'$2\'\n";
1738                         print "symlink: error";
1739                         if ($rules->{exp_add_error}) {
1740                                 print " as expected\n";
1741                         } else {
1742                                 print "\n";
1743                                 $error++;
1744                         }
1745                 }
1746         } else {
1747                 print "  expected symlink from: \'$rules->{exp_name}\' to \'$rules->{exp_target}\'\n";
1748                 print "symlink:     not created";
1749                 if ($rules->{exp_add_error}) {
1750                         print " as expected\n";
1751                 } else {
1752                         print "\n";
1753                         $error++;
1754                 }
1755         }
1756 }
1757
1758 sub make_udev_root {
1759         system("rm -rf $udev_root");
1760         mkdir($udev_root) || die "unable to create udev_root: $udev_root\n";
1761         # setting group and mode of udev_root ensures the tests work
1762         # even if the parent directory has setgid bit enabled.
1763         chown (0, 0, $udev_root) || die "unable to chown $udev_root\n";
1764         chmod (0755, $udev_root) || die "unable to chmod $udev_root\n";
1765 }
1766
1767 sub run_test {
1768         my ($rules, $number) = @_;
1769
1770         print "TEST $number: $rules->{desc}\n";
1771
1772         if ($rules->{exp_target}) {
1773                 print "device \'$rules->{devpath}\' expecting symlink '$rules->{exp_name}' to node \'$rules->{exp_target}\'\n";
1774         } else {
1775                 print "device \'$rules->{devpath}\' expecting node \'$rules->{exp_name}\'\n";
1776         }
1777
1778
1779         udev("add", $rules->{subsys}, $rules->{devpath}, \$rules->{rules});
1780         if ((-e "$PWD/$udev_root$rules->{exp_name}") ||
1781             (-l "$PWD/$udev_root$rules->{exp_name}")) {
1782
1783                 my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size,
1784                     $atime, $mtime, $ctime, $blksize, $blocks) = stat("$PWD/$udev_root$rules->{exp_name}");
1785
1786                 if (defined($rules->{not_exp_name})) {
1787                         if ((-e "$PWD/$udev_root$rules->{not_exp_name}") ||
1788                             (-l "$PWD/$udev_root$rules->{not_exp_name}")) {
1789                                 print "nonexistent: error \'$rules->{not_exp_name}\' not expected to be there\n";
1790                                 $error++
1791                         }
1792                 }
1793                 if (defined($rules->{exp_perms})) {
1794                         permissions_test($rules, $uid, $gid, $mode);
1795                 }
1796                 if (defined($rules->{exp_majorminor})) {
1797                         major_minor_test($rules, $rdev);
1798                 }
1799                 if (defined($rules->{exp_target})) {
1800                         symlink_test($rules);
1801                 }
1802                 print "add:         ok\n";
1803         } else {
1804                 print "add:         error";
1805                 if ($rules->{exp_add_error}) {
1806                         print " as expected\n";
1807                 } else {
1808                         print "\n";
1809                         system("tree $udev_root");
1810                         print "\n";
1811                         $error++;
1812                 }
1813         }
1814
1815         if (defined($rules->{option}) && $rules->{option} eq "keep") {
1816                 print "\n\n";
1817                 return;
1818         }
1819
1820         udev("remove", $rules->{subsys}, $rules->{devpath}, \$rules->{rules});
1821         if ((-e "$PWD/$udev_root$rules->{exp_name}") ||
1822             (-l "$PWD/$udev_root$rules->{exp_name}")) {
1823                 print "remove:      error";
1824                 if ($rules->{exp_rem_error}) {
1825                         print " as expected\n";
1826                 } else {
1827                         print "\n";
1828                         system("tree $udev_root");
1829                         print "\n";
1830                         $error++;
1831                 }
1832         } else {
1833                 print "remove:      ok\n";
1834         }
1835
1836         print "\n";
1837
1838         if (defined($rules->{option}) && $rules->{option} eq "clean") {
1839                 make_udev_root ();
1840         }
1841
1842 }
1843
1844 # only run if we have root permissions
1845 # due to mknod restrictions
1846 if (!($<==0)) {
1847         print "Must have root permissions to run properly.\n";
1848         exit;
1849 }
1850
1851 # prepare
1852 make_udev_root();
1853
1854 # create config file
1855 open CONF, ">$udev_conf" || die "unable to create config file: $udev_conf";
1856 print CONF "udev_root=\"$udev_root\"\n";
1857 print CONF "udev_rules=\"$PWD\"\n";
1858 print CONF "udev_log=\"info\"\n";
1859 close CONF;
1860
1861 my $test_num = 1;
1862 my @list;
1863
1864 foreach my $arg (@ARGV) {
1865         if ($arg =~ m/--valgrind/) {
1866                 $valgrind = 1;
1867                 printf("using valgrind\n");
1868         } else {
1869                 push(@list, $arg);
1870         }
1871 }
1872
1873 if ($list[0]) {
1874         foreach my $arg (@list) {
1875                 if (defined($tests[$arg-1]->{desc})) {
1876                         print "udev-test will run test number $arg:\n\n";
1877                         run_test($tests[$arg-1], $arg);
1878                 } else {
1879                         print "test does not exist.\n";
1880                 }
1881         }
1882 } else {
1883         # test all
1884         print "\nudev-test will run ".($#tests + 1)." tests:\n\n";
1885
1886         foreach my $rules (@tests) {
1887                 run_test($rules, $test_num);
1888                 $test_num++;
1889         }
1890 }
1891
1892 print "$error errors occured\n\n";
1893
1894 # cleanup
1895 system("rm -rf $udev_root");
1896 unlink($udev_rules);
1897 unlink($udev_conf);
1898