[dbsrgits/DBIx-Class.git] / t / storage / disable_sth_caching.t

use strict;
use warnings;

use Test::More;
use lib qw(t/lib);
use DBICTest;

plan tests => 2;

# Set up the "usual" sqlite for DBICTest
my $schema = DBICTest->init_schema;

my $sth_one = $schema->storage->sth('SELECT 42');
my $sth_two = $schema->storage->sth('SELECT 42');
$schema->storage->disable_sth_caching(1);
my $sth_three = $schema->storage->sth('SELECT 42');

ok($sth_one == $sth_two, "statement caching works");
ok($sth_two != $sth_three, "disabling statement caching works");
Commit	Line	Data
b33697ef	1	use strict;
f54428ab	2	use warnings;
b33697ef	3
	4	use Test::More;
	5	use lib qw(t/lib);
	6	use DBICTest;
	7
	8	plan tests => 2;
	9
	10	# Set up the "usual" sqlite for DBICTest
	11	my $schema = DBICTest->init_schema;
	12
	13	my $sth_one = $schema->storage->sth('SELECT 42');
	14	my $sth_two = $schema->storage->sth('SELECT 42');
	15	$schema->storage->disable_sth_caching(1);
	16	my $sth_three = $schema->storage->sth('SELECT 42');
	17
	18	ok($sth_one == $sth_two, "statement caching works");
	19	ok($sth_two != $sth_three, "disabling statement caching works");