blob: a3158f1bd4e92a40926c5615400b07e9af1a0253 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#!/usr/bin/perl
use MDK::Common;
use lib qw(/usr/lib/libDrakX);
use xf86misc::main;
my $nb = 0;
$| = 1;
print "waiting for X";
foreach (1..30) {
print ".";
sleep 1;
print("no X server :(\n"), exit 1 if !fuzzy_pidofs(qr/\bX_move\b/);
$nb++ if xf86misc::main::Xtest(':0');
if ($nb > 2) { #- one succeeded test is not enough :-(
print "found\n";
exit 0;
}
}
print "not found\n";
exit 1;
|