|
STDOUT->autoflush(1);
STDERR->autoflush(1);
our $class ;
BEGIN { $class = 'Net::Whois::Object::Information' ; use_ok $class ; }
our %tested ;
my @lines = <DATA>;
our $object = ( Net::Whois::Object->new( @lines ) )[0];
isa_ok $object , $class ;
can_ok $object , qw( comment ) ;
can_ok $object , $object ->attributes( 'mandatory' );
$tested { 'comment' }++;
is_deeply( $object ->comment(), [ 'This is the RIPE Database query service.' , 'The objects are in RPSL format.' ], 'comment properly parsed' );
do './t/common.pl' ;
ok( $tested {common_loaded}, "t/common.pl properly loaded" );
ok( !$@, "Can evaluate t/common.pl ($@)" );
|