File: 2_new.t

package info (click to toggle)
libio-socket-socks-perl 0.1-3
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 220 kB
  • ctags: 124
  • sloc: perl: 1,659; makefile: 16
file content (9 lines) | stat: -rw-r--r-- 191 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
 
use lib "t/lib";
use Test::More tests=>3;

BEGIN{ use_ok( "IO::Socket::Socks" ); }

my $socks = new IO::Socket::Socks();
ok( defined($socks), "new()");
isa_ok( $socks, "IO::Socket::Socks");