/
08-roughly.t
84 lines (80 loc) · 2.04 KB
/
08-roughly.t
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
use v6.c;
use Test::Declare;
use Test::Declare::Comparisons;
use Test::Declare::Suite;
use lib 't/lib';
use TDHelpers;
my class Numbers {
method five { 5 }
method twelve { 12 }
method incr(Int $n is rw) { $n++ }
}
class MyTest does Test::Declare::Suite {
method class { Numbers }
my $n = 3;
method tests {
${
name => 'mutation',
call => {
method => 'incr',
},
args => \($n),
expected => {
# "$n will be greater than 3"
mutates => roughly(&[>], 3),
},
},
${
name => 'seq',
call => {
method => 'five',
},
expected => {
return-value => roughly(&[~~], 1..10),
},
},
${
name => 'negative seq',
call => {
method => 'twelve',
},
expected => {
return-value => roughly(&[!~~], 1..10),
},
},
${
name => 'subhashof',
call => {
class => Hash,
construct => \({foo => 1, bar => 2}),
method => 'clone',
},
expected => {
return-value => roughly(&[subhashof], {foo => 1, bar => 2, quux => 3}),
},
},
${
name => 'infix superhashof',
call => {
class => Hash,
construct => \({foo => 1, bar => 2}),
method => 'clone',
},
expected => {
return-value => roughly(&[superhashof], {foo => 1}),
},
},
${
name => 'Test::Deep style superhashof',
call => {
class => Hash,
construct => \({foo => 1, bar => 2}),
method => 'clone',
},
expected => {
return-value => superhashof({foo => 1}),
},
},
}
}
MyTest.new.run-me;