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_id = undef; 10 my $device = undef; 11 $device = '/dev/cdrom' if ($^O =~ /linux/); 12 $device = 0 if ($^O =~ /MSWin32/); 13 $device = '/dev/acd0' if ($^O =~ /freebsd/); 14 15 if ($device) { 16 ok($disc_id = $freedb->get_local_disc_id($device), "Unable to scan local disc drive"); 17 } 18} 19 20done_testing; 21