4 BEGIN { $ENV{DBICTEST_VIA_REPLICATED} = 0 }
10 ##!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
11 ## This test uses undocumented internal methods
12 ## DO NOT USE THEM IN THE SAME MANNER
13 ## They are subject to ongoing change
14 ##!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16 # Set up the "usual" sqlite for DBICTest
17 my $schema = DBICTest->init_schema;
18 my $dbh = $schema->storage->_get_dbh;
20 my $sth_one = $schema->storage->_prepare_sth($dbh, 'SELECT 42');
21 my $sth_two = $schema->storage->_prepare_sth($dbh, 'SELECT 42');
22 $schema->storage->disable_sth_caching(1);
23 my $sth_three = $schema->storage->_prepare_sth($dbh, 'SELECT 42');
25 ok($sth_one == $sth_two, "statement caching works");
26 ok($sth_two != $sth_three, "disabling statement caching works");