From: ivan <ivan>
Date: Sun, 5 Sep 2004 09:42:27 +0000 (+0000)
Subject: adding duplicate test
X-Git-Tag: BEFORE_FINAL_MASONIZE~957
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=a5579c9499e67cfecf93ce172c0feec07479aade

adding duplicate 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;
+
+}
+