+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.
+++ /dev/null
-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;
-