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