Skip to content
This repository has been archived by the owner on Jun 9, 2018. It is now read-only.

Commit

Permalink
Browse files Browse the repository at this point in the history
[spectest] list todo & skip tests
  • Loading branch information
fperrad committed Apr 5, 2009
1 parent fefb80a commit c0a93c7
Showing 1 changed file with 22 additions and 3 deletions.
25 changes: 22 additions & 3 deletions t/MarkdownTest.t
Expand Up @@ -36,12 +36,31 @@ else {

$ENV{MARKDOWN_STRICT} = 'NO_EXT';

my %skip = map { $_ => 'skip' } (
14,
);

my %todo = map { $_ => 'todo' } (
4,
14,
15,
16,
19
);

my $idx = 0;
foreach my $test_file (@test_files) {
$idx += 1;
my $test_name = basename($test_file, '.text');

my $code = Parrot::Test::slurp_file( $test_file ) . "\n";
my $out = Parrot::Test::slurp_file(File::Spec->catfile( @dir, "$test_name.html" )) ;
language_output_is( 'markdown', $code, $out, $test_name );
SKIP:
{
skip($test_name, 1) if (exists $skip{$idx});
my $code = Parrot::Test::slurp_file( $test_file ) . "\n";
my $out = Parrot::Test::slurp_file(File::Spec->catfile( @dir, "$test_name.html" )) ;
my @todo = (exists $todo{$idx}) ? ( 'todo', $test_name ) : ();
language_output_is( 'markdown', $code, $out, $test_name, @todo );
}
}


Expand Down

0 comments on commit c0a93c7

Please sign in to comment.