Parent Directory | Revision Log
central page creation [0.11] - make (optional) development feature in Makefile.PL - split page generation in Frey::Web->page - cleanup of html generation code all over - jump to Carp::REPL on errors (nice, but needs to be in browser) This is a move to more embedded html. While it does seem evil, we are aming here at lean framework, so readability is prefered...
1 | dpavlin | 119 | #!/usr/bin/perl |
2 | use strict; | ||
3 | use warnings; | ||
4 | |||
5 | my $debug = @ARGV ? 1 : 0; | ||
6 | |||
7 | use Test::More tests => 5; | ||
8 | use lib 'lib'; | ||
9 | |||
10 | #use Devel::LeakTrace::Fast; | ||
11 | use Data::Dump qw/dump/; | ||
12 | |||
13 | BEGIN { | ||
14 | use_ok('Frey::ClassBrowser'); | ||
15 | } | ||
16 | |||
17 | ok( my $o = Frey::ClassBrowser->new( fey_class => 'Strix::User', debug => $debug ), 'new' ); | ||
18 | isa_ok( $o, 'Frey::ClassBrowser' ); | ||
19 | diag dump( $o ) if $debug; | ||
20 | |||
21 | dpavlin | 121 | ok( my $h = $o->markup, 'markup' ); |
22 | dpavlin | 119 | diag $h if $debug; |
23 | |||
24 | like( $h, qr/Frey::ClassBrowser/, 'found me' ); |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |