#!/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($ezmlm_bin_path)->absolute;
-
-my $list_base = io->dir($list_base_path)->absolute;
-
-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);