|
IO::Socket::INET->new(
Proto => "tcp" ,
PeerAddr => "localhost" ,
PeerPort => "27017" ,
)
or plan skip_all => "no MongoDB server found" ;
plan tests => 5;
$need_clean = 1;
use_ok( 'Tie::Hash::MongoDB' );
ok( tie %hash , 'Tie::Hash::MongoDB' , 'Tie a new document' );
$id = $hash {_id};
ok( $id , 'id is defined' );
ok(! ref ( $id ), 'id is no reference' );
like( $id , qr/^[0-9a-f]+$/ i, 'is is hex' );
END {
return unless $need_clean ;
my $collection = MongoDB::Connection->new-> default -> default ;
eval { $collection ->remove({ _id => $id }); };
eval { $collection ->remove({ _id => MongoDB::OID->new( value => $id )}); };
}
|