File: format_results.t

package info (click to toggle)
libtest-fixme-perl 0.14-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 224 kB
  • ctags: 6
  • sloc: perl: 127; makefile: 2
file content (22 lines) | stat: -rw-r--r-- 487 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
use strict;
use warnings;

use Test::More tests => 3;

# Load the module.
use_ok 'Test::Fixme';

# Check the formating of results.
my $results = Test::Fixme::scan_file(
    file  => 't/dirs/normal/two.pl',
    match => 'TEST'
);
ok $results, "got results to work with";

my $expected = << 'STOP';
File: 't/dirs/normal/two.pl'
    8       # TEST - test 1 (line 8).
    10      # TEST - test 2 (line 10).
STOP

is Test::Fixme::format_file_results($results), $expected, "check formatting";