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.

diff --git a/Changes b/Changes
index 7f7369b..f089c45 100644 (file)
--- a/Changes
+++ b/Changes
@@ -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.

diff --git a/MANIFEST b/MANIFEST
index c6fe1e2..7621a27 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -22,7 +22,6 @@ t/lib/script/testapp_test.pl
 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

diff --git a/lib/Catalyst/Authentication/Store/Htpasswd.pm b/lib/Catalyst/Authentication/Store/Htpasswd.pm
index d4daf20..d5c395c 100644 (file)
--- a/lib/Catalyst/Authentication/Store/Htpasswd.pm
+++ b/lib/Catalyst/Authentication/Store/Htpasswd.pm
@@ -9,7 +9,7 @@ use Authen::Htpasswd;
 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/) }
 

diff --git a/t/lib/TestApp/Model/Tangram.pm b/t/lib/TestApp/Model/Tangram.pm
deleted file mode 100644 (file)
index 98e26da..0000000
--- a/t/lib/TestApp/Model/Tangram.pm
+++ /dev/null
@@ -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;
-