X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=test%2Fdup-test;fp=test%2Fdup-test;h=b073cee29bacdc8f8f92a3eca808ac3f25fe98fe;hp=0000000000000000000000000000000000000000;hb=a5579c9499e67cfecf93ce172c0feec07479aade;hpb=c63c48cc357aecdd1a584e4102e7cfff74702229

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