Commit | Line | Data |
71fd1550 |
1 | use strict; |
6b6ce2e0 |
2 | use lib qw(t/lib/); |
71fd1550 |
3 | use warnings FATAL => 'all'; |
4 | use Test::More; |
5 | |
6 | use App::IdiotBox; |
7 | use Data::Perl::Collection::Set; |
8 | use Scalar::Util qw(weaken); |
9 | |
10 | my $idiotbox = App::IdiotBox->new({ |
11 | config => { template_dir => 'share/html' } |
12 | }); |
13 | |
14 | my $bucket = bless({ |
15 | slug => 'lpw2009', |
16 | name => 'London Perl Workshop 2009', |
17 | }, 'App::IdiotBox::Bucket'); |
18 | |
19 | my %vid; |
20 | |
21 | $bucket->{videos} = Data::Perl::Collection::Set->new( |
22 | members => [ map { |
23 | my $o = bless( |
24 | { %$_, bucket => $bucket, details => '' }, |
25 | 'App::IdiotBox::Video' |
26 | ); |
27 | weaken($o->{bucket}); |
28 | $vid{$o->{slug}} = $o |
29 | } |
30 | { name => 'The M Word', slug => 'm-word', author => 'davorg' }, |
31 | { name => 'Dreamcasting', slug => 'dream', author => 'mst' }, |
32 | ] |
33 | ); |
34 | |
35 | sub slurp_html { |
36 | my $string; |
37 | my $fh = $_[0]->[-1]; |
38 | while (defined (my $chunk = $fh->getline)) { |
39 | $string .= $chunk; |
40 | } |
41 | $string; |
42 | } |
43 | |
44 | my $bucket_result = $idiotbox->show_bucket($bucket); |
45 | |
46 | my $html = slurp_html($bucket_result); |
47 | |
48 | warn $html; |
49 | |
50 | warn "\n\n------\n\n"; |
51 | |
52 | my $video_result = $idiotbox->show_video($vid{dream}); |
53 | |
54 | $html = slurp_html($video_result); |
55 | |
56 | warn $html; |
57 | |
58 | pass; |
59 | |
60 | done_testing; |