use strict;
use warnings;

use Test::More tests => 1;

my $want = 'aa9957b8d673c62eb1e836cbfcf09719ca41e6e3bf960bba98e74289b88b66fb';
my $email = 'BOK_NEPA@hotmail.com';

# XXX Really awful horrible code to test starts here
my $SENDVAR1 = qq(perl -MDigest::SHA=sha256_hex -E 'say sha256_hex(q/$email/)');
my $email_SHA256 = qx($SENDVAR1);
# XXX Really awful horrible code to test ends here

chomp $email_SHA256;
diag "Command is >$SENDVAR1<";
is $email_SHA256, $want;