summaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-01-23 20:14:37 +0000
committerThierry Vignaud <tv@mageia.org>2012-01-23 20:14:37 +0000
commit57dfab8a3524e788545f18a98d0e3c45da3e90da (patch)
tree9e5a195e36474e569a691f448667bc5fd4a064a4 /t
parent336a0adc99fea3ad542598b78f286943e758bc8a (diff)
downloadurpmi-57dfab8a3524e788545f18a98d0e3c45da3e90da.tar
urpmi-57dfab8a3524e788545f18a98d0e3c45da3e90da.tar.gz
urpmi-57dfab8a3524e788545f18a98d0e3c45da3e90da.tar.bz2
urpmi-57dfab8a3524e788545f18a98d0e3c45da3e90da.tar.xz
urpmi-57dfab8a3524e788545f18a98d0e3c45da3e90da.zip
do not test urpm::dudf
Diffstat (limited to 't')
-rw-r--r--t/01compile.t4
1 files changed, 2 insertions, 2 deletions
diff --git a/t/01compile.t b/t/01compile.t
index d4c65cb1..e1b859c7 100644
--- a/t/01compile.t
+++ b/t/01compile.t
@@ -2,9 +2,9 @@
use strict;
use warnings;
-use Test::More tests => 27;
+use Test::More tests => 26;
-for my $module (glob("urpm/*.pm")) {
+for my $module (grep { !/dudf/ } glob("urpm/*.pm")) {
$module =~ s,/,::,g;
$module =~ s,\.pm$,,;
use_ok $module;
wa">sub get_packages { 'bluez', 'ppp' } sub get_rfcomm_device { my ($self) = @_; $self->{rfcomm_device} ||= find { ! -e ($rfcomm_dev_prefix . $_) } 0 .. 99; } sub get_tty_device { my ($self) = @_; $rfcomm_dev_prefix . $self->get_rfcomm_device; } # http://www.hingston.demon.co.uk/mike/nokia6680.html # http://kapsi.fi/~mcfrisk/linux_gprs.html # GPRS specific commands http://www.phonestar.com.my/s_at_10.html sub search_services { my ($service_type) = @_; my (@services); my $service = {}; my ($key, $value); my $push_service = sub { push @services, $service if exists $service->{class} }; my $use_key = sub { $key = $_[0]; undef $value }; foreach (run_program::rooted_get_stdout($::prefix, 'sdptool', 'search', $service_type)) { if (/^Searching for $service_type on (.+) \.\.\.$/) { $push_service->(); $service = { addr => $1 }; } elsif (/^Service Name:\s+(.*)$/) { $service->{name} = $1; } elsif (/^Service Provider:\s+(.*)$/) { $service->{name} = $1; } elsif (/^\s*Channel:\s*(\d+)$/) { $service->{channel} = $1; } elsif (/^Service Class ID List/) { $use_key->('class'); } else { $value = chomp_($_); } if ($key && $value) { $service->{$key} = $value; $use_key->(undef); } } $push_service->(); my %names; foreach (@services) { $names{$_->{addr}} ||= chomp_(run_program::rooted_get_stdout($::prefix, 'hcitool', 'name', $_->{addr})); $_->{description} = $names{$_->{addr}}; } @services; } sub set_ppp_settings { my ($self) = @_; $self->{access}{cid} = 1; $self->{access}{at_commands} = [ qq(AT+CGDCONT=$self->{access}{cid},"IP","$self->{access}{apn}") ]; $self->SUPER::set_ppp_settings; } sub write_settings { my ($self) = @_; my $dev = $self->get_rfcomm_device; output("$::prefix/etc/bluetooth/rfcomm.conf", qq( rfcomm$dev { bind yes; device $self->{device}{addr}; channel $self->{device}{channel}; comment "Dial-up networking"; } )); $self->SUPER::write_settings; } sub prepare_connection { my ($self) = @_; run_program::rooted_get_stdout($::prefix, 'rfcomm', 'bind', $self->get_rfcomm_device); } 1;