1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
# -*- perl -*-
use Test::More tests => 11;
use strict;
use warnings;
BEGIN {
use_ok('Net::DBus::Binding::Server');
use_ok('Net::DBus::Binding::Connection');
use_ok('Net::DBus::Reactor');
use_ok('Net::DBus::Binding::Message::Signal');
}
my $server = Net::DBus::Binding::Server->new(address => "unix:path=/tmp/dbus-perl-test-$$");
ok ($server->is_connected, "server connected");
my $reactor = Net::DBus::Reactor->new();
$reactor->manage($server);
my $incoming;
$server->set_connection_callback(sub {
$server = shift;
$incoming = shift;
});
my $client = Net::DBus::Binding::Connection->new(address => "unix:path=/tmp/dbus-perl-test-$$",
private => 1);
ok ($client->is_connected, "client connected");
$reactor->manage($client);
$reactor->step;
ok (defined $incoming, "incoming");
ok ($incoming->is_connected, "incoming connected");
#$reactor->manage($incoming);
$client->disconnect;
ok (!$client->is_connected, "client disconnected");
$incoming->disconnect;
ok (!$incoming->is_connected, "incoming disconnected");
$server->disconnect;
ok (!$server->is_connected, "server disconnected");
|
