=================================================================== RCS file: /cvs/todotxt/Text-Todo/t/dudelicious.t,v retrieving revision 1.3 retrieving revision 1.6 diff -u -r1.3 -r1.6 --- todotxt/Text-Todo/t/dudelicious.t 2010/04/29 05:50:33 1.3 +++ todotxt/Text-Todo/t/dudelicious.t 2010/04/30 02:43:14 1.6 @@ -1,4 +1,5 @@ #!perl +# $AFresh1$ use Test::More; # tests => 3; use strict; @@ -29,68 +30,36 @@ my $t = Test::Mojo->new; -# Index page -$t->get_ok('/')->status_is(200)->content_like(qr/todo1\.txt/xms); +my @exts = ( q{}, '.html', '.txt', '.json' ); -$t->get_ok('/l/todo1')->status_is(200)->content_is( - q{ - Funky! -

todo1

-
    -
  1. -(B) +GarageSale @phone schedule Goodwill pickup -
    2. -
  2. -+GarageSale @home post signs around the neighborhood DUE:2006-08-01 -
    3. -
  3. -X eat meatballs @home -
    4. -
  4. -(A) @phone thank Mom for the meatballs WAIT -
    5. -
  5. +foreach my $p ( + '/', + ( map { '/l/todo1' . $_ } @exts ), + ( map { '/l/todo1/e/1' . $_ } @exts ), + ( map { '/l/todo1/e/4' . $_ } @exts ), + ( map { '/l/todo1/t' . $_ } @exts ), + ( map { '/l/todo1/t/project' . $_ } @exts ), + ( map { '/l/todo1/t/context' . $_ } @exts ), + ) +{ + my ( $volume, $directories, $file ) = File::Spec->splitpath($p); -
    6. -
  6. -@shopping Eskimo pies -
    7. -
  7. -email andrew@cpan.org for help +report_bug @wherever -
    8. -
  8. -x 2009-01-01 completed with a date -
    9. -
- - -} -); + $file ||= 'index.html'; + $file .= '.html' if $file !~ /\.[^.]+$/xms; -$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 + my $f = File::Spec->catfile( 't', 'dudelicious', $volume, $directories, + $file ); -@shopping Eskimo pies -email andrew@cpan.org for help +report_bug @wherever -x 2009-01-01 completed with a date -} -); +SKIP: { + skip "$f does not exist", 3 if !-e $f; -$t->get_ok('/l/todo1/e/1')->status_is(200)->content_is( - q{ - Funky! - (B) +GarageSale @phone schedule Goodwill pickup - - + diag("Getting [$f] from [$p]"); + open my $fh, '<', $f or die $f . ': ' . $!; + $t->get_ok($p)->status_is(200)->content_is( + do { local $/; <$fh> } + ); + close $fh; + } } -); - -$t->get_ok('/l/todo1/e/1.txt')->status_is(200)->content_is( - q{(B) +GarageSale @phone schedule Goodwill pickup -} -); done_testing();