From 488044ec93875ff6431ab12160fe2272c7b81572 Mon Sep 17 00:00:00 2001 From: Todd Bruner Date: Thu, 31 Oct 2024 14:47:30 -0600 Subject: [PATCH] Initial --- t/msv.t | 60 --------------------------------------------------------- 1 file changed, 60 deletions(-) delete mode 100755 t/msv.t diff --git a/t/msv.t b/t/msv.t deleted file mode 100755 index e97a25e..0000000 --- a/t/msv.t +++ /dev/null @@ -1,60 +0,0 @@ -#!/opt/perl/bin/perl - -use Test::Most; -use Data::Dumper::Concise; -use lib '../lib'; -use Scot::Inbox::Processor; -use Scot::Inbox::Config; -use Scot::Inbox::Log; -use Storable qw(dclone); -use feature qw(say); - -$ENV{S4INBOX_IMAP_SERVERNAME} = "mail.sandia.gov"; -$ENV{S4INBOX_IMAP_PORT} = 993; -$ENV{S4INBOX_IMAP_INBOX} = 'INBOX'; -$ENV{S4INBOX_IMAP_USERNAME} = 'scot-alerts'; -$ENV{S4INBOX_IMAP_PASSWORD} = ''; -$ENV{S4INBOX_SSL_VERIFY} = 1; -$ENV{S4INBOX_IMAP_PEEK} = 1; -$ENV{S4INBOX_PERMITTED_SENDERS} = '*,tbruner@sandia.gov'; -$ENV{S4INBOX_MSV_FILTER_DEFINITIONS} = '../etc/msv.defs'; -$ENV{S4INBOX_LOG_LEVEL} = 'TRACE'; -$ENV{S4INBOX_LOG_FILE} = './test.log'; -$ENV{S4INBOX_SCOTAPI_INSECURE_SSL} = 0; -$ENV{S4INBOX_API_KEY} = ''; -$ENV{S4INBOX_API_URI_ROOT} = 'https://scot4-qual/api/v1'; -$ENV{S4INBOX_MSV_DBM_FILE} = '../var/msgids.dbm'; -$ENV{S4INBOX_MAIL_CLIENT_CLASS} = 'Scot::Inbox::Imap'; -$ENV{S4INBOX_SCOT_INPUT_QUEUE} = 'alertgroup'; - -my $config = build_config(); -my $log = start_logging($config->{log}); -my $proc = Scot::Inbox::Processor->new( - config => $config, - log => $log, -); - -my $json = { - message_id => '<1234567@098765>', - data => [ - { - domain => 'ct-salsa.ca.sandia.gov', - stuff => 'goes here', - }, - { - domain => 'www.google.com', - stuff => 'dies here', - }, - ], -}; -my $json2 = dclone($json); - -$proc->filter_msv($json); - -say Dumper($json); - -$proc->filter_msv($json2); - -say Dumper($json2); - -