test/dup-test

   1 #!/usr/bin/perl
   2
   3 use FS::UID qw(adminsuidsetup);
   4 use FS::svc_acct;
   5
   6 my $user = 'ivan';
   7 my $svcpart = '2';
   8
   9 my $counter = 10;
  10
  11 my $pid = open(KID_TO_WRITE, "-|");
  12
  13 if ( $pid ) { #parent
  14   doit();
  15 } else { #kid
  16   doit();
  17   exit;
  18 }
  19
  20 sub doit {
  21
  22   adminsuidsetup $user or die;
  23
  24   my $svc_acct = new FS::svc_acct ( {
  25     'svcpart' => $svcpart,
  26     'username' => "dup$counter",
  27   } );
  28   my $error = $svc_acct->insert;
  29   warn $error if $error;
  30
  31 }
  32