freeside/test dup-test,NONE,1.1

[ivan]

Update of /home/cvs/cvsroot/freeside/test
In directory pouncequick:/tmp/cvs-serv22002

Added Files:
	dup-test 
Log Message:
adding duplicate test

--- NEW FILE: dup-test ---
#!/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;

}