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
|
#!/usr/bin/perl
use v5.18;
use warnings;
use Test2::V0;
use Object::Pad 0.800;
{
ok( !eval <<'EOPERL',
field $field;
EOPERL
'field outside class fails' );
like( $@, qr/^Cannot 'field' outside of 'class' at /,
'message from failure of field' );
}
# RT132337
{
ok( !eval <<'EOPERL',
class AClass { }
field $field;
EOPERL
'field after closed class block fails' );
like( $@, qr/^Cannot 'field' outside of 'class' at /);
}
{
ok( !eval <<'EOPERL',
method m() { }
EOPERL
'method outside class fails' );
like( $@, qr/^Cannot 'method' outside of 'class' at /,
'message from failure of method' );
}
{
ok( !eval <<'EOPERL',
class BClass {
my $c = __CLASS__;
}
EOPERL
'__CLASS__ outside method fails' );
like( $@, qr/^Cannot use __CLASS__ outside of a /,
'message from failure of __CLASS__' );
}
done_testing;
|
