[BACK]Return to dudelicious.t CVS log [TXT][DIR] Up to [local] / todotxt / Text-Todo / t

Diff for /todotxt/Text-Todo/t/dudelicious.t between version 1.6 and 1.7

version 1.6, 2010/04/30 02:43:14 version 1.7, 2010/04/30 07:18:33
Line 1 
Line 1 
 #!perl  #!perl
 # $AFresh1$  # $AFresh1: dudelicious.t,v 1.6 2010/04/30 01:43:14 andrew Exp $
 use Test::More;    # tests => 3;  use Test::More;    # tests => 3;
   
 use strict;  use strict;
Line 9 
Line 9 
 use File::Copy qw/ cp /;  use File::Copy qw/ cp /;
 use File::Spec;  use File::Spec;
   
   my $have_test_json = 1;
   
 BEGIN {  BEGIN {
     eval "use Test::Mojo";      eval "use Test::Mojo";
     plan skip_all => "Test::Mojo required for testing dudelicious" if $@;      plan skip_all => "Test::Mojo required for testing dudelicious" if $@;
   
 }  }
   
 my $todo_dir = tempdir( 'todo-XXXXXXXXX', CLEANUP => 1, TMPDIR => 1 );  my $todo_dir = tempdir( 'todo-XXXXXXXXX', CLEANUP => 1, TMPDIR => 1 );
Line 52 
Line 53 
   
 SKIP: {  SKIP: {
         skip "$f does not exist", 3 if !-e $f;          skip "$f does not exist", 3 if !-e $f;
           diag("Get [$f] from [$p]");
   
         diag("Getting [$f] from [$p]");  
         open my $fh, '<', $f or die $f . ': ' . $!;          open my $fh, '<', $f or die $f . ': ' . $!;
         $t->get_ok($p)->status_is(200)->content_is(          my $content = do { local $/; <$fh> };
             do { local $/; <$fh> }  
         );  
         close $fh;          close $fh;
   
           if ( $f =~ /\.json$/xms ) {
               $t->get_ok($p)->status_is(200)
                   ->json_content_is( Mojo::JSON->decode($content),
                   'Check JSON content' );
           }
           else {
               $t->get_ok($p)->status_is(200)
                   ->content_is( $content, 'Check content' );
           }
     }      }
 }  }
   
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>