7 use Test::More tests => 7;
8 use Data::Dump qw/dump/;
15 ok( my $db = CouchDB->new(), 'new' );
17 ok( $db->put( $url, { foo => 42, bar => 'baz' }), "put $url" );
19 ok( my $doc = $db->get( $url, 'get' ), 'get' );
21 diag 'doc ', dump( $doc );
23 ok( $db->put( $url, { foo => 99 }), "put $url" );
25 ok( $db->delete( $url ), 'delete' );
27 ok( CouchDB::_store_audit( 'test', { foo => 42, bar => 'baz' }), 'audit' );