package dada_test_config;


use lib qw(./ ./DADA/perllib ../ ../DADA/perllib ../../ ../../DADA/perllib); 

use DADA::MailingList; 


require Exporter; 
@ISA = qw(Exporter); 


my $test_list_vars = { 

        list             => 'dadatest', 
        list_name        => 'Dada Test List', 
        list_owner_email => 'test@example.com',  
        password         => 'password', 
        retype_password  => 'password', 
        info             => 'list information', 
        privacy_policy   => 'Privacy Policy',
        physical_address => 'Physical Address', 

};



@EXPORT = qw(

$test_list_vars

create_test_list
remove_test_list

);




use strict; 
use vars qw(@EXPORT); 


sub create_test_list { 

    my $copy = $test_list_vars; 
    
    my $ls = DADA::MailingList::Create({-name => $copy->{list}}); 
   
    delete($copy->{retype_password});


    $ls->save($copy);
    
    return $copy->{list};
    
    undef $ls; 
    
}


sub remove_test_list { 

    
    DADA::MailingList::Remove({ -name => $test_list_vars->{list}});
    
}