trunk/t/20-Frey-File-FLV.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::File::FLV');
}

{
        package Mock;
        use Moose;
        extends 'Frey';
        with 'Frey::File::FLV';
}

isa_ok( Frey::File::FLV->meta, 'Moose::Meta::Role' );

ok( my $o = Mock->new(
        debug => $debug,
), 'new' );
diag $o->dump(2) if $debug;

foreach my $have ( qw/flv_info/ ) {
        ok( $o->can($have), "can $have" );
}


1	#!/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::File::FLV');
14	}
15
16	{
17	package Mock;
18	use Moose;
19	extends 'Frey';
20	with 'Frey::File::FLV';
21	}
22
23	isa_ok( Frey::File::FLV->meta, 'Moose::Meta::Role' );
24
25	ok( my $o = Mock->new(
26	debug => $debug,
27	), 'new' );
28	diag $o->dump(2) if $debug;
29
30	foreach my $have ( qw/flv_info/ ) {
31	ok( $o->can($have), "can $have" );
32	}
33
34