# Modules.
use Digest;
use File::Object;
use File::Temp qw(tempfile);
use IO::Barf qw(barf);
use Perl6::Slurp qw(slurp);
use Test::More 'tests' => 6;

# Test data directory.
my $test_dir = File::Object->new->up->dir('data');

# Test subroutine.
sub test1 {
	my $file = shift;
	my $digest = Digest->new('SHA-256');
	my $ex1 = $test_dir->file($file)->s;
	open my $fh_ex1, '<', $ex1;
	$digest->addfile($fh_ex1);
	my $ret1 = $digest->hexdigest;
	my $data = slurp($ex1);
	$digest->add($data);
	my $ret2 = $digest->hexdigest;
	is($ret1, $ret2);
	my (undef, $new_ex1) = tempfile('DIR' => '/tmp/');
	barf($new_ex1, $data);
	open my $fh_new_ex1, '<', $new_ex1;
	$digest->addfile($fh_new_ex1);
	my $ret3 = $digest->hexdigest;
	is($ret1, $ret3);
	unlink $new_ex1;
	return;
}

# Test.
test1('ex1.txt');

# Test.
test1('ex2.txt');

# Test.
test1('ex3.txt');

# Pragmas.
use strict;
use warnings;

# Modules.
use Digest;
use File::Object;
use File::Temp qw(tempfile);
use IO::Barf qw(barf);
use Perl6::Slurp qw(slurp);
use Test::More 'tests' => 6;

# Test data directory.
my $test_dir = File::Object->new->up->dir('data');

# Test subroutine.
sub test1 {
	my $file = shift;
	my $digest = Digest->new('SHA-256');
	my $ex1 = $test_dir->file($file)->s;
	open my $fh_ex1, '<', $ex1;
	$digest->addfile($fh_ex1);
	my $ret1 = $digest->hexdigest;
	my $data = slurp($ex1);
	$digest->add($data);
	my $ret2 = $digest->hexdigest;
	is($ret1, $ret2);
	my (undef, $new_ex1) = tempfile('DIR' => '/tmp/');
	barf($new_ex1, $data);
	open my $fh_new_ex1, '<', $new_ex1;
	$digest->addfile($fh_new_ex1);
	my $ret3 = $digest->hexdigest;
	is($ret1, $ret3);
	unlink $new_ex1;
	return;
}

# Test.
test1('ex1.txt');

# Test.
test1('ex2.txt');

# Test.
test1('ex3.txt');

Add 'use strict' and 'use warnings' pragmas.
Add 'use strict' and 'use warnings' pragmas.
