#!/usr/bin/perl -w

# test_delete_alias.pl - test script for Mail::Alias package

use Mail::Alias;

my ($alias_obj);

$alias_obj = Mail::Alias->new();									# Use default filename
#$alias_obj = Mail::Alias->new("--insert alias filename here --");	# Set the filename


# Define the list of aliases to be deleted

	my (@alias_list) = ("test_alias1", "failed", "test_alias2");
	
	
# delete_alias() test

	if ($alias_obj->delete(@alias_list)) {
	}
	
	else {
		print "ERROR: unable to delete the alias from the file\n";
		print $alias_obj->error_check, "\n";
	}