File: 10_simple.t

package info (click to toggle)
libspf2 1.2.10-8.3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 2,712 kB
  • sloc: sh: 11,504; ansic: 11,396; makefile: 171; perl: 18
file content (14 lines) | stat: -rw-r--r-- 290 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
use strict;
use warnings;
use blib;
use Test::More tests => 1;

use_ok('Mail::SPF_XS');

my $srv = new Mail::SPF_XS::Server({});
my $req = new Mail::SPF_XS::Request({
	ip_address	=> '62.49.9.82',
	identity	=> 'shevek@anarres.org',
});
my $res = $srv->process($req);
print $res->code, "\n";