Add ability to log in on /auth via text.

A confirmation code is sent via Twilio to be entered on the site.

1 files changed, 20 insertions, 0 deletions

diff --git a/t/Mock/Twilio.pm b/t/Mock/Twilio.pm
new file mode 100644
index 000000000..b35166704
--- /dev/null
+++ b/t/Mock/Twilio.pm
@@ -0,0 +1,20 @@
+package t::Mock::Twilio;
+
+use Web::Simple;
+
+has texts => (
+    is => 'ro',
+    default => sub { [] },
+);
+
+sub dispatch_request {
+    my $self = shift;
+
+    sub (POST + /2010-04-01/Accounts/*/Messages.json + %*) {
+        my ($self, $sid, $data) = @_;
+        push @{$self->texts}, $data;
+        return [ 200, [ 'Content-Type' => 'application/json' ], [ '{}' ] ];
+    },
+}
+
+__PACKAGE__->run_if_script;