Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Test::MockObject not showing args when mocking a sub

by jvector (Friar)
on May 27, 2009 at 14:08 UTC ( [id://766428]=perlquestion: print w/replies, xml ) Need Help??

jvector has asked for the wisdom of the Perl Monks concerning the following question:

Monks, again I commit the sin of Not Understanding It.

I am working with code that talks to a serial port.

$port = new Device::SerialPort("/dev$opt_p");
followed by
write_chunk ("modem control stuff");
where
sub write_chunk { (my $count) = $port->write($_[0]); }

so to test it I put

if ($TESTING) { use Test::MockObject; $port = Test::MockObject->new(); $port->mock ('write', sub {my $arg=shift;print "wrote $arg to the serial po +rt\n"} ); } else { $port = new Device::SerialPort("/dev/$opt_p"); }

So I would hope to see things like

wrote ATZ\r to the serial port

Instead I see

wrote Test::MockObject=HASH(0x885d760) to the serial port

The doc for Test::MockObject says

* "mock(*name*, *coderef*)" Adds a coderef to the object. This allows code to call the nam +ed method on the object. For example, this code: my $mock = Test::MockObject->new(); $mock->mock( 'fluorinate', sub { 'impurifying precious bodily fluids' } ); print $mock->fluorinate; will print a helpful warning message.

Clearly I get a helpful message showing me that the sub has been called. But I infer that the sub I provide in the mock ('write', ...) statement does not get the arguments that are provided to the write.

Is there something I am missing?


Everybody knows signatures don't exist

Replies are listed 'Best First'.
Re: Test::MockObject not showing args when mocking a sub
by Anonymous Monk on May 27, 2009 at 14:19 UTC
    use Test::MockObject; my $mock = Test::MockObject->new(); $mock->mock( 'fluorinate', sub { use Data::Dumper; print Dumper( \@_ ); return 'impurifying precious bodily fluids'; } ); print $mock->fluorinate(1,2); __END__ $VAR1 = [ bless( {}, 'Test::MockObject' ), 1, 2 ]; impurifying precious bodily fluids
      OK, so the arg list in the mocked call gets a MockObject ref unshifted into the first position. Saying
      $port->mock ('write', sub {my $Mock=shift;my $arg=shift;$arg=~s/\r/\n/g;print " +wrote $arg to the serial port\n";});
      gives
      wrote ATE0 to the serial port wrote AT+CMGF=1 to the serial port wrote AT+CPIN=9532 to the serial port wrote ATI to the serial port
      Thank you!

      This signature will be ready by Christmas

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://766428]
Approved by ikegami
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others avoiding work at the Monastery: (4)
As of 2024-04-13 10:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found