From 64cbdddea8934732e58e8b44e81289bce0fecf23 Mon Sep 17 00:00:00 2001
From: Eelco Dolstra <eelco.dolstra@logicblox.com>
Date: Wed, 6 Nov 2013 16:10:47 +0100
Subject: [PATCH] Test whether incorrect passwords are rejected

---
 tests/api-test.pl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/tests/api-test.pl b/tests/api-test.pl
index f9068dd4..efbbf0fc 100644
--- a/tests/api-test.pl
+++ b/tests/api-test.pl
@@ -1,6 +1,6 @@
 use LWP::UserAgent;
 use JSON;
-use Test::Simple tests => 16;
+use Test::Simple tests => 17;
 
 my $ua = LWP::UserAgent->new;
 $ua->cookie_jar({});
@@ -17,6 +17,9 @@ sub request_json {
     return $res;
 }
 
+my $result = request_json({ uri => "/login", method => "POST", data => { username => "root", password => "wrong" } });
+ok($result->code() == 403, "Incorrect password rejected.");
+
 my $result = request_json({ uri => "/login", method => "POST", data => { username => "root", password => "foobar" } });
 
 my $user = decode_json($result->content());