Merge tag 'v2.3' into fiksgatami-dev

1 files changed, 32 insertions, 0 deletions

diff --git a/t/Mock/Twilio.pm b/t/Mock/Twilio.pm
new file mode 100644
index 000000000..125daa55f
--- /dev/null
+++ b/t/Mock/Twilio.pm
@@ -0,0 +1,32 @@
+package t::Mock::Twilio;
+
+use Web::Simple;
+
+has texts => (
+    is => 'ro',
+    default => sub { [] },
+);
+
+sub get_text_code {
+    my $self = shift;
+    my $text = shift @{$self->texts};
+    return unless $text;
+    my ($code) = $text->{Body} =~ /(\d+)/;
+    return $code;
+}
+
+sub dispatch_request {
+    my $self = shift;
+
+    sub (POST + /2010-04-01/Accounts/*/Messages.json + %*) {
+        my ($self, $sid, $data) = @_;
+        if ($data->{To} eq '+18165550101') {
+            return [ 400, [ 'Content-Type' => 'application/json' ],
+                [ '{"code":"21408", "message": "Unable to send"}' ] ];
+        }
+        push @{$self->texts}, $data;
+        return [ 200, [ 'Content-Type' => 'application/json' ], [ '{}' ] ];
+    },
+}
+
+__PACKAGE__->run_if_script;