X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestApp%2FModel%2FTangram.pm;fp=t%2Flib%2FTestApp%2FModel%2FTangram.pm;h=0000000000000000000000000000000000000000;hb=c843ca0a0fffd0ae8d673d5c1244667d2dc23eaa;hp=98e26daf81e27d274f721e183cbb7c7e9fa2c1b3;hpb=e82cdd07bbea6a1c440034d6c6b5adf89a62b055;p=catagits%2FCatalyst-Authentication-Store-Htpasswd.git

diff --git a/t/lib/TestApp/Model/Tangram.pm b/t/lib/TestApp/Model/Tangram.pm
deleted file mode 100644
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;
-