From a5579c9499e67cfecf93ce172c0feec07479aade Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sun, 5 Sep 2004 09:42:27 +0000
Subject: [PATCH] adding duplicate test

---
 test/dup-test | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100755 test/dup-test

diff --git a/test/dup-test b/test/dup-test
new file mode 100755
index 000000000..b073cee29
--- /dev/null
+++ b/test/dup-test
@@ -0,0 +1,32 @@
+#!/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;
+
+}
+
-- 
2.11.0