File: test_account.pl

package info (click to toggle)
libbusiness-onlinepayment-ippay-perl 0.06-2
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 176 kB
  • sloc: perl: 644; makefile: 2
file content (42 lines) | stat: -rw-r--r-- 901 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
sub test_account_or_skip {
    my $suffix = shift;
    my($login, $password, %opt) = test_account($suffix);

    unless( defined $login ) {
        plan skip_all => "No test account";
    }

    return($login, $password, %opt);
}

sub test_account {
    my $suffix = shift || 'card';

    my($login, $password) = ('TESTTERMINAL', '');

    my %opt;
    if ( $suffix eq 'check ' ) {
      %opt = ('Origin' => 'RECURRING');
    } else {
      %opt = ('default_Origin' => 'RECURRING');
    }

    return($login, $password, %opt);
}

sub expiration_date {
    my($month, $year) = (localtime)[4,5];
    $month += 1;
    $year++;       # So we expire next year.
    $year %= 100;  # y2k?  What's that?

    return sprintf("%02d/%02d", $month, $year);
}

#sub tomorrow {
#    my($day, $month, $year) = (localtime(time+86400))[3..5];
#    return sprintf("%04d-%02d-%02d", $year+1900, ++$month, $day);
#}

1;