view release on metacpan or  search on metacpan

t/05_regression.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
use lib '../lib';
use AnyEvent::Groonga;
use Test::More;
use FindBin;
use File::Spec;

unlink $_ for glob( File::Spec->catfile( $FindBin::RealBin, "data", "*") );

my $g = AnyEvent::Groonga->new( debug => 0 );
my $groonga_path = $g->groonga_path;
my $test_database_path
    = File::Spec->catfile( $FindBin::RealBin, "data", "test.db" );

unless ( $groonga_path and -e $groonga_path ) {
    plan skip_all => "groonga is not installed.";
}
else{
    plan tests => 2;
}

`$groonga_path -n $test_database_path quit`;

$g->protocol("local_db");
$g->database_path(
    File::Spec->catfile( $FindBin::RealBin, "data", "test.db" ) );

$g->call(
    table_create => {
        name     => "Site",
        flags    => "TABLE_HASH_KEY",
        key_type => "ShortText",
    }
)->recv;

$g->call(
    column_create => {
        table => "Site",
        name  => "title",
        flags => "COLUMN_SCALAR",
        type  => "ShortText",
    }
)->recv;

{
    my @data = (
        { _key  => "http://example.com/tzd",
          title => "test record containing backslash\\ character.",
        },
        { _key  => "http://example.com/gez",
          title => "test record containing quote' character.",
        },
        { _key  => "http://example.com/jpn",
          title => "日本語を含むレコード",
        },
    );

    my $result = $g->call(
        load => {
            table => "Site",
            values => \@data,
        }