aboutsummaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
authorGuillaume Rousse <guillomovitch@mandriva.org>2010-01-01 22:27:54 +0000
committerGuillaume Rousse <guillomovitch@mandriva.org>2010-01-01 22:27:54 +0000
commitf98334edffe72d93e804cfe4d5502ef69caf4cb6 (patch)
treeeaf8363159ffdbf622c533db1420f489577c8904 /t
parent6f8a2191a53e6e337a7123100f6c6ad65d07aba1 (diff)
downloadspec-helper-f98334edffe72d93e804cfe4d5502ef69caf4cb6.tar
spec-helper-f98334edffe72d93e804cfe4d5502ef69caf4cb6.tar.gz
spec-helper-f98334edffe72d93e804cfe4d5502ef69caf4cb6.tar.bz2
spec-helper-f98334edffe72d93e804cfe4d5502ef69caf4cb6.tar.xz
spec-helper-f98334edffe72d93e804cfe4d5502ef69caf4cb6.zip
initial import
Diffstat (limited to 't')
-rwxr-xr-xt/strip_and_check_elf_files82
1 files changed, 82 insertions, 0 deletions
diff --git a/t/strip_and_check_elf_files b/t/strip_and_check_elf_files
new file mode 100755
index 0000000..1173c6c
--- /dev/null
+++ b/t/strip_and_check_elf_files
@@ -0,0 +1,82 @@
+#!/usr/bin/perl
+# $Id: gprintify 257533 2009-05-23 12:45:15Z guillomovitch $
+
+use strict;
+use warnings;
+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;
+
+# test the script itself
+my ($buildroot, $binary, $before, $after);
+
+($buildroot, $binary) = setup();
+
+$before = get_md5($binary);
+run($buildroot);
+$after = get_md5($binary);
+
+isnt(
+ $before,
+ $after,
+ 'binary should be modified'
+);
+
+($buildroot, $binary) = setup();
+
+$before = get_md5($binary);
+$ENV{EXCLUDE_FROM_STRIP} = 'test';
+run($buildroot);
+$after = get_md5($binary);
+
+is(
+ $before,
+ $after,
+ 'EXCLUDE_FROM_STRIP should prevent binary stripping'
+);
+
+sub setup {
+
+ my $source = File::Temp->new(UNLINK => 1, SUFFIX => '.c');
+ print $source <<'EOF';
+#include <stdio.h>
+
+int main()
+{
+ printf("Hello world!\n");
+ return 0;
+}
+EOF
+ close($source);
+
+ my $buildroot = tempdir(CLEANUP => ($ENV{TEST_DEBUG} ? 0 : 1));
+ my $bindir = $buildroot . '/usr/bin';
+ my $binary = $bindir . '/test';
+ make_path($bindir);
+
+ system('gcc', '-o', $binary, $source);
+
+ return ($buildroot, $binary);
+}
+
+sub run {
+ my ($buildroot) = @_;
+
+ $ENV{RPM_BUILD_ROOT} = $buildroot;
+ system("$Bin/../strip_and_check_elf_files");
+}
+
+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();
+}