PXElator/t/CouchDB.t

#!/usr/bin/perl

use warnings;
use strict;
use autodie;

use Test::More tests => 5;
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 dump( $doc );

#ok( $db->delete( "$db" ), 'delete' );

ok( $db->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	206	use Test::More tests => 5;
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			diag dump( $doc );
22
23			#ok( $db->delete( "$db" ), 'delete' );
24
25	dpavlin	206	ok( $db->audit( 'test', { foo => 42, bar => 'baz' }), 'audit' );