Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

20 lines (13 sloc) 0.376 kb
#!perl -Tw
use warnings;
use strict;
use Test::More;
my @files = ( qw( ack ack-base ), glob( 't/*.t' ) );
plan tests => scalar @files;
for my $file ( @files ) {
local $/ = undef;
open( my $fh, '<', $file ) or die "Can't read $file: \n";
my $text = <$fh>;
close $fh or die;
is( index($text, "\t"), -1, "$file should have no embedded tabs" );
Jump to Line
Something went wrong with that request. Please try again.