"Fossies" - the Fresh Open Source Software Archive

Member "libspf2-1.2.10/perl/t/10_simple.t" (28 Jan 2012, 290 Bytes) of package /linux/privat/libspf2-1.2.10.tar.gz:


As a special service "Fossies" has tried to format the requested text file into HTML format (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    1 use strict;
    2 use warnings;
    3 use blib;
    4 use Test::More tests => 1;
    5 
    6 use_ok('Mail::SPF_XS');
    7 
    8 my $srv = new Mail::SPF_XS::Server({});
    9 my $req = new Mail::SPF_XS::Request({
   10 	ip_address	=> '62.49.9.82',
   11 	identity	=> 'shevek@anarres.org',
   12 });
   13 my $res = $srv->process($req);
   14 print $res->code, "\n";