optimize CDR rating after timed rate perf regression, RT#15739
[freeside.git] / 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