Unnamed

 {   
            my($method, $args) = $ctx->next_call;
            is($method => 'user_exists', q{called 'user_exists'} );
        }
    
        {   
            my($method, $args) = $ctx->next_call;
            is($method => 'check_user_roles', q{called 'check_user roles'...} );
            is($args->[1] =>  'admin', q{...with 'admin' as an argument} );
        }
        {   
            my($method, $args) = $ctx->next_call;
            is($method => 'check_user_roles', q{called 'check_user roles...'} );
            is($args->[1] =>  'user', q{...with 'user' as an argument} );
        }   
    
        {   
            my($method, $args) = $ctx->next_call;
            is($method => 'uri_for', q{called 'uri_for...'} );
            is($args->[1] =>  '/lists', q{...with '/lists' as an argument} );
        }