This commit was manufactured by cvs2svn to create tag 'SQL_LEDGER_2_4_4'.SQL_LEDGER_2_4_4

1 files changed, 0 insertions, 32 deletions

diff --git a/test/dup-test b/test/dup-test
deleted file mode 100755
index b073cee29..000000000
--- 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;
-
-}
-