{   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} );        }