dbic/t/03-Frey-IconBrowser.t

#!/usr/bin/perl
use strict;
use warnings;

my $debug = @ARGV ? 1 : 0;

use Test::More tests => 4;
use lib 'lib';

use Data::Dump qw/dump/;

BEGIN {
        use_ok('Frey::IconBrowser');
}

ok( my $o = Frey::IconBrowser->new( debug => $debug ), 'new' );
diag dump( $o ) if $debug;

my @icons = map { "static/icons/$_" } ( qw{
Frey.png
Frey/Introspect.png
Frey/INC.png
Frey/SVK.png
Frey/Class/Browser.png
Frey/Class/Loader.png
Frey/Session.png
Frey/PPI.png
Frey/Test/Runner.png
Frey/Test/Runner/failed.png
Frey/Test/Runner/passed.png
Frey/Test/Mock.png
Frey/Run.png
Frey/VCI.png
Frey/Web.png
} );

diag dump( @icons ) if $debug;

ok( my ($path,$styles) = $o->combine_images( @icons ), 'combine_images' );
diag $path, dump( $styles ) if $debug;

ok( my $markup = $o->as_markup, 'as_markup' );

my $html_path = 'var/t/' . ref($o) . '.html';
$markup =~ s{/var/}{../}sg;
$o->store( $html_path, $markup );
diag "created $html_path ", -s $html_path;

1	dpavlin	553	#!/usr/bin/perl
2			use strict;
3			use warnings;
4
5			my $debug = @ARGV ? 1 : 0;
6
7			use Test::More tests => 4;
8			use lib 'lib';
9
10			use Data::Dump qw/dump/;
11
12			BEGIN {
13			use_ok('Frey::IconBrowser');
14			}
15
16			ok( my $o = Frey::IconBrowser->new( debug => $debug ), 'new' );
17			diag dump( $o ) if $debug;
18
19			my @icons = map { "static/icons/$_" } ( qw{
20			Frey.png
21			Frey/Introspect.png
22			Frey/INC.png
23			Frey/SVK.png
24	dpavlin	818	Frey/Class/Browser.png
25			Frey/Class/Loader.png
26	dpavlin	553	Frey/Session.png
27			Frey/PPI.png
28			Frey/Test/Runner.png
29			Frey/Test/Runner/failed.png
30			Frey/Test/Runner/passed.png
31			Frey/Test/Mock.png
32			Frey/Run.png
33			Frey/VCI.png
34			Frey/Web.png
35			} );
36
37			diag dump( @icons ) if $debug;
38
39	dpavlin	555	ok( my ($path,$styles) = $o->combine_images( @icons ), 'combine_images' );
40	dpavlin	553	diag $path, dump( $styles ) if $debug;
41
42			ok( my $markup = $o->as_markup, 'as_markup' );
43
44	dpavlin	557	my $html_path = 'var/t/' . ref($o) . '.html';
45			$markup =~ s{/var/}{../}sg;
46			$o->store( $html_path, $markup );
47			diag "created $html_path ", -s $html_path;
48	dpavlin	555