tests working

tempire · Aug 28, 2011 · a64eb7c · a64eb7c
1 parent e0a4565
commit a64eb7c
Show file tree

Hide file tree

Showing 9 changed files with 13 additions and 11 deletions.
diff --git a/lib/Msync.pm b/lib/Msync.pm
@@ -3,7 +3,7 @@ package Msync;
 use App::Cmd::Setup -app;
 use File::Slurp 'slurp';
 use Nempire::Schema;
-use Net::Riak;
+#use Net::Riak;
 
 use Mojo::Base -base;
 

diff --git a/lib/Msync/Command/Flickr.pm b/lib/Msync/Command/Flickr.pm
@@ -63,6 +63,7 @@ sub execute {
 
             delete $set->{primary};
 
+            warn Dwarn $set;
             my $photoset =
               $schema->resultset('Photoset')->update_or_create($set);
 

diff --git a/lib/Nempire.pm b/lib/Nempire.pm
@@ -12,7 +12,7 @@ use Devel::Dwarn;
 sub startup {
     my $self = shift;
 
-    $self->plugin('pod_renderer');
+    $self->plugin('PODRenderer');
 
     $self->helper(
         db => sub {

diff --git a/script/generate_schema.pl b/script/generate_schema.pl
@@ -4,7 +4,8 @@
 use DBIx::Class::Schema::Loader 'make_schema_at';
 
 print $DBIx::Class::Schema::Loader::VERSION;
-my @dsn = qw/ dbi:mysql:dbname=nempire /;
+#my @dsn = qw/ dbi:mysql:dbname=nempire /;
+my @dsn = qw/ dbi:SQLite:dbname=nempire.db /;
 
 my $options = {
     debug          => 1,

diff --git a/t/blogs.t b/t/blogs.t
@@ -7,7 +7,7 @@ $ENV{TEST_DB} = 'test.db';
 Test::Database->new_test;
 
 use Nempire;
-my $t = Test::Mojo->new(app => 'Nempire');
+my $t = Test::Mojo->new('Nempire');
 
 # Blog not found
 $t->get_ok('/blogs/bad_title')->status_is(302)

diff --git a/t/empirex/flickr.t b/t/empirex/flickr.t
@@ -1,8 +1,8 @@
 use Modern::Perl;
-use EmpireX::Flickr;
 use Devel::Dwarn;
-
 use Test::Most;
+use Mock::Quick;
+use EmpireX::Flickr;
 
 ok my $f = EmpireX::Flickr->new;
 ok $f->login;
@@ -18,7 +18,7 @@ isnt ref $sets[0]->{description} => 'hash';
 
 # Photo list
 ok my @photos = $f->photos($sets[0]->{id});
-cmp_ok @photos, '>', 10;
+cmp_ok @photos, '>', 5;
 ok $photos[0]->{title};
 
 # Photo sizes

diff --git a/t/home.t b/t/home.t
@@ -7,7 +7,7 @@ $ENV{TEST_DB} = 'test.db';
 Test::Database->new_test;
 
 use Nempire;
-my $t = Test::Mojo->new(app => 'Nempire');
+my $t = Test::Mojo->new('Nempire');
 
 $t->get_ok('/')->status_is(200)->element_exists('h3')
   ->text_is('a.more' => 'Tech');

diff --git a/t/nempire/schema/photo.t b/t/nempire/schema/photo.t
@@ -32,7 +32,7 @@ ok $photo->update({idx => undef}), 'clear idx';
 ok !$photo->previous, 'returns false';
 ok !$photo->next,     'returns false';
 
-like $photo->time_since => qr/\d+ days and \d+ hours ago/, 'time since';
+like $photo->time_since => qr/\d+ \w+ and \d+ \w+ ago/, 'time since';
 ok $photo->update({taken => undef}), 'clear taken';
 ok $photo = $schema->resultset('Photo')->find($photo_id), 'refresh';
 ok !$photo->time_since, 'no time since';

diff --git a/t/nempire/schema/photoset.t b/t/nempire/schema/photoset.t
@@ -26,11 +26,11 @@ is $set->primary->id => $set->primary_photo->id, 'primary photo alias';
 is $set->region      => 'Texas';
 is $set->url_title   => $photoset_title;
 is $set->location    => 'League City, Texas';
-like $set->time_since => qr/\d+ days and \d+ hours ago/;
+like $set->time_since => qr/\d+ \w+ and \d+ \w+ ago/;
 
 is $set->previous->id => $prev_photoset_id, 'previous photoset';
 is $set->next->id     => $next_photoset_id, 'next photoset';
 
-like $set->time_since => qr/\d+ days and \d+ hours ago/, 'time since';
+like $set->time_since => qr/\d+ \w+ and \d+ \w+ ago/, 'time since';
 
 done_testing;