use Test::More qw(no_plan);
use strict;
use warnings;
use DBI;

my $dbh = DBI->connect('dbi:Mock:','','' );

my @session_ar =
    ( {
       statement     => "select foo,bar from baz where fi=?",
       bound_params  => [ 1 ],
       results       => [['foo','bar'],
                         ['1foo','1bar']],
   },
      {
       statement     => "select foo,bar from baz where fi=?",
       bound_params  => [ 2 ],
       results       => [['foo','bar'],
                         ['2foo','2bar']],
   });
my $session = DBD::Mock::Session->new(@session_ar);
$dbh->{mock_session}=$session;

my $sth = $dbh->prepare("select foo,bar from baz where fi=?");

for my $i (1..2) {
    $sth->execute($i);
    my @result=$sth->fetchrow_array();
    is($result[0],"${i}foo","Got right foo");
    is($result[1],"${i}bar","Got right bar");
}