CPAN::Groonga

;
is_deeply($ref, $ref_get, 'get arrayref has equal data');
isnt(scalar($ref), scalar($ref_get), 'get arrayref has different pointer');
isnt(scalar($ref->[2]), scalar($ref_get->[2]), 'get arrayref has

ST');
is_deeply($ref, $ref_get, 'get hashref has equal data');
isnt(scalar($ref), scalar($ref_get), 'get hashref different pointer');
isnt(scalar($ref->{3}), scalar($ref_get->{3}), 'get hashref differ

      my $snd = $s->renew;
                return [$fst, $snd];
            };
        };
        isnt $fst, $snd;
    } 'session ID changes after renewing it';

    lives_and {
        my ($fst, $snd

        my $snd = $s->get;
                return [$fst, $snd];
            };
        };
        isnt $fst, $snd;
    } 'session ID changes after discarding it';

    lives_and {
        my $val = rg

n, "genRandomString($name).length ($len)");
  like($s, $pat, "genRandomString($name).pattern");
  isnt($s, $v->genRandomString($len, $type), "genRandomString($name).another");
}
ok($v->genRandomString

CT * 
				  FROM tripletail_test
			});
			is($hasharr->[0]->[0], 1, "[utf8_kanji] fetch ok");
			isnt($hasharr->[0]->[1], $kanji_data, "[utf8_kanji] fetching kanji data under latin1 setting get garbl

do{
				my $in_tx;
				$DB->tx(sub{ $in_tx = $DB->inTx(); });
			}, 1, "[tx_tran] inTx in tx";
			isnt 1, $DB->inTx(), "[tx_tran] inTx out of tx";
			
			# create test data (blue red yellow green aqua

do{
				my $in_tx;
				$DB->tx(sub{ $in_tx = $DB->inTx(); });
			}, 1, "[tx_tran] inTx in tx";
			isnt 1, $DB->inTx(), "[tx_tran] inTx out of tx";
			
			# create test data (blue red yellow green aqua

{content} =~ s{^((\d+):|)}{
			$1 or die "no time on line";
			push(@times, $2);
			'';
		}egm;
		isnt($ret->{content}, $CONTENT, "[enabled.single] content is changed");
		ok($times[0], "[enabled.sing

do{
				my $in_tx;
				$DB->tx(sub{ $in_tx = $DB->inTx(); });
			}, 1, "[tx_tran] inTx in tx";
			isnt 1, $DB->inTx(), "[tx_tran] inTx out of tx";
			
			# create test data (blue red yellow green aqua

do{
				my $in_tx;
				$DB->tx(sub{ $in_tx = $DB->inTx(); });
			}, 1, "[tx_tran] inTx in tx";
			isnt 1, $DB->inTx(), "[tx_tran] inTx out of tx";
			
			# create test data (blue red yellow green aqua

do{
				my $in_tx;
				$DB->tx(sub{ $in_tx = $DB->inTx(); });
			}, 1, "[tx_tran] inTx in tx";
			isnt 1, $DB->inTx(), "[tx_tran] inTx out of tx";
			
			# create test data (blue red yellow green aqua