Source/Test/tabtest.pl

   1 #!/usr/bin/perl -w
   2 #
   3 #
   4 # $Id: tabtest.pl,v 1.3 2003/08/13 20:42:07 gumpu Exp $
   5 #
   6
   7 use strict;
   8 use ROBOTest;
   9
  10 ROBOTest::start("Tab Test");
  11
  12 my $count = 0;
  13 while (my $line = <>) {
  14     if ($line =~ m/^\s\s\s\s\s\sXXX/i) {
  15        $count++;
  16     }
  17 }
  18
  19 ROBOTest::assert( $count == 5, "Testing tabsize of 4" );
  20 ROBOTest::finish;
  21