#!/usr/bin/perl

use strict;
use warnings;
use Test::More;

my @files = <"x86_64/*.rpm">;

foreach ( @files ) {
	my $result=`rpm -K --nosignature $_`;
	print $result;
	like($result, qr/sha1 md5 OK/, "$_ sha1 md5 is good");
}
done_testing( scalar @files );
