From 52639f09bcc16bc4e50ad411ddef52da97533c81 Mon Sep 17 00:00:00 2001
From: Guillaume Rousse <guillomovitch@mandriva.org>
Date: Fri, 1 Jan 2010 23:12:39 +0000
Subject: code factorisation

---
 t/fix_eol.t | 25 +++----------------------
 1 file changed, 3 insertions(+), 22 deletions(-)

(limited to 't/fix_eol.t')

diff --git a/t/fix_eol.t b/t/fix_eol.t
index 9363769..b7c7e0f 100755
--- a/t/fix_eol.t
+++ b/t/fix_eol.t
@@ -3,12 +3,10 @@
 
 use strict;
 use warnings;
+use Utils qw/run get_md5/;
 use Test::More;
 use File::Temp qw/tempdir/;
 use File::Path qw/make_path/;
-use FindBin qw/$Bin/;
-use lib "$Bin/../lib";
-use Digest::MD5;
 
 plan tests => 2;
 
@@ -19,7 +17,7 @@ my ($buildroot, $test, $before, $after);
 foo\r
 EOF
 $before = get_md5($test);
-run($buildroot);
+run($buildroot, 'fix_eol');
 $after = get_md5($test);
 
 isnt(
@@ -33,7 +31,7 @@ foo\r
 EOF
 $before = get_md5($test);
 $ENV{EXCLUDE_FROM_EOL_CONVERSION} = 'test';
-run($buildroot);
+run($buildroot, 'fix_eol');
 $after = get_md5($test);
 
 is(
@@ -58,20 +56,3 @@ sub setup {
 
     return ($buildroot, $test);
 }
-
-sub run {
-    my ($buildroot) = @_;
-
-    $ENV{RPM_BUILD_ROOT} = $buildroot;
-    system("$Bin/../fix_eol");
-}
-
-sub get_md5 {
-    my ($file) = @_;
-    open(my $in, '<', $file) or die "can't read $file: $!";
-    binmode($in);
-    my $md5 = Digest::MD5->new();
-    $md5->addfile($in);
-    close($in);
-    return $md5->hexdigest();
-}
-- 
cgit v1.2.1