tests/libtest/delay.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!/usr/bin/env perl
# sleep for a number of seconds
if ( $#ARGV != 0 )
{
    print "Usage: $0 seconds\n";
    exit 1;
}
if ( $ARGV[0] =~ /(\d+)/ ) {
    sleep $1;
    exit 0;
}
else {
    print "Usage: $0 seconds\n";
    exit 1;
}