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
|
#!perl
use warnings;
use strict;
use Test::More tests => 12;
use Carp::Assert::More;
local $@;
$@ = '';
# one element in arrayref
eval {
assert_in('one', [ 'one' ] );
};
is( $@, '' );
# separate string, two elements
eval {
my $string = 'B';
assert_in( $string, [ 'A', 'B' ] );
};
is( $@, '' );
# separate string and manual arrayref
eval {
my $string = 'delta';
my @array = ('alpha','beta','delta');
assert_in( $string, \@array );
};
is( $@, '' );
# separate string and arrayref
eval {
my $string = 'tres';
my $ref = [ 'uno', 'dos', 'tres', 'quatro' ];
assert_in( $string, $ref );
};
is( $@, '' );
# not found fails
eval {
assert_in( 'F', [ 'A', 'B', 'C', 'D', 'E' ] );
};
like( $@, qr/Assertion.*failed/ );
# undef in the list is OK
eval {
assert_in( 'C', [ 'A', 'B', 'C', undef ] );
};
is( $@, '' );
# undef is an OK value to match against the list.
eval {
assert_in( undef, [ 'A', 'B', 'C', undef ] );
};
is( $@, '' );
# refs in the list fails
eval {
assert_in( 'C', [ 'A', 'B', 'C', {} ] );
};
like( $@, qr/Assertion.*failed/ );
# undef string fails
eval {
assert_in( undef, [ 'fail' ] );
};
like( $@, qr/Assertion.*failed/ );
# empty array fails
eval {
assert_in( 'empty', [ ] );
};
like( $@, qr/Assertion.*failed/ );
# undef for the arrayref fails
eval {
my $string = 'zippo';
assert_in( $string, undef );
};
like( $@, qr/Assertion.*failed/ );
# A bad reference should also fail.
eval {
my $string = 'nil';
my $ref = \$string;
assert_in( $string, $ref );
};
like( $@, qr/Assertion.*failed/ );
|
