X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=bin%2Fezpz-create-test-ezmlm-list;h=8e0cb5b3e77a27c05b56fc714b872b129f7bd43e;hb=6b4ac75f6057d5775e1380ac845b602bef755cba;hp=06344e1e02ac54c7145172e92df7b63d3435a592;hpb=bdab61a3b862017e4b56e242212b55a4e574be79;p=scpubgit%2FApp-EzPz.git

diff --git a/bin/ezpz-create-test-ezmlm-list b/bin/ezpz-create-test-ezmlm-list
index 06344e1..8e0cb5b 100755
--- a/bin/ezpz-create-test-ezmlm-list
+++ b/bin/ezpz-create-test-ezmlm-list
@@ -1,23 +1,7 @@
 #!/usr/bin/env perl
 
 use lib (-d 'lib' ? ('lib') : ());
-use IO::All;
-use IPC::System::Simple qw(run);
+use App::EzPz::TestSetup;
 use strictures 1;
 
-die "Usage: ezpz-create-test-ezmlm-list ezmlm-bindir list-base-dir list-name"
-  unless @ARGV == 3;
-
-my ($ezmlm_bin_path, $list_base_path, $list_name) = @ARGV;
-
-my $ezmlm_bin = io->dir(io->dir($ezmlm_bin_path)->rel2abs);
-
-my $list_base = io->dir(io->dir($list_base_path)->rel2abs);
-
-run(
-  $ezmlm_bin->catfile('ezmlm-make'),
-  $list_base->catdir($list_name),
-  $list_base->catfile("dot-qmail-for-${list_name}"),
-  $list_name,
-  'example.com'
-);
+create_list(@ARGV);