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