projects
/
p5sagit/Class-Accessor-Grouped.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
add failing tests for punctuation in $field, remove unnecessary Win32 check and updat...
[p5sagit/Class-Accessor-Grouped.git]
/
t
/
accessors_ro.t
diff --git
a/t/accessors_ro.t
b/t/accessors_ro.t
index
bde31c9
..
6b543ed
100644
(file)
--- a/
t/accessors_ro.t
+++ b/
t/accessors_ro.t
@@
-59,7
+59,7
@@
foreach (qw/singlefield multiple1 multiple2/) {
foreach (qw/lr1 lr2/) {
my $name = "$_".'name';
my $alias = "_${name}_accessor";
- my $field = "$_".'field';
+ my $field = { lr1 => 'lr1;field', lr2 => q{lr2'field} }->{$_};
can_ok($class, $name, $alias);
ok(!$class->can($field));