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	#!/usr/bin/perl
2
3	use warnings;
4	use strict;
5	use autodie;
6
7	use Test::More tests => 7;
8	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	diag 'doc ', dump( $doc );
22
23	ok( $db->put( $url, { foo => 99 }), "put $url" );
24
25	ok( $db->delete( $url ), 'delete' );
26
27	ok( CouchDB::audit( 'test', { foo => 42, bar => 'baz' }), 'audit' );
28