t/gtalk.t fails tests under network-sandboxing

[kentfredric]

When t/gtalk.t can't connect to the internet, it fails.

The other tests gracefully handle themselves if online() returns false.

t/gtalk.t ................ 
1..32
Subroutine SASLAuth redefined at /usr/lib64/perl5/vendor_perl/5.22.1/XML/Stream.pm line 2184.
ok 1 - An object of class 'Net::XMPP::Client' isa 'Net::XMPP::Client'
ok 2 # skip Needs Test::Memory::Cycle
ok 3 # skip need GTALK0 = username:password
ok 4 - An object of class 'Net::XMPP::Client' isa 'Net::XMPP::Client'
ok 5 # skip Needs Test::Memory::Cycle
ok 6 # skip need GTALK1 = username:password
Can't call method "can_read" on an undefined value at /usr/lib64/perl5/vendor_perl/5.22.1/XML/Stream.pm line 1436.
# Looks like you planned 32 tests but ran 6.
# Looks like your test exited with 22 just after 6.
Dubious, test returned 22 (wstat 5632, 0x1600)
Failed 26/32 subtests 
    (less 4 skipped subtests: 2 okay)

The tests however pass if the network-killzone is lifted:

t/gtalk.t ................ 
1..32
Subroutine SASLAuth redefined at /usr/lib64/perl5/vendor_perl/5.22.1/XML/Stream.pm line 2184.
ok 1 - An object of class 'Net::XMPP::Client' isa 'Net::XMPP::Client'
ok 2 # skip Needs Test::Memory::Cycle
ok 3 # skip need GTALK0 = username:password
ok 4 - An object of class 'Net::XMPP::Client' isa 'Net::XMPP::Client'
ok 5 # skip Needs Test::Memory::Cycle
ok 6 # skip need GTALK1 = username:password
ok 7 - An object of class 'Net::XMPP::Client' isa 'Net::XMPP::Client'
ok 8 # skip Needs Test::Memory::Cycle
ok 9 # skip need GTALK0 = username:password
ok 10 - An object of class 'Net::XMPP::Client' isa 'Net::XMPP::Client'
ok 11 # skip Needs Test::Memory::Cycle
ok 12 # skip need GTALK1 = username:password
ok 13 - An object of class 'Net::XMPP::Client' isa 'Net::XMPP::Client'
ok 14 # skip Needs Test::Memory::Cycle
ok 15 # skip need GTALK0 = username:password
ok 16 - An object of class 'Net::XMPP::Client' isa 'Net::XMPP::Client'
ok 17 # skip Needs Test::Memory::Cycle
ok 18 # skip need GTALK1 = username:password
ok 19 - An object of class 'Net::XMPP::Client' isa 'Net::XMPP::Client'
ok 20 # skip Needs Test::Memory::Cycle
ok 21 # skip need GTALK0 = username:password
ok 22 - An object of class 'Net::XMPP::Client' isa 'Net::XMPP::Client'
ok 23 # skip Needs Test::Memory::Cycle
ok 24 # skip need GTALK1 = username:password
ok 25 - An object of class 'Net::XMPP::Client' isa 'Net::XMPP::Client'
ok 26 # skip Needs Test::Memory::Cycle
ok 27 # skip need GTALK0 = username:password
ok 28 - An object of class 'Net::XMPP::Client' isa 'Net::XMPP::Client'
ok 29 # skip Needs Test::Memory::Cycle
ok 30 # skip need GTALK1 = username:password
Use of uninitialized value $mem1 in subtraction (-) at t/gtalk.t line 119.
Use of uninitialized value $mem_last in subtraction (-) at t/gtalk.t line 119.
# Memory change: 0
ok 31 - expected 0 memory growth # TODO Memory leak or expectations being to high?
Use of uninitialized value $mem1 in addition (+) at t/gtalk.t line 124.
Use of uninitialized value $got in numeric lt (<) at (eval in cmp_ok) t/gtalk.t line 124.
ok 32 - does not leak much
ok