Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

24 lines (17 sloc) 0.421 kb
use strictures;
package more;
use Test::More;
use Test::InDistDir;
use lib 't/lib';
use TestSchema;
use Web::Scenefinity;
run();
done_testing;
sub run {
my $schema = TestSchema->deploy_or_connect;
$schema->prepopulate;
my $app = Web::Scenefinity->new( db => $schema );
my $more = $app->more_demos;
is_deeply [ sort @{$more} ], [qw( a b c )], 'results from more_demos look useful';
return;
}
Jump to Line
Something went wrong with that request. Please try again.