From 4c739cb2352af8f2102464714b4563ce2c53912f Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Thu, 3 Nov 2005 13:22:05 +0000
Subject: Don't use MDK::Common

---
 t/cfg.t | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 't')

diff --git a/t/cfg.t b/t/cfg.t
index 77c831ff..28a65d1c 100644
--- a/t/cfg.t
+++ b/t/cfg.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 
 use Test::More 'no_plan';
-use MDK::Common;
+use File::Slurp;
 
 BEGIN { use_ok 'urpm::cfg' }
 BEGIN { use_ok 'urpm::download' }
@@ -49,7 +49,7 @@ $cfgtext =~ s/\bkey_ids\b/key-ids/g;
 $cfgtext =~ s/"123"/123/g;
 $cfgtext =~ s/'kernel'/kernel/g;
 
-my $cfgtext2 = cat_($file.2);
+my $cfgtext2 = read_file($file.2);
 $cfgtext2 =~ s/# generated.*\n//;
 is( $cfgtext, $cfgtext2, 'config is the same' )
     or system qw( diff -u ), $file, $file.2;
@@ -70,12 +70,12 @@ is( $p->{http_proxy}, 'http://yoyodyne:8080/', 'read media proxy' );
 is( $p->{user}, 'rafael', 'proxy user' );
 is( $p->{pwd}, 'richard', 'proxy password' );
 ok( dump_proxy_config(), 'dump_proxy_config' );
-$cfgtext2 = cat_($proxyfile);
+$cfgtext2 = read_file($proxyfile);
 $cfgtext2 =~ s/# generated.*\n//;
 is( $cfgtext, $cfgtext2, 'dumped correctly' );
 set_proxy_config(http_proxy => '');
 ok( dump_proxy_config(), 'dump_proxy_config erased' );
-$cfgtext2 = cat_($proxyfile);
+$cfgtext2 = read_file($proxyfile);
 $cfgtext2 =~ s/# generated.*\n//;
 $cfgtext =~ s/^http_proxy.*\n//;
 is( $cfgtext, $cfgtext2, 'dumped correctly' );
-- 
cgit v1.2.1