diff options
author | ivan <ivan> | 2004-09-05 09:42:27 +0000 |
---|---|---|
committer | ivan <ivan> | 2004-09-05 09:42:27 +0000 |
commit | a5579c9499e67cfecf93ce172c0feec07479aade (patch) | |
tree | d6cbcaac3606f3f2f25d79642fabeb374eb795d7 /test/dup-test | |
parent | c63c48cc357aecdd1a584e4102e7cfff74702229 (diff) |
adding duplicate test
Diffstat (limited to 'test/dup-test')
-rwxr-xr-x | test/dup-test | 32 |
1 files changed, 32 insertions, 0 deletions
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; + +} + |