#!/usr/bin/perl
use lib qw( blib/arch );
use Test;
use WebMoney::WMSigner;
BEGIN { plan tests => 2 };
ok(1); # If we made it this far, we're ok.
my $wmid = '111111111111';
my $passwd = '111111111';
my $path = 'keys.kwm';
my $str = "And WHAT???\r\n";
$str = WebMoney::WMSigner::sign( $wmid, $passwd, $path, $str );
ok( $str, "Error 2\n" );