perl - DBD::Mock specify output values for stored procedure -

-

i'm trying use dbd::mock test code uses database. far, normal sql queries work fine, i'm @ loss how can test code calls stored procedures. using bound_params key dbd::mock::session->new constructor, can specify input parameters, can't seem find way of setting mock results of parameters bound using dbi::statementhandle::bind_param_inout().

to provide example code going tested, have @ following:

use dbi; $dbh = dbi->connect('dbi:mock', '', '', { raiseerror => 1, printerror => 1 }); $sth = $dbh->prepare(q{ begin   some_stored_proc(i_arg1 => :arg1, o_arg2 => :arg2); end; }); ($arg1, $arg2) = ('foo', 'bar'); $sth->bind_param(':arg1', $arg1); $sth->bind_param_inout(':arg2', \$arg2, 200); $sth->execute(); print stderr "output value of arg2 = $arg2\n";

now, want seed db 'frobnication' arg2 parameter, such when above code executed, $arg2 variable contains string , output is

outputvalue of arg2 = frobnication

here ended doing. main work goes overriding of dbd::mock::st::bind_param_inout method.

use dbi; use dbd::mock; use dbd::mock::st; use carp;  # array of values bound on each invocation @values = qw/frobnication/; # dummy variable trick dbd::mock thinking got same reference # bind_param_inout , bound_params (the former not in control of # testing code, hence hack). $dummy = undef; # keep reference original bind_param_inout method $bind_param_inout_orig = \&dbd::mock::st::bind_param_inout; # override our mocked version assigns value reference. # notice @ bind_param_inout call, *not* execute call! local *dbd::mock::st::bind_param_inout = sub {   ($self, $param_num, $val, $size) = (shift, shift, shift, shift);   $bind_param_inout_orig->($self, $param_num, \$dummy, $size, @_);   $$val = shift @values or carp::confess '@values array exhausted!'; };  # set mock session $dbh = dbi->connect('dbi:mock:', '', '',   { raiseerror => 1, printerror => 1 }); $dbh->{mock_session} = dbd::mock::session->new('foo_session' => (   {     statement => qr/begin\n\s*some_stored_proc/,     results => [],     bound_params => ['foo', \$dummy]   }));  # code tested  $sth = $dbh->prepare(q{ begin   some_stored_proc(i_arg1 => :arg1, o_arg2 => :arg2); end; }); ($arg1, $arg2) = ('foo', 'bar'); $sth->bind_param(':arg1', $arg1); $sth->bind_param_inout(':arg2', \$arg2, 200); $sth->execute(); print stderr "output value of arg2 = $arg2\n";

Comments

Post a Comment

Popular posts from this blog

ruby - Trying to change last to "x"s to 23 -

-
i have been playing around irb , have string looks this: irb(main):072:0> puts ["[\"4354 5432 5432 xxxxx\", \"6547 6547 8543 xxxxx\", \"2344 6543 6674 xxxxx\", \"2346 6236 7543 xxxxx\", \"1273 5585 5587 xxxxx\"]"] => nil irb(main):073:0> what want gsub last 2 "x" s of each 17 digit combination, 23 . what i've tried far (i've been using rubular): a.gsub(/\d[x]/,"23") <= grabs "x" s i'm close a.gsub(/\w[x{2}]/,"23") <= grabs "x" s grabs two digits each combination. is there easier way i'm not understanding? a.gsub(/\d{4} \d{4} \d{4} xxx\kxx/, '23') \d{4} = 4 digits what \k drop matched far. can use don't replace entire number, still able validate have in desired format.
Read more

jquery - Clone last and append item to closest class -

-
this bare-bones code on page: <div class="list-container"> <div class="single-list-item"> <button>remove</button> </div> <div class="single-list-item"> <button>remove</button> </div> <div class="single-list-item"> <button>remove</button> </div> </div> <p><button class="add-list-item">add</button></p> <div class="list-container"> <div class="single-list-item"> <button>remove</button> </div> <div class="single-list-item"> <button>remove</button> </div> <div class="single-list-item"> <button>remove</button> </div> </div> <p><button class="add-list-item">add</button></p> <di...
Read more

css - Can I use the :after pseudo-element on an input field? -

-
i trying use :after css pseudo-element on input field, not work. if use span , works ok. <style type="text/css"> .mystyle:after {content:url(smiley.gif);} .mystyle {color:red;} </style> this works (puts smiley after "buu!" , before "some more") <span class="mystyle">buuu!</span>a more this not work - colors somevalue in red, there no smiley. <input class="mystyle" type="text" value="somevalue"> what doing wrong? should use pseudo-selector? note: cannot add span around input , because being generated third-party control. :after , :before not supported in internet explorer 7 , under, on elements. it's not meant used on replaced elements such form elements (inputs) , image elements . in other words it's impossible pure css. however if using jquery can use $(".mystyle").after("add smiley here"); api docs on .after to ...
Read more