t/krnic.t

   1 use Test::More tests => 1;
   2 use App::Abuser ();
   3 use File::Spec ();
   4 require './t/Stub.pm';
   5 $Stub::server = 'whois.kisa.or.kr';
   6
   7 is(App::Abuser->new->search('192.0.2.3'), 'good@example.com', 'more specific network');