6 use Test
::More tests
=> 1;
8 use DataExtract
::FixedWidth
;
10 my $file = File
::Spec
->catfile( 't', 'data', 'ps-lA.txt' );
11 open ( my $fh, $file ) || die "Can not open $file";
15 my $fw = DataExtract
::FixedWidth
->new({
17 , cols
=> [qw
/S F PID TIME NI PPID UID WCHAN TTY CMD C PRI/, 'ADDR SZ']
18 , header_row
=> 'F S UID PID PPID C PRI NI ADDR SZ WCHAN TTY TIME CMD'
21 my @rows = map $fw->parse_hash($_), @lines;
65 'CMD' => 'migration/0',
80 'CMD' => 'ksoftirqd/0',
95 'CMD' => 'watchdog/0',
104 'TIME' => '00:00:00',
110 'CMD' => 'migration/1',
119 'TIME' => '00:00:00',
125 'CMD' => 'ksoftirqd/1',
134 'TIME' => '00:00:00',
140 'CMD' => 'watchdog/1',
149 'TIME' => '00:00:00',
162 is_deeply
( $stored_arr, \
@rows, 'deep store of ps -lA' )