12345678910111213141516 use strict;use Test::More tests => 3;# Check that the module loads okBEGIN { use_ok( 'Net::SAP' ); }# Now try creating a new Net::SAP objectmy $sap = new Net::SAP('ipv4');ok( $sap, "Creating Net::SAP object" );# Close the socket$sap->close();pass( "Closing socket" );
use
strict;
Test::More
tests
=> 3;
# Check that the module loads ok
BEGIN { use_ok(
'Net::SAP'
); }
# Now try creating a new Net::SAP object
my
$sap
= new Net::SAP(
'ipv4'
);
ok(
,
"Creating Net::SAP object"
# Close the socket
->
close
();
pass(
"Closing socket"