Changeset 2158 for libswish3/trunk/src/t
- Timestamp:
- 09/19/08 07:16:36 (3 months ago)
- Files:
-
- libswish3/trunk/src/t/001-wordcount.t (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
libswish3/trunk/src/t/001-wordcount.t
r2150 r2158 50 50 sub words { 51 51 my $file = shift; 52 my $o = join( ' ', `./swish_lint -ttest_docs/$file` );52 my $o = join( ' ', `./swish_lint test_docs/$file` ); 53 53 my ($count) = ( $o =~ m/nwords: (\d+)/ ); 54 54 return $count || 0; … … 57 57 sub fromstdin { 58 58 my $file = shift; 59 my $o = join( ' ', `./swish_lint - t -< test_stdin/$file` );59 my $o = join( ' ', `./swish_lint - < test_stdin/$file` ); 60 60 my ($count) = ( $o =~ m/total words: (\d+)/ ); 61 61 return $count || 0;
