Fetch client information before request grant
Change-Id: I101d2750bce4f28397f225b4d68cffd88f5ed1fb
diff --git a/t/server/mock.pl b/t/server/mock.pl
index 8064208..1f32a39 100644
--- a/t/server/mock.pl
+++ b/t/server/mock.pl
@@ -67,6 +67,15 @@
return $c->app->defaults('auth_' . $auth);
};
+
+helper 'add_client' => sub {
+ my $c = shift;
+ my $client = shift;
+ my $list = $c->app->defaults('oauth.client_list');
+ push @$list, $client;
+};
+
+
# Load fixture responses
helper 'load_response' => sub {
my $c = shift;