Checking in changes prior to tagging of version 1.001. Changelog diff is:

[catagits/Catalyst-Authentication-Store-Htpasswd.git] / t / lib / TestApp / Model / Tangram.pm

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;
-