1use Test::Most; 2 3require_ok('Net::FreeDB'); 4 5my $freedb = new Net::FreeDB(); 6ok($freedb, 'Unable to create instance'); 7 8if ($ENV{HAVE_INTERNET}) { 9 my $disc_data = undef; 10 my $device = undef; 11 12 $device = '/dev/cdrom' if ($^O =~ /linux/); 13 $device = 0 if ($^O =~ /MSWin32/); 14 $device = '/dev/acd0' if ($^O =~ /freebsd/); 15 16 if ($device) { 17 ok($disc_data = $freedb->get_local_disc_data($device), "Unable to scan local disc drive"); 18 } 19} 20 21done_testing; 22