# Copyright (C) Intel Corp, 2004
#
# Author: Yin Hu <hu.yin@intel.com>
-# Kay Sievers <kay.sievers@vrfy.org>
#
# Provides automated testing of the udevd binary.This test script is self-contained.
# Before you run this script please modify $sysfs to locate your sysfs filesystem,
-# modify $udevd_bin to locate your udevsend binary,
+# modify $udevsend_bin to locate your udevsend binary,
# modify $udev_bin to locate dummy udev script,
# modify $udev_bin2 to locate another dummy udev script ( amplify the execution time for test),
# modify $log_file to locate where udev script have placed the log file,
use strict;
# modifiable settings
-my $sysfs = "../sys";
-my $udevd_bin = "../../udevsend";
-my $udev_bin = "$ENV{PWD}/udev-log-script.pl";
-my $udev_bin2 = "$ENV{PWD}/udev-log-amplify.pl";
-my $log_file = "/tmp/udev_log.txt";
-my $time_out = 10;
-my $udev_exe_time = 5;
+my $sysfs = "../sys";
+my $udevd_bin = "../../udevd";
+my $udevsend_bin = "../../udevsend";
+my $udev_bin = "$ENV{'PWD'}/udev-log-script.pl";
+my $udev_bin2 = "$ENV{'PWD'}/udev-log-amplify.pl";
+my $log_file = "/tmp/udev_log.txt";
+my $time_out = 10;
+my $udev_exe_time = 5;
# global variables
my $test_case = 0;
# common functions
-sub kill_daemon {
+sub restart_daemon {
+ my ($udev_binary) = @_;
+
system("killall udevd");
system("rm -f $log_file");
sleep 1;
-}
-
-sub udevsend {
- # This function prepares corresponding environment variables
- # and then call $udevd_bin to send event.
-
- my ($seqnum, $devpath, $action, $subsystem, $udev_bin_tmp) = @_;
-
- $ENV{DEVPATH} = $devpath;
- $ENV{ACTION} = $action;
- $udev_bin_tmp = $udev_bin if ( not $udev_bin_tmp );
- $ENV{UDEV_BIN} = $udev_bin_tmp;
- if ( $seqnum != -1) {
- $ENV{SEQNUM} = $seqnum;
- } else {
- delete $ENV{SEQNUM};
- }
-
- return system("$udevd_bin $subsystem");
-}
-
-sub getDate {
- # Get current date function
- # If we want GTM time, simply pass GMT as first argument to this function.
- my $format = @_;
- my $date;
-
- if( $format =~ /GMT/i ) {
- $date = gmtime() . " GMT";
- } else {
- $date = localtime();
+ if (!defined($udev_binary)) {
+ $udev_binary = $udev_bin;
}
- return $date;
+ $ENV{'UDEV_BIN'} = $udev_binary;
+ system("/bin/sh -c $udevd_bin&");
+ sleep(1);
}
-sub cmpDate {
- # This function should return a difference betweent date1 and date2
-
- my ($date1, $date2) = @_;
- my @monList = ( "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul",
- "Aug", "Sep", "Oct", "Nov", "Dec" );
- my ( $m1, $m2, $tmp );
-
- $date1 =~ s/([\D]*)$//g;
- $date2 =~ s/([\D]*)$//g;
-
- return if( (not $date1) or (not $date2) );
-
- my $mon = 0;
-
- my ( @T1 ) =
- ( $date1 =~ /([\d]+)[\s]+([\d]+):([\d]+):([\d]+)[\s]+([\d]+)/g );
- my ( @T2 ) =
- ( $date2 =~ /([\d]+)[\s]+([\d]+):([\d]+):([\d]+)[\s]+([\d]+)/g );
-
- foreach $tmp (@monList) {
- $m1 = sprintf("%2.2d",$mon) if( $date1 =~ /$tmp/i );
- $m2 = sprintf("%2.2d",$mon) if( $date2 =~ /$tmp/i );
- $mon++;
- }
+sub udevsend {
+ # This function prepares corresponding environment variables
+ # and then call $udevsend_bin to send event.
- my $dt1 = sprintf("%4.4d%s%2.2d%2.2d%2.2d%2.2d", $T1[4], $m1, $T1[0],
- $T1[1], $T1[2], $T1[3]);
- my $dt2 = sprintf("%4.4d%s%2.2d%2.2d%2.2d%2.2d", $T2[4], $m2, $T2[0],
- $T2[1], $T2[2], $T2[3]);
+ my ($seqnum, $devpath, $action, $subsystem, $script) = @_;
- my $ret = $dt1 - $dt2;
+ %ENV = ();
+ $ENV{'DEVPATH'} = $devpath;
+ $ENV{'ACTION'} = $action;
+ $ENV{'SUBSYSTEM'} = $subsystem;
- if ( $ret > 40 ) {
- $ret = abs($ret-40);
+ if ( $seqnum != -1) {
+ $ENV{SEQNUM} = $seqnum;
}
- return $ret;
+ return system("$udevsend_bin $subsystem");
}
sub check_count_and_time {
@line_items = split(/,/,$line);
print " device: $line_items[0], action: $line_items[1] \n";
print " forking udev time: $line_items[-1]";
- $diff = cmpDate($line_items[-1], $event_recv_time);
+ $diff = $line_items[-1] - $event_recv_time;
print " the delay time is: $diff s \n\n";
- if ( $diff > $time_out ) {
+ if ( $diff > $time_out+10 ) {
print " the delay time is: $diff \n";
print " udevd doesn't act properly. \n";
exit 1;
@line_items = split(/,/,$line);
print " device: $line_items[0], action: $line_items[1] \n";
print " forking udev time: $line_items[-1]";
- $diff = cmpDate($line_items[-1], $event_recv_time);
+ $diff = $line_items[-1] - $event_recv_time;
print " the delay time is: $diff s \n\n";
}
close(LOGF);
@line_items = split(/,/,$line);
print " device: $line_items[0], action: $line_items[1] \n";
print " forking udev time: $line_items[-1]";
- $diff = cmpDate($line_items[-1], $event_recv_time);
+ $diff = $line_items[-1] - $event_recv_time;
print " the delay time is: $diff s \n\n";
if ( $diff < $time_out ) {
print " the delay time is: $diff \n";
@line_items = split(/,/,$line);
print " device: $line_items[0], action: $line_items[1] \n";
print " forking udev time: $line_items[-1]";
- $diff = cmpDate($line_items[-1], $event_recv_time);
+ $diff = $line_items[-1] - $event_recv_time;
print " the delay time is: $diff s \n\n";
if ( $diff > $time_out ) {
print " the delay time is: $diff \n";
$exe_time[$i] = $line_items[-1];
$i++;
}
- $diff = cmpDate($exe_time[1], $exe_time[0]);
+ $diff = $exe_time[1] - $exe_time[0];
if ( $diff < $udev_exe_time ) {
print " there are more than one udev instance for a single device at the same time. \n";
exit 1;
print " the delay time between event receiving and forking udev for udevd should be negligible, \n";
print " that is, udev should be forked at once. please notice the following time...\n\n";
- # local variables
my $time;
#
# add devices event test
#
- kill_daemon();
+ restart_daemon();
# check if devices /block/sda exist
check_sysfs_device_exist("$sysfs/block/sda");
# log current system date/time
- $time = getDate();
+ $time = time();
- # fork udevd
udevsend(-1, "/block/sda", "add", "block");
# check if execution is successful in time
system("rm -f $log_file");
# log current system date/time
- $time = getDate();
+ $time = time();
- # fork udevd
udevsend(-1, "/block/sda", "remove", "block");
# check if execution is successful in time
print " event to udev for each device. \n";
print " We can see the delay time for each device should be negligible. \n\n";
- # local variables
my @file_list;
my $file;
my $seq = 0;
my $time;
my $ret_seq;
- # prepare
- kill_daemon();
+ restart_daemon();
@file_list = glob "$sysfs/class/tty/*";
# log current system date/time for device add events
- $time = getDate();
+ $time = time();
#
# add devices event test
# we'd better wait the udev to create all the device for a few seconds
print " wait for udevd processing about $time_out s... \n\n";
- sleep $time_out;
+ sleep $time_out + 5;
$ret_seq = check_count_and_time($time);
if ( $ret_seq != $seq ) {
}
# log current system date/time for device remove events
- $time = getDate();
+ $time = time();
#
# remove devices event test
#
print "remove device events test: \n";
- kill_daemon();
+ restart_daemon();
@file_list = glob "$sysfs/class/tty/*";
$seq = 0;
foreach $file (@file_list) {
# we'd better wait the udev to create all the device for a few seconds
print " waiting for udev removing devices (about $time_out s)...\n";
- sleep $time_out;
+ sleep $time_out + 5;
# show results
$ret_seq = check_count_and_time($time);
print " We have disordered the events sent to udevd, if udevd can order them correctly, the devices' \n";
print " add/remove sequence should be tty0, tty1, tty2. \n\n";
- # local variables
my $time;
# check if devices /class/tty/tty0, tty1, tty2 exist
# add device events test
#
print "add device events test: \n";
- kill_daemon();
+ restart_daemon();
# log current system date/time for device remove events
- $time = getDate();
+ $time = time();
# parameters: 1 sequence number, 2 device, 3 action, 4 subsystem
udevsend(3, "/class/tty/tty2", "add", "tty");
# remove device events test
#
print "\nremove device events test: \n";
- kill_daemon();
+ restart_daemon();
# log current system date/time for device remove events
- $time = getDate();
+ $time = time();
- # fork udevd
udevsend(3, "/class/tty/tty2", "remove", "tty");
udevsend(2, "/class/tty/tty1", "remove", "tty");
udevsend(1, "/class/tty/tty0", "remove", "tty");
print " should fork udev immediately, the delay time should be negligible. \n";
print " where: event 7 is (add device /class/tty/tty2) \n\n";
- # local variables
my $time;
# check if devices /class/tty0, tty1, tty2 exist
check_sysfs_device_exist("$sysfs/class/tty/tty0", "$sysfs/class/tty/tty1", "$sysfs/class/tty/tty2");
- # prepare
- kill_daemon();
+ restart_daemon();
# parameters: 1 sequence number, 2 device, 3 action, 4 subsystem
udevsend(3, "/class/tty/tty2", "add", "tty");
udevsend(6, "/class/tty/tty2", "remove", "tty");
print " wait for udevd timing out for disorder events (about $time_out s) \n\n";
- sleep $time_out+1;
+ sleep $udev_exe_time + $time_out+1;
system("rm -f $log_file");
# log current system date/time for device remove events
- $time = getDate();
+ $time = time();
# show results
udevsend(7, "/class/tty/tty2", "add", "tty");
print " we send a add event for device /block/sda, and then we send a remove event, so the \n";
print " execution of remove event should be delayed until add is finished. \n\n";
- # local variables
my $time;
- # prepare
- kill_daemon();
+ restart_daemon($udev_bin2);
# check if device exists
check_sysfs_device_exist("$sysfs/block/sda");
# log current system date/time
- $time = getDate();
+ $time = time();
- # fork udved
- udevsend(-1, "/block/sda", "add", "block", $udev_bin2);
- udevsend(-1, "/block/sda", "remove", "block", $udev_bin2);
+ udevsend(-1, "/block/sda", "add", "block");
+ udevsend(-1, "/block/sda", "remove", "block");
# show results
print " wait for udevd processing about $udev_exe_time s... \n\n";
print " event ( add device /class/tty/tty1 ) should be delayed for $time_out s than its previous \n";
print " event ( remove device /block/sda ) \n\n";
- # local variables
my $time;
- # prepare
- kill_daemon();
+ restart_daemon();
# check if device exist
check_sysfs_device_exist("$sysfs/block/sda", "$sysfs/class/tty/tty1");
- # fork udevd
udevsend(0, "/block/sda", "add", "block");
# log current system date/time
sleep 1;
- $time = getDate();
+ $time = time();
system("rm -f $log_file");
- # fork udevd
udevsend(1, "/block/sda", "remove", "block");
udevsend(1, "/class/tty/tty1", "add", "tty");
print "Test expected visible results:\n";
print " the delay time for event(add device /block/sda) should be about $time_out s.\n\n";
- # local variables
my $time;
- # prepare
- kill_daemon();
+ restart_daemon();
# check if device exist
check_sysfs_device_exist("$sysfs/block/sda", "$sysfs/class/tty/tty1");
- # fork udevd
udevsend(0, "/class/tty/tty1", "add", "tty");
udevsend(1, "/class/tty/tty1", "remove", "tty");
sleep 1;
# log current system date/time
- $time = getDate();
+ $time = time();
system("rm -f $log_file");
- # fork udevd
udevsend(3, "/block/sda", "add", "block");
# show results
~ianmdlvl / elogind.git / blobdiff