1 files changed, 0 insertions, 32 deletions
diff --git a/test/dup-test b/test/dup-test
deleted file mode 100755
index b073cee..0000000
--- a/test/dup-test
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/usr/bin/perl
-
-use FS::UID qw(adminsuidsetup);
-use FS::svc_acct;
-
-my $user = 'ivan';
-my $svcpart = '2';
-
-my $counter = 10;
-
-my $pid = open(KID_TO_WRITE, "-|");
-
-if ( $pid ) { #parent
-  doit();
-} else { #kid
-  doit();
-  exit;
-}
-
-sub doit {
-
-  adminsuidsetup $user or die;
-
-  my $svc_acct = new FS::svc_acct ( {
-    'svcpart' => $svcpart,
-    'username' => "dup$counter",
-  } );
-  my $error = $svc_acct->insert;
-  warn $error if $error;
-
-}
-