Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re^2: Testing Wrapped LDAP Classes

by stevieb (Canon)
on Dec 06, 2016 at 14:58 UTC ( [id://1177314] : note . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    use warnings;
    use strict;
    ...
    is $modify_sub->called, 1, "mocked sub called ok";
    
    done_testing();
    
  2. or download this
    before mocked sub called...
    
    ...
    ok 2 - obj was changed by mock
    ok 3 - mocked sub called ok
    1..3