Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
executable file 17 lines (11 sloc) 321 Bytes
#!/usr/bin/perl
use strict;
use warnings;
use TAP::Parser::Source;
use TAP::Parser::Grammar;
my $test = shift || die "No test named";
my $iter = TAP::Parser::Iterator->new( { command => [ $^X, $test ] } );
my $grammar = TAP::Parser::Grammar->new($iter);
while ( my $token = $grammar->tokenize ) {
# Do nothing
}
Jump to Line
Something went wrong with that request. Please try again.