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