couchdb/t/10-couchdb.t

#!/usr/bin/perl
use strict;
use warnings;

use Test::More tests => 16;
use lib 'lib';

BEGIN {
        use_ok('CouchDB::Estraier');
        use_ok('CouchDB::Client');
}

my $database = 'estraier-test';
my $uri = 'http://localhost:5984/';

ok( my $c = CouchDB::Client->new(uri => $uri), "new $uri" );
ok( $c->testConnection, 'testConnection' );
ok( my $db = $c->newDB( $database ), "newDB $database" );
$db->delete if $c->dbExists( $database );
ok( $db->create, 'create' );


for my $i ( 1 .. 5 ) {

        my $_id = 'test-' . $i;

        ok(     my $doc = $db->newDoc( $_id ), "newDoc $_id" );
        $doc->{data} = {
                foo => $i,
                bar => "baz $i",
        };

        ok( $doc->create, 'create' );

}


1	dpavlin	12	#!/usr/bin/perl
2			use strict;
3			use warnings;
4
5			use Test::More tests => 16;
6			use lib 'lib';
7
8			BEGIN {
9			use_ok('CouchDB::Estraier');
10			use_ok('CouchDB::Client');
11			}
12
13			my $database = 'estraier-test';
14			my $uri = 'http://localhost:5984/';
15
16			ok( my $c = CouchDB::Client->new(uri => $uri), "new $uri" );
17			ok( $c->testConnection, 'testConnection' );
18			ok( my $db = $c->newDB( $database ), "newDB $database" );
19			$db->delete if $c->dbExists( $database );
20			ok( $db->create, 'create' );
21
22
23			for my $i ( 1 .. 5 ) {
24
25			my $_id = 'test-' . $i;
26
27			ok( my $doc = $db->newDoc( $_id ), "newDoc $_id" );
28			$doc->{data} = {
29			foo => $i,
30			bar => "baz $i",
31			};
32
33			ok( $doc->create, 'create' );
34
35			}
36
37
38