1 files changed, 96 insertions, 0 deletions
diff --git a/t/app/model/token.t b/t/app/model/token.t
new file mode 100644
index 000000000..12945975e
--- /dev/null
+++ b/t/app/model/token.t
@@ -0,0 +1,96 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 45;
+
+use FixMyStreet;
+use FixMyStreet::App;
+use mySociety::AuthToken;
+use mySociety::DBHandle 'dbh';
+
+# set things up so that code using mySociety::DBHandle is happy
+FixMyStreet->configure_mysociety_dbhandle();
+
+# NOTE - remember that you need to explicitly dbh()->commit after making
+# database changes with the mySociety::* modules.
+
+# create a token using DBIC and check we can read it using AuthToken, and vice
+# versa
+
+my %tests = (
+    nested_hash => { foo => 'bar', and => [ 'baz', 'bundy' ] },
+    array  => [ 'foo', 'bar' ],
+    scalar => 123,
+);
+
+my $token_rs = FixMyStreet::App->model('DB::Token');
+
+# create using DBIC
+foreach my $test_data_name ( sort keys %tests ) {
+    my $test_data = $tests{$test_data_name};
+
+    pass "--- testing DBIC create using '$test_data_name'";
+
+    my $dbic_token =
+      $token_rs->create( { scope => 'testing', data => $test_data } );
+    my $token = $dbic_token->token;
+    ok $token, "stored token '$token'";
+
+    is_deeply $dbic_token->data, $test_data, "data stored correctly using DBIC";
+
+    # read back using DBIC
+    is_deeply $token_rs->find( { token => $token, scope => 'testing' } )->data,
+      $test_data,
+      "data read back correctly with DBIC";
+
+    # read back using mySociety::AuthToken
+    is_deeply mySociety::AuthToken::retrieve( 'testing', $token ),
+      $test_data, "data read back correctly with m::AT";
+
+    # delete token
+    ok $dbic_token->delete, "delete token";
+
+    is $token_rs->find( { token => $token, scope => 'testing' } ),
+      undef,
+      "token gone for DBIC";
+
+    # read back using mySociety::AuthToken
+    is mySociety::AuthToken::retrieve( 'testing', $token ),
+      undef, "token gone with m::AT";
+
+}
+
+# create using m::AT
+foreach my $test_data_name ( sort keys %tests ) {
+    my $test_data = $tests{$test_data_name};
+
+    pass "--- testing m::AT create using '$test_data_name'";
+
+    my $token = mySociety::AuthToken::store( 'testing', $test_data );
+    dbh->commit();
+    ok $token, "stored token '$token'";
+
+    # read back using DBIC
+    is_deeply $token_rs->find( { token => $token, scope => 'testing' } )->data,
+      $test_data,
+      "data read back correctly with DBIC";
+
+    # read back using mySociety::AuthToken
+    is_deeply mySociety::AuthToken::retrieve( 'testing', $token ),
+      $test_data, "data read back correctly with m::AT";
+
+    # delete token
+    ok mySociety::AuthToken::destroy( 'testing', $token ), "destroy token";
+    dbh->commit();
+
+    is $token_rs->find( { token => $token, scope => 'testing' } ),
+      undef,
+      "token gone for DBIC";
+
+    # read back using mySociety::AuthToken
+    is mySociety::AuthToken::retrieve( 'testing', $token ),
+      undef, "token gone with m::AT";
+
+}