1 2use strict; 3use Test; 4 5 6# use a BEGIN block so we print our plan before Net::SDP is loaded 7BEGIN { plan tests => 2 } 8 9# load Net::SDP 10use Net::SDP; 11 12 13# Helpful notes. All note-lines must start with a "#". 14print "# I'm testing Net::SDP version $Net::SDP::VERSION\n"; 15 16# Test 1: Module has loaded sucessfully 17ok(1); 18 19 20 21# Now try creating a new Net::SDP object 22my $sdp = Net::SDP->new(); 23 24ok( defined $sdp ); 25 26exit; 27 28