PXElator/t/CouchDB.t

#!/usr/bin/perl

use warnings;
use strict;
use autodie;

use Test::More tests => 7;
use Data::Dump qw/dump/;

use_ok 'CouchDB';

my $db  = 'pxelator';
my $url = "$db/test";

ok( my $db = CouchDB->new(), 'new' );

ok( $db->put( $url, { foo => 42, bar => 'baz' }), "put $url" );

ok( my $doc = $db->get( $url, 'get' ), 'get' );

diag 'doc ', dump( $doc );

ok( $db->put( $url, { foo => 99 }), "put $url" );

ok( $db->delete( $url ), 'delete' );

ok( CouchDB::audit( 'test', { foo => 42, bar => 'baz' }), 'audit' );

1	dpavlin	205	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5			use autodie;
6
7	dpavlin	221	use Test::More tests => 7;
8	dpavlin	205	use Data::Dump qw/dump/;
9
10			use_ok 'CouchDB';
11
12			my $db = 'pxelator';
13			my $url = "$db/test";
14
15			ok( my $db = CouchDB->new(), 'new' );
16
17			ok( $db->put( $url, { foo => 42, bar => 'baz' }), "put $url" );
18
19			ok( my $doc = $db->get( $url, 'get' ), 'get' );
20
21	dpavlin	221	diag 'doc ', dump( $doc );
22	dpavlin	205
23	dpavlin	221	ok( $db->put( $url, { foo => 99 }), "put $url" );
24	dpavlin	205
25	dpavlin	221	ok( $db->delete( $url ), 'delete' );
26
27			ok( CouchDB::audit( 'test', { foo => 42, bar => 'baz' }), 'audit' );
28