t/09-02-pslA.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use feature ':5.10';
   5
   6 use Test::More tests => 1;
   7 use File::Spec;
   8 use DataExtract::FixedWidth;
   9
  10 my $file = File::Spec->catfile( 't', 'data', 'ps-lA.txt' );
  11 open ( my $fh, $file ) || die "Can not open $file";
  12
  13 my @lines = <$fh>;
  14
  15 my $fw = DataExtract::FixedWidth->new({
  16         heuristic => \@lines
  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'
  19 });
  20
  21 my @rows = map $fw->parse_hash($_), @lines;
  22
  23 my $stored_arr = [
  24  undef,
  25  {
  26    'S' => 'S',
  27    'F' => '4',
  28    'PID' => '1',
  29    'TIME' => '00:00:02',
  30    'NI' => '0',
  31    'PPID' => '0',
  32    'UID' => '0',
  33    'WCHAN' => '-',
  34    'TTY' => '?',
  35    'CMD' => 'init',
  36    'ADDR SZ' => '-   711',
  37    'C' => '0',
  38    'PRI' => '80'
  39  },
  40  {
  41    'S' => 'S',
  42    'F' => '1',
  43    'PID' => '2',
  44    'TIME' => '00:00:00',
  45    'NI' => '-5',
  46    'PPID' => '0',
  47    'UID' => '0',
  48    'WCHAN' => '-',
  49    'TTY' => '?',
  50    'CMD' => 'kthreadd',
  51    'ADDR SZ' => '-     0',
  52    'C' => '0',
  53    'PRI' => '75'
  54  },
  55  {
  56    'S' => 'S',
  57    'F' => '1',
  58    'PID' => '3',
  59    'TIME' => '00:00:00',
  60    'NI' => '-',
  61    'PPID' => '2',
  62    'UID' => '0',
  63    'WCHAN' => '-',
  64    'TTY' => '?',
  65    'CMD' => 'migration/0',
  66    'ADDR SZ' => '-     0',
  67    'C' => '0',
  68    'PRI' => '-40'
  69  },
  70  {
  71    'S' => 'S',
  72    'F' => '1',
  73    'PID' => '4',
  74    'TIME' => '00:00:16',
  75    'NI' => '-5',
  76    'PPID' => '2',
  77    'UID' => '0',
  78    'WCHAN' => '-',
  79    'TTY' => '?',
  80    'CMD' => 'ksoftirqd/0',
  81    'ADDR SZ' => '-     0',
  82    'C' => '0',
  83    'PRI' => '75'
  84  },
  85  {
  86    'S' => 'S',
  87    'F' => '5',
  88    'PID' => '5',
  89    'TIME' => '00:00:00',
  90    'NI' => '-',
  91    'PPID' => '2',
  92    'UID' => '0',
  93    'WCHAN' => '-',
  94    'TTY' => '?',
  95    'CMD' => 'watchdog/0',
  96    'ADDR SZ' => '-     0',
  97    'C' => '0',
  98    'PRI' => '-40'
  99  },
 100  {
 101    'S' => 'S',
 102    'F' => '1',
 103    'PID' => '6',
 104    'TIME' => '00:00:00',
 105    'NI' => '-',
 106    'PPID' => '2',
 107    'UID' => '0',
 108    'WCHAN' => '-',
 109    'TTY' => '?',
 110    'CMD' => 'migration/1',
 111    'ADDR SZ' => '-     0',
 112    'C' => '0',
 113    'PRI' => '-40'
 114  },
 115  {
 116    'S' => 'S',
 117    'F' => '1',
 118    'PID' => '7',
 119    'TIME' => '00:00:00',
 120    'NI' => '-5',
 121    'PPID' => '2',
 122    'UID' => '0',
 123    'WCHAN' => '-',
 124    'TTY' => '?',
 125    'CMD' => 'ksoftirqd/1',
 126    'ADDR SZ' => '-     0',
 127    'C' => '0',
 128    'PRI' => '75'
 129  },
 130  {
 131    'S' => 'S',
 132    'F' => '5',
 133    'PID' => '8',
 134    'TIME' => '00:00:00',
 135    'NI' => '-',
 136    'PPID' => '2',
 137    'UID' => '0',
 138    'WCHAN' => '-',
 139    'TTY' => '?',
 140    'CMD' => 'watchdog/1',
 141    'ADDR SZ' => '-     0',
 142    'C' => '0',
 143    'PRI' => '-40'
 144  },
 145  {
 146    'S' => 'S',
 147    'F' => '1',
 148    'PID' => '9',
 149    'TIME' => '00:00:00',
 150    'NI' => '-5',
 151    'PPID' => '2',
 152    'UID' => '0',
 153    'WCHAN' => '-',
 154    'TTY' => '?',
 155    'CMD' => 'events/0',
 156    'ADDR SZ' => '-     0',
 157    'C' => '0',
 158    'PRI' => '75'
 159  }
 160 ];
 161
 162 is_deeply( $stored_arr, \@rows, 'deep store of ps -lA' )