App-Spoor

 view release on metacpan or  search on metacpan

t/ErrorEntryParser.t  view on Meta::CPAN

    pipefwd => '',
    fwdopt => 'fwd'
  },
  result => [
    {forward => 'dodgy@dodgydomain.test', domain => 'spoor.test', email => 'victim@spoor.test'}
  ],
  user => 'spoortest'
);

$json = to_json(\%webmail_forward_added_data);
$entry = "[2019-02-10 10:24:17 +0000] info [spoor_forward_added] $json";

%expected_parsed_entry = (
  type => 'error',
  event => 'forward_added_partial_recipient',
  log_time => DateTime->new(
    year => 2019,
    month => 2,
    day => 10,
    hour => 10,
    minute => 24,

t/ErrorEntryParser.t  view on Meta::CPAN

    pipefwd => '',
    fwdopt => 'fwd'
  },
  result => [
    {forward => 'dodgy@dodgydomain.test', domain => 'spoor.test', email => 'victim@spoor.test'}
  ],
  user => 'spoortest'
);

$json = to_json(\%domain_level_forward_data);
$entry = "[2019-02-10 10:24:17 +0000] info [spoor_forward_added] $json";

%expected_parsed_entry = (
  type => 'error',
  event => 'forward_added_partial_recipient',
  log_time => DateTime->new(
    year => 2019,
    month => 2,
    day => 10,
    hour => 10,
    minute => 24,

t/ErrorEntryParser.t  view on Meta::CPAN

    pipefwd => '',
    fwdopt => 'system'
  },
  result => [
    {forward => 'dodgysystemuser', domain => 'spoor.test', email => 'victim@spoor.test'}
  ],
  user => 'spoortest'
);

$json = to_json(\%system_user_forward_data);
$entry = "[2019-02-10 10:24:17 +0000] info [spoor_forward_added] $json";

%expected_parsed_entry = (
  type => 'error',
  event => 'forward_added_partial_recipient',
  log_time => DateTime->new(
    year => 2019,
    month => 2,
    day => 10,
    hour => 10,
    minute => 24,

t/ErrorEntryParser.t  view on Meta::CPAN

    pipefwd => '/dev/null',
    fwdopt => 'pipe'
  },
  result => [
    {forward => '|/dev/null', domain => 'spoor.test', email => 'victim@spoor.test'}
  ],
  user => 'spoortest'
);

$json = to_json(\%pipe_to_script_forward_data);
$entry = "[2019-02-10 10:24:17 +0000] info [spoor_forward_added] $json";

%expected_parsed_entry = (
  type => 'error',
  event => 'forward_added_partial_recipient',
  log_time => DateTime->new(
    year => 2019,
    month => 2,
    day => 10,
    hour => 10,
    minute => 24,

t/ErrorEntryParser.t  view on Meta::CPAN

  App::Spoor::ErrorEntryParser::parse($entry),
  \%expected_parsed_entry,
  'System user forward'
);
is_deeply(
  App::Spoor::ErrorEntryParser::parse("$entry\n"),
  \%expected_parsed_entry,
  'System user forward- trailing newline'
);

$entry = "[2019-02-10 10:24:17 +0000] info [notspoor] blah";

%expected_parsed_entry = (
  type => 'error',
  event => 'unrecognised'
);

is_deeply(
  App::Spoor::ErrorEntryParser::parse("$entry"),
  \%expected_parsed_entry,
  'Unrecognised entry'