use strict;
use 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( $sap, "Creating Net::SAP object" );
# Close the socket
$sap->close();
pass( "Closing socket" );