Parent Directory
| 
Revision Log
huge refactor of code into more distinct classes - Frey::Collection is now generally reusable from browser and designer - Frey::Web::Item is now (bare) class instead of role - Frey::Web::Layout now encapsulates different layouts for items
| 1 | dpavlin | 143 | #!/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::Web::Layout'); | ||
| 14 | use_ok('Frey'); | ||
| 15 | } | ||
| 16 | |||
| 17 | { | ||
| 18 | package Mock; | ||
| 19 | use Moose; | ||
| 20 | extends 'Frey'; | ||
| 21 | with 'Frey::Web::Layout'; | ||
| 22 | } | ||
| 23 | |||
| 24 | isa_ok( Frey::Web::Layout->meta, 'Moose::Meta::Role' ); | ||
| 25 | |||
| 26 | |||
| 27 | ok( my $o = Mock->new( debug => $debug ), 'new' ); | ||
| 28 | diag $o->dump(2) if $debug; | ||
| 29 | |||
| 30 |
| Name | Value |
|---|---|
| svn:executable | * |
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |