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