#!/usr/bin/perl
# $Id: 06-circular.t,v 1.4 2008/10/02 20:46:44 turnstep Exp $
use strict;
use warnings;
use Net::SSH::Perl;
use Test;
plan tests => 1;
{
package FooBar;
my $count = 0;
sub DESTROY { $count++ }
sub count { $count }
}
# Login doesn't need to succeed for this test to work
if ( $ENV{PERL_SSH_HOST} &&
$ENV{PERL_SSH_USER} &&
$ENV{PERL_SSH_PASSWORD} )
{
{
my $ssh = Net::SSH::Perl->new( $ENV{PERL_SSH_HOST}, protocol => 2 );
$ssh->login( $ENV{PERL_SSH_USER}, $ENV{PERL_SSH_PASSWORD} );
$ssh->{__foobar__} = bless {}, 'FooBar';
}
ok( FooBar->count, 1, "one object destroyed" );
}
else
{
ok( 1, 1, "cannot test without login" );
}