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 => 4;
   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 dump( $doc );
  22
  23 #ok( $db->delete( "$db" ), 'delete' );
  24