Re: libgtk2-perl Fails to build from source in Debian and Ubuntu



The failing tests in t/GtkAction.t are marked below with <==
I added the actual value of @proxies at these lines.


my $action = Gtk2::Action->new (name => 'Open',
                                label => '_Open',
                                tooltip => 'Open Something',
                                stock_id => 'gtk-open');
...
my @proxies = $action->get_proxies;
is (@proxies, 1);             <==
# Gtk2::ToolButton=HASH(0x2517a30) Gtk2::ImageMenuItem=HASH(0x2518150)

my $proxy = Gtk2::Button->new;
$action->connect_proxy ($proxy);
@proxies = $action->get_proxies;
is (@proxies, 2);              <==
# Gtk2::Button=HASH(0x25177c0) Gtk2::ToolButton=HASH(0x2517a30)
Gtk2::ImageMenuItem=HASH(0x2518150)

$action->disconnect_proxy ($proxy);
@proxies = $action->get_proxies;
is (@proxies, 1);              <==
# Gtk2::ToolButton=HASH(0x2517a30) Gtk2::ImageMenuItem=HASH(0x2518150)


Dunno whether these are to be expected. Perhaps the test should
only test that an additional element is returned in the seond test
that's not present in both the first and third tests.

Cheers, Roderich



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]