[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.2 and 1.3

version 1.2, 2010/04/28 01:33:05 version 1.3, 2010/04/29 05:50:33
Line 1 
Line 1 
 use Test::More tests => 3;  #!perl
   use Test::More;    # tests => 3;
   
   use strict;
   use warnings;
   
   use File::Temp qw/ tempdir /;
   use File::Copy qw/ cp /;
   use File::Spec;
   
 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 $@;
   
         use lib 'bin';  
         require 'dudelicious.pl';  
         Dudelicious->import;  
 }  }
   
 my $app = Dudelicious::app;  my $todo_dir = tempdir( 'todo-XXXXXXXXX', CLEANUP => 1, TMPDIR => 1 );
 $app->log->level('error');  $ENV{DUDELICIOUS_HOME} = $todo_dir;
   
   foreach my $file qw( todo1.txt todo.list.txt dudelicious.conf ) {
       cp( File::Spec->catfile( 't',       $file ),
           File::Spec->catfile( $todo_dir, $file ),
       ) || die "Couldn't cp [$todo_dir]/[$file]: $!";
   }
   
   require File::Spec->catfile( 'bin', 'dudelicious.pl' );
   Dudelicious->import;
   Dudelicious->app->log->level('error');
   
 my $t = Test::Mojo->new;  my $t = Test::Mojo->new;
   
 # Index page  # Index page
 $t->get_ok('/')->status_is(200)->content_like(qr/Funky/);  $t->get_ok('/')->status_is(200)->content_like(qr/todo1\.txt/xms);
   
   $t->get_ok('/l/todo1')->status_is(200)->content_is(
       q{<!doctype html><html>
       <head><title>Funky!</title></head>
       <body><h1>todo1</h1>
   <ol>
       <li>
   (B) +GarageSale @phone schedule Goodwill pickup
       </li>
       <li>
   +GarageSale @home post signs around the neighborhood DUE:2006-08-01
       </li>
       <li>
   X eat meatballs @home
       </li>
       <li>
   (A) @phone thank Mom for the meatballs WAIT
       </li>
       <li>
   
       </li>
       <li>
   @shopping Eskimo pies
       </li>
       <li>
   email andrew@cpan.org for help +report_bug @wherever
       </li>
       <li>
   x 2009-01-01 completed with a date
       </li>
   </ol>
   </body>
   </html>
   }
   );
   
   $t->get_ok('/l/todo1.txt')->status_is(200)->content_is(
       q{(B) +GarageSale @phone schedule Goodwill pickup
   +GarageSale @home post signs around the neighborhood DUE:2006-08-01
   X eat meatballs @home
   (A) @phone thank Mom for the meatballs WAIT
   
   @shopping Eskimo pies
   email andrew@cpan.org for help +report_bug @wherever
   x 2009-01-01 completed with a date
   }
   );
   
   $t->get_ok('/l/todo1/e/1')->status_is(200)->content_is(
       q{<!doctype html><html>
       <head><title>Funky!</title></head>
       <body>(B) +GarageSale @phone schedule Goodwill pickup
   </body>
   </html>
   }
   );
   
   $t->get_ok('/l/todo1/e/1.txt')->status_is(200)->content_is(
       q{(B) +GarageSale @phone schedule Goodwill pickup
   }
   );
   
   done_testing();
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>