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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
#!/usr/bin/env perl -w
use strict;
use Test::More;
use lib './';
use incdec;
is(
incdec::incdec('test 12', 1),
'test 13',
'increments an integer'
);
is(
incdec::incdec('test 12 0', 1),
'test 13 0',
'increments the first integer'
);
is(
incdec::incdec('test 12 0', 1, 6),
'test 13 0',
'increments the first integer with point at position 6'
);
is(
incdec::incdec('test 19 0', 1, 6),
'test 20 0',
'increments the first integer with point at position 6'
);
is(
incdec::incdec('test 12 0', 1, 7),
'test 12 1',
'increments the second integer with point at position 7'
);
is(
incdec::incdec('test 12 19 555', 1, 9),
'test 12 20 555',
'increments the second double-digit integer with point at position 9'
);
is(
incdec::incdec('test 12 19 555', 1, 12),
'test 12 19 556',
'increments the third triple-digit integer with point at position 12'
);
is(
incdec::incdec('test 12 19 555 64', 1, 16),
'test 12 19 555 65',
'increments the fourth double-digit integer with point at position 16'
);
is(
incdec::incdec('test 12 19 555 64', 1, 17, 1),
'test 12 19 555 65',
'increments the fourth double-digit integer with point at position 17 backward'
);
is(
incdec::incdec('test 12 19 555 64', 1, 13, 1),
'test 12 19 556 64',
'increments the third triple-digit integer with point at position 13 backward'
);
is(
incdec::incdec('test 12 19 555 64', 1, 14, 1),
'test 12 19 556 64',
'increments the third triple-digit integer with point at position 14 backward'
);
is(
incdec::incdec('test 12', -1),
'test 11',
'decrements the first integer'
);
is(
incdec::incdec('test 12', -1, 7, 1),
'test 11',
'decrements the first integer with point at position 7 backward'
);
is(
incdec::incdec('test 12 982 4', -1, 11, 1),
'test 12 981 4',
'decrements the second integer with point at position 11 backward'
);
is(
incdec::incdec('test 12 982 4', -1, 9, 1),
'test 12 981 4',
'decrements the second integer with point at position 9 backward'
);
done_testing;
|
