Parent Directory
| 
Revision Log
Blame Newspeak for this: removed all action stuff because we don't really need it. Since we do double round trips with whole state to browser and back, it's enough just to separate second step into own package and put that into form action :-)
| 1 | dpavlin | 738 | #!/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 | dpavlin | 746 | use_ok('Frey::Class::Refactor'); |
| 14 | dpavlin | 738 | } |
| 15 | |||
| 16 | dpavlin | 746 | ok( my $o = Frey::Class::Refactor->new( request_url => '/', debug => $debug ), 'new' ); |
| 17 | dpavlin | 738 | ok( my $markup = $o->as_markup, 'as_markup' ); |
| 18 | diag $markup if $debug; | ||
| 19 | dpavlin | 746 | like( $markup, qr/grep/, 'markup content' ); |
| 20 | dpavlin | 738 |
| Name | Value |
|---|---|
| svn:executable | * |
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |