[Bps-public-commit] r20283 - RT-Authen-ExternalAuth/trunk/t

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Wed Feb 23 05:32:43 2011
New Revision: 20283

Added:
   RT-Authen-ExternalAuth/trunk/t/sqlite.t

Log:
sqlite test

Added: RT-Authen-ExternalAuth/trunk/t/sqlite.t
==============================================================================
--- (empty file)
+++ RT-Authen-ExternalAuth/trunk/t/sqlite.t	Wed Feb 23 05:32:43 2011
@@ -0,0 +1,90 @@
+use strict;
+use warnings;
+
+use RT::Test tests => 10;
+use DBI;
+use File::Temp;
+use Digest::MD5;
+use File::Spec;
+
+eval { require DBD::SQLite; } or do {
+    plan skip_all => 'Unable to test without DBD::SQLite';
+};
+
+my $dir    = File::Temp::tempdir( CLEANUP => 1 );
+my $dbname = File::Spec->catfile( $dir, 'rtauthtest' );
+my $table  = 'users';
+my $dbh = DBI->connect("dbi:SQLite:$dbname");
+my $password = Digest::MD5::md5_hex('password');
+my $schema = <<"EOF";
+CREATE TABLE users (
+  username varchar(200) NOT NULL,
+  password varchar(40) NULL,
+  email varchar(16) NULL
+);
+EOF
+$dbh->do( $schema );
+$dbh->do(
+"INSERT INTO $table VALUES ( 'testuser', '$password', 'testuser\@invalid.tld')"
+);
+
+RT->Config->Set( Plugins                     => 'RT::Authen::ExternalAuth' );
+RT->Config->Set( ExternalAuthPriority        => ['My_SQLite'] );
+RT->Config->Set( ExternalInfoPriority        => ['My_SQLite'] );
+RT->Config->Set( ExternalServiceUsesSSLorTLS => 0 );
+RT->Config->Set( AutoCreateNonExternalUsers  => 0 );
+RT->Config->Set( AutoCreate                  => undef );
+RT->Config->Set(
+    ExternalSettings => {
+        'My_SQLite' => {
+            'type'   => 'db',
+            'database'        => $dbname,
+            'table'           => $table,
+            'dbi_driver'      => 'SQLite',
+            'u_field'         => 'username',
+            'p_field'         => 'password',
+            'p_enc_pkg'       => 'Digest::MD5',
+            'p_enc_sub'       => 'md5_hex',
+            'attr_match_list' => ['Name'],
+            'attr_map'        => {
+                'Name'           => 'username',
+                'EmailAddress'   => 'email',
+                'ExternalAuthId' => 'username',
+            }
+        },
+    }
+);
+
+my ( $baseurl, $m ) = RT::Test->started_ok();
+
+diag "test uri login";
+{
+    ok( !$m->login( 'fakeuser', 'password' ), 'not logged in with fake user' );
+    ok( !$m->login( 'testuser', 'wrongpassword' ), 'not logged in with wrong password' );
+    ok( $m->login( 'testuser', 'password' ), 'logged in' );
+}
+diag "test form login";
+{
+    $m->logout;
+    $m->get_ok( $baseurl, 'base url' );
+    $m->submit_form(
+        form_number => 1,
+        fields      => { user => 'testuser', pass => 'password', },
+    );
+    $m->text_contains( 'Logout', 'logged in via form' );
+}
+
+is( $m->uri, $baseurl . '/SelfService/', 'selfservice page' );
+
+diag "test redirect after login";
+{
+    $m->logout;
+    $m->get_ok( $baseurl . '/SelfService/Closed.html', 'closed tickets page' );
+    $m->submit_form(
+        form_number => 1,
+        fields      => { user => 'testuser', pass => 'password', },
+    );
+    $m->text_contains( 'Logout', 'logged in' );
+    is( $m->uri, $baseurl . '/SelfService/Closed.html' );
+}
+