Re^2: Test::MockObject not showing args when mocking a sub


Pathologically Eclectic Rubbish Lister
	PerlMonks

by jvector (Friar)

on May 27, 2009 at 14:45 UTC ( [id://766440]=note: print w/replies, xml )

Need Help??

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";});
[download]

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
[download]

Thank you!

This signature will be ready by Christmas

Comment on Re^2: Test::MockObject not showing args when mocking a sub Select or Download Code

Domain Nodelet^?

Node Status^?

node history
Node Type: note [id://766440]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others chilling in the Monastery: (3)

As of 2024-04-16 22:13 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

No recent polls found