1use strict;
2use Test::More tests => 3;
3
4
5# Check that the module loads ok
6BEGIN { use_ok( 'Net::SAP' ); }
7
8
9# Now try creating a new Net::SAP object
10my $sap = new Net::SAP('ipv4');
11ok( $sap, "Creating Net::SAP object" );
12
13
14# Close the socket
15$sap->close();
16pass( "Closing socket" );
17