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	#!/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