CPAN::Groonga

raw("SELECT name,favorite_color FROM dbix_raw WHERE id=?", 1);

isnt($encrypted_name, $people->[0]->[0], 'Encrypt Star Name');
isnt($encrypted_color, $people->[0]->[2], 'Encrypt Star Color');

my

bixtest;

plan tests => 2;

use_ok( 'DBIx::Raw' ) || print "Bail out!\n";

my $db = prepare();
my $dbh = $db->dbh;

$db->connect;

isnt($db->dbh, $dbh, "New dbh shouldn't equal old dbh");

olor)= $db->raw("SELECT name FROM dbix_raw WHERE id=?", $id);

is($name, $people->[0]->[0], 'Name insert multiple value');
isnt($encrypted_color, $people->[0]->[2], 'Encrypt color insert value');

 prepare();
my $dbh = $db->dbh;

$db->conf(undef);

$db->dsn(dsn());
$db->user(user());
$db->password(password());

$db->connect;

isnt($db->dbh, $dbh, "New dbh shouldn't equal old dbh");

y $id = $db->dbh->sqlite_last_insert_rowid();

my $encrypted_name = $db->raw("SELECT name FROM dbix_raw WHERE id=?", $id);

isnt($encrypted_name, $people->[0]->[0], 'Encrypt Name insert value');

=?", vals=>[$people->[0]->[0], 1], encrypt=>[0]);

my $encrypted_name = $db->raw("SELECT name FROM dbix_raw WHERE id=?", 1);

isnt($encrypted_name, $people->[0]->[0], 'Encrypt Name with index');

vals=>[$people->[0]->[0], 1], encrypt=>[-2]);

my $encrypted_name = $db->raw("SELECT name FROM dbix_raw WHERE id=?", 1);

isnt($encrypted_name, $people->[0]->[0], 'Encrypt Name negative index');

my $db = prepare();
my $dbh = $db->dbh;

$db->dsn('');
$db->user('');
$db->password('');

$db->conf(get_conf());

$db->connect;

isnt($db->dbh, $dbh, "New dbh shouldn't equal old dbh");

E id=?", vals=>['Billy Boy', 1], encrypt=>'*');

my ($encrypted_name)= $db->raw("SELECT name FROM dbix_raw WHERE id=?", 1);

isnt($encrypted_name, $people->[0]->[0], 'Name where not encrypted');