From cac479f0e27b8d9cc8a403b494d7ef53e34f9d14 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 25 Apr 2007 10:04:32 +0000
Subject: re-sync after the big svn loss

---
 perl-install/Xconfig/test.pm | 140 -------------------------------------------
 1 file changed, 140 deletions(-)
 delete mode 100644 perl-install/Xconfig/test.pm

(limited to 'perl-install/Xconfig/test.pm')

diff --git a/perl-install/Xconfig/test.pm b/perl-install/Xconfig/test.pm
deleted file mode 100644
index 524530bef..000000000
--- a/perl-install/Xconfig/test.pm
+++ /dev/null
@@ -1,140 +0,0 @@
-package Xconfig::test; # $Id$
-
-use diagnostics;
-use strict;
-
-use Xconfig::card;
-use run_program;
-use common;
-use log;
-
-
-my $tmpconfig = "/tmp/Xconfig";
-
-
-sub xtest {
-    my ($display) = @_;
-    eval {
-	require xf86misc::main;
-	xf86misc::main::Xtest($display);
-    };
-}
-
-sub test {
-    my ($in, $raw_X, $card, $auto, $skip_badcard) = @_;
-
-    my $bad_card = !Xconfig::card::check_bad_card($card);
-    return 1 if $skip_badcard && $bad_card;
-
-    if ($bad_card || !$auto) {
-	$in->ask_yesorno(N("Test of the configuration"), 
-			 N("Do you want to test the configuration?") . ($bad_card ? "\n" . N("Warning: testing this graphic card may freeze your computer") : ''),
-			 !$bad_card) or return 1;
-    }
-
-    unlink "$::prefix/tmp/.X9-lock";
-
-    #- create a link from the non-prefixed /tmp/.X11-unix/X9 to the prefixed one
-    #- that way, you can talk to :9 without doing a chroot
-    #- but take care of non X11 install :-)
-    if (-d "/tmp/.X11-unix") {
-	symlinkf "$::prefix/tmp/.X11-unix/X9", "/tmp/.X11-unix/X9" if $::prefix;
-    } else {
-	symlinkf "$::prefix/tmp/.X11-unix", "/tmp/.X11-unix" if $::prefix;
-    }
-
-    #- ensure xfs is running
-    fuzzy_pidofs(qr/\bxfs\b/) or do { run_program::rooted($::prefix, "/etc/rc.d/init.d/xfs", $_) foreach 'stop', 'start' };
-    fuzzy_pidofs(qr/\bxfs\b/) or die "xfs is not running";
-
-    my $f = $::testing ? $tmpconfig : "/etc/X11/XF86Config.test";
-    $raw_X->write("$::prefix/$f");
-
-    my $f_err = common::secured_file($::prefix . ($ENV{TMPDIR} || "$ENV{HOME}/tmp") . '/.drakx.Xoutput');
-    
-    my $pid;
-    unless ($pid = fork()) {
-	system("xauth add :9 . `mcookie`");
-	open STDERR, ">$f_err";
-	chroot $::prefix if $::prefix;
-	exec 'Xorg', '-xf86config', $f, ":9" or c::_exit(0);
-    }
-
-    do { sleep 1 } until xtest(":9") || waitpid($pid, c::WNOHANG());
-
-    my $_b = before_leaving { unlink $f_err };
-
-    my $warn_error = sub {
-	my ($error_msg) = @_;
-	$in->ask_warn('', [ N("An error occurred:\n%s\nTry to change some parameters", $error_msg) ]);
-    };
-
-    if (!xtest(":9")) {
-	open(my $F, $f_err);
-
-	local $_;
-      i: while (<$F>) {
-	    if (/^\(EE\)/ && !/Disabling/ || /^Fatal\b/) {
-		my @msg = !/error/ && $_;
-		local $_;
-		while (<$F>) {
-		    /reporting a problem/ and last;
-		    $warn_error->(join('', @msg, $_));
-		    return 0;
-		}
-	    }
-	}
-    }
-
-    open(my $F, "|perl 2>/dev/null");
-    printf $F q(
-        use lib qw(%s);
-        BEGIN { $::no_ugtk_init = 1 }
-        require lang;
-        require ugtk2; #- help perl_checker
-        ugtk2->import(qw(:wrappers :helpers)); #- help perl_checker
-	use interactive::gtk;
-        use run_program;
-        use common;
-
-        $::prefix = "%s";
-
-        lang::bindtextdomain();
-
-	$ENV{DISPLAY} = ":9";
-        Gtk2->init;
-
-        gtkset_background(200 * 257, 210 * 257, 210 * 257);
-        my $text = Gtk2::Label->new;
-        my $time = 12;
-        Glib::Timeout->add(1000, sub {
-	    $text->set(sprintf(translate("%s"), $time));
-	    $time-- or Gtk2->main_quit;
-            1;
-	});
-
-        eval {  #- eval it so that missing pixmap will not break the test completely
-            my $root = gtkroot();
-            my $gc = Gtk2::Gdk::GC->new($root);
-            my $pixbuf = Gtk2::Gdk::Pixbuf->new_from_file("$::prefix/usr/share/mdk/xfdrake/xfdrake-test-card.png");
-            my ($w, $h) = ($pixbuf->get_width, $pixbuf->get_height);
-            my $pixmap = Gtk2::Gdk::Pixmap->new($root, $w, $h, $root->get_depth);
-            $pixbuf->render_to_drawable($pixmap, $gc, 0, 0, 0, 0, $w, $h, 'none', 0, 0);
-            $root->set_back_pixmap($pixmap, 0);
-            $root->clear;
-        };
-
-        my $in = interactive::gtk->new;
-	$in->exit($in->ask_yesorno('', [ translate("%s"), $text ], 0) ? 0 : 222);
-    ), join(' ', @INC), $::prefix, N_("Leaving in %d seconds"), N_("Is this the correct setting?");
-    my $rc = close $F;
-    my $err = $?;
-
-    $rc || $err == 222 << 8 or $warn_error->('');
-
-    unlink "$::prefix/$f", "$::prefix/$f-4";
-    unlink "/tmp/.X11-unix/X9" if $::prefix;
-    kill 2, $pid;
-
-    $rc;
-}
-- 
cgit v1.2.1