/[Frey]/trunk/t/30-Frey-Class-Create.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/t/30-Frey-Class-Create.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1091 by dpavlin, Sun Jun 28 15:42:05 2009 UTC revision 1092 by dpavlin, Sun Jun 28 16:34:16 2009 UTC
# Line 4  use warnings; Line 4  use warnings;
4    
5  my $debug = @ARGV ? 1 : 0;  my $debug = @ARGV ? 1 : 0;
6    
7  use Test::More tests => 8;  use Test::More tests => 15;
8  use lib 'lib';  use lib 'lib';
9    
10  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
# Line 13  BEGIN { Line 13  BEGIN {
13          use_ok('Frey::Class::Create');          use_ok('Frey::Class::Create');
14  }  }
15    
16  ok( my $o = Frey::Class::Create->new( request_url => '/', debug => $debug, class => 'App::Skeleton', svk_add => 0 ), 'new' );  foreach my $t ( split(/\n/, qq{
17  ok( my $markup = $o->create_class_source_as_markup, 'create_class_source' );  App::Skeleton                   lib/App/Skeleton.pm                     t/App/Skeleton.t
18  diag $markup if $debug;  Frey::TestSkeleton              lib/Frey/TestSkeleton.pm        t/30-Frey-TestSkeleton.t
19  like( $markup, qr/created/i, 'created' );  }) ) {
20            next unless $t;
21  for my $expect ( 'lib/App/Skeleton.pm', 't/App/Skeleton.t' ) {          my @c = split(/\t+/, $t, 3);
22          ok( -e $expect, "created $expect" );  
23          ok( unlink($expect), 'unlink' );          ok( my $o = Frey::Class::Create->new( request_url => '/', debug => $debug, class => shift @c, svk_add => 0 ), 'new' );
24            ok( my $markup = $o->create_class_source_as_markup, 'create_class_source' );
25            diag $markup if $debug;
26            like( $markup, qr/created/i, 'created' );
27    
28            for my $expect ( @c ) {
29                    ok( -e $expect, "created $expect" );
30                    ok( unlink($expect), 'unlink' );
31            }
32  }  }
33    
Legend:
Removed from v.1091  
changed lines
  Added in v.1092
  ViewVC Help
Powered by ViewVC 1.1.26