1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
BEGIN {
eval 'use DBD::SQLite';
plan skip_all => 'need DBD::SQLite' if $@;
eval 'use SQL::Translator';
plan skip_all => 'need SQL::Translator' if $@;
plan tests => 10;
}
use lib 't/lib';
use MojoMojoTestSchema;
my $schema = MojoMojoTestSchema->init_schema(populate => 1);
my ($path_pages, $proto_pages) = $schema->resultset('Page')->path_pages('/');
my $root_page = $path_pages->[0];
my $root_content = $root_page->content;
isa_ok($root_content,'MojoMojo::Schema::Result::Content','Content object can be found');
is($root_content->status,'released','root page is released');
# Warning: the following tests only work because
# we currently create no links or wanted pages in mojomojo.sql
# when we create the default db.
my @links_from = $root_page->links_from;
is_deeply(\@links_from, [], 'no links from root page yet');
my @wantedpages= $root_page->wantedpages;
is_deeply(\@wantedpages, [], 'no wanted pages from root page yet');
# Test that store_links generates the link_from and wantedpage
# In the default content.
$root_page->content->store_links();
@wantedpages= $root_page->wantedpages;
@links_from = $root_page->links_from;
is(scalar @links_from, 1, '1 link from root page');
isa_ok($links_from[0], 'MojoMojo::Schema::Result::Link', 'Object of correct type');
is(scalar @wantedpages, 1, '1 wanted page from root page');
isa_ok($wantedpages[0], 'MojoMojo::Schema::Result::WantedPage', 'Object of correct type');
# Stored links does not grow
$root_page->content->store_links();
is(scalar @links_from, 1, '1 link from root page');
is(scalar @wantedpages, 1, '2 wanted pages from root page');
|
