[Catalyst-commits] r8474 - in Catalyst-Authentication-Store-Htpasswd/1.000/trunk: . lib/Catalyst/Authentication/Store t/lib/TestApp/Model

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2008-09-29 18:59:22 +0100 (Mon, 29 Sep 2008)
New Revision: 8474

Removed:
   Catalyst-Authentication-Store-Htpasswd/1.000/trunk/t/lib/TestApp/Model/Tangram.pm
Modified:
   Catalyst-Authentication-Store-Htpasswd/1.000/trunk/Changes
   Catalyst-Authentication-Store-Htpasswd/1.000/trunk/MANIFEST
   Catalyst-Authentication-Store-Htpasswd/1.000/trunk/lib/Catalyst/Authentication/Store/Htpasswd.pm
Log:
Checking in changes prior to tagging of version 1.001.  Changelog diff is:

=== Changes
==================================================================
--- Changes	(revision 7767)
+++ Changes	(local)
@@ -1,3 +1,7 @@
+1.001  Mon Sept  29 18:56:30 GMT 2008
+    - Remove Tangram from test application models so that tests
+      pass for other people. FAIL.
+
 1.000  Sun Sept  28 16:58:30 GMT 2008
     - Change from Module::Build to Module::Install
     - Update to the new authentication framework.


Modified: Catalyst-Authentication-Store-Htpasswd/1.000/trunk/Changes
===================================================================
--- Catalyst-Authentication-Store-Htpasswd/1.000/trunk/Changes	2008-09-29 17:36:35 UTC (rev 8473)
+++ Catalyst-Authentication-Store-Htpasswd/1.000/trunk/Changes	2008-09-29 17:59:22 UTC (rev 8474)
@@ -1,3 +1,7 @@
+1.001  Mon Sept  29 18:56:30 GMT 2008
+    - Remove Tangram from test application models so that tests
+      pass for other people. FAIL.
+
 1.000  Sun Sept  28 16:58:30 GMT 2008
     - Change from Module::Build to Module::Install
     - Update to the new authentication framework.

Modified: Catalyst-Authentication-Store-Htpasswd/1.000/trunk/MANIFEST
===================================================================
--- Catalyst-Authentication-Store-Htpasswd/1.000/trunk/MANIFEST	2008-09-29 17:36:35 UTC (rev 8473)
+++ Catalyst-Authentication-Store-Htpasswd/1.000/trunk/MANIFEST	2008-09-29 17:59:22 UTC (rev 8474)
@@ -22,7 +22,6 @@
 t/lib/TestApp.pm
 t/lib/TestApp/Controller/Root.pm
 t/lib/TestApp/htpasswd
-t/lib/TestApp/Model/Tangram.pm
 t/live-test.t
 t/pod-coverage.t
 t/pod.t

Modified: Catalyst-Authentication-Store-Htpasswd/1.000/trunk/lib/Catalyst/Authentication/Store/Htpasswd.pm
===================================================================
--- Catalyst-Authentication-Store-Htpasswd/1.000/trunk/lib/Catalyst/Authentication/Store/Htpasswd.pm	2008-09-29 17:36:35 UTC (rev 8473)
+++ Catalyst-Authentication-Store-Htpasswd/1.000/trunk/lib/Catalyst/Authentication/Store/Htpasswd.pm	2008-09-29 17:59:22 UTC (rev 8474)
@@ -9,7 +9,7 @@
 use Catalyst::Authentication::Store::Htpasswd::User;
 use Scalar::Util qw/blessed/;
 
-our $VERSION = '1.000';
+our $VERSION = '1.001';
 
 BEGIN { __PACKAGE__->mk_accessors(qw/file/) }
 

Deleted: Catalyst-Authentication-Store-Htpasswd/1.000/trunk/t/lib/TestApp/Model/Tangram.pm
===================================================================
--- Catalyst-Authentication-Store-Htpasswd/1.000/trunk/t/lib/TestApp/Model/Tangram.pm	2008-09-29 17:36:35 UTC (rev 8473)
+++ Catalyst-Authentication-Store-Htpasswd/1.000/trunk/t/lib/TestApp/Model/Tangram.pm	2008-09-29 17:59:22 UTC (rev 8474)
@@ -1,62 +0,0 @@
-package Users;
-use strict;
-use warnings;
-use base qw/Class::Accessor/;
-
-__PACKAGE__->mk_accessors(qw/username password/);
-
-sub new {
-    my ($class, %p) = @_;
-    bless { %p }, $class;
-}
-
-package TestApp::Model::Tangram;
-use strict;
-use warnings;
-use base qw/Catalyst::Model/;
-use DBI;
-use Tangram::Relational;
-use Tangram::Storage;
-use Tangram::Type::String;
-use Class::C3;
-use File::Temp qw/tempfile/;
-
-BEGIN {
-    __PACKAGE__->mk_accessors(qw/storage schema _sqlite_file/);
-}
-
-sub COMPONENT {
-    my ($class, $app, @rest) = @_;
-    my $self = $class->next::method($app, @rest);
-    my ($fh, $fn) = tempfile;
-    close($fh);
-    $self->{_sqlite_file} = $fn;
-    my @dsn = ("DBI:SQLite:dbname=$fn", '', '');
-    my $dbh = DBI->connect(@dsn);   
-    $self->{schema} = Tangram::Relational->schema( {
-        classes => [
-            Users => {
-                fields => {
-                    string => [qw/username password/],
-                },
-            },
-        ],
-    });
-    Tangram::Relational->deploy($self->schema, $dbh);
-    $dbh->disconnect;
-    $self->{storage} = Tangram::Relational->connect(
-        $self->schema, @dsn
-    );
-    my $test_user = Users->new(username => 'testuser', password => 'testpass');
-    $self->storage->insert($test_user);
-    return $self;
-}
-
-sub DESTROY {
-    my ($self) = @_;
-    $self->storage->disconnect if $self->storage;
-    unlink $self->{_sqlite_file};
-}
-
-1;
-