trunk/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/ClassBrowser.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
Frey/ClassLoader.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 $path = 'var/test/' . ref($o) . '.html';
$o->store( $path, $markup );

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			Frey/ClassBrowser.png
25			Frey/Session.png
26			Frey/PPI.png
27			Frey/Test/Runner.png
28			Frey/Test/Runner/failed.png
29			Frey/Test/Runner/passed.png
30			Frey/Test/Mock.png
31			Frey/Run.png
32			Frey/VCI.png
33			Frey/Web.png
34			Frey/ClassLoader.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	555	my $path = 'var/test/' . ref($o) . '.html';
45			$o->store( $path, $markup );
46