Bot-BasicBot-Pluggable-Module-GitHub

 view release on metacpan or  search on metacpan

t/01-parse-config.t  view on Meta::CPAN

# Mock the bot store with known settings, then check we get the right info back.


# Fake bot storage; pretend to be the Store module, to some degree.
# Instantiated with a hashref of settings, stores then in the object, and
# returns them when asked for
package MockStore;
use strict;
sub new { 
    my ($class, $settings) = @_;
    return bless { settings => $settings } => $class; 
}
sub get {
    my ($self, $namespace, $key) = @_;
    return unless $namespace eq 'GitHub';
    return $self->{settings}{$key};
}


# Subclass to override fetching of config setting from store
package MockBot;

 view all matches for this distribution
 view release on metacpan -  search on metacpan

( run in 1.027 second using v1.00-cache-1.14-grep-28634ff-cpan-207214f8fbd )