git.rot13.org Git - pxelator/blob - lib/PXElator/t/CouchDB.t

   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::_store_audit( 'test', { foo => 42, bar => 'baz' }), 'audit' );
  28