summaryrefslogtreecommitdiff
path: root/test/dup-test
diff options
context:
space:
mode:
authorcvs2git <cvs2git>2010-12-27 00:04:45 +0000
committercvs2git <cvs2git>2010-12-27 00:04:45 +0000
commitc82d349f864e6bd9f96fd1156903bc1f7193a203 (patch)
treee117a87533656110b6acd56fc0ca64289892a9f5 /test/dup-test
parent74e058c8a010ef6feb539248a550d0bb169c1e94 (diff)
This commit was manufactured by cvs2svn to create tag 'TORRUS_1_0_9'.TORRUS_1_0_9
Diffstat (limited to 'test/dup-test')
-rwxr-xr-xtest/dup-test32
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;
-
-}
-