has-accessor -> has_accessor

Raku · Dec 14, 2015 · 9aee198 · 9aee198
1 parent 3fe026d
commit 9aee198
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 7 deletions.
diff --git a/S06-advanced/wrap.t b/S06-advanced/wrap.t
@@ -245,7 +245,7 @@ throws-like '{nextsame}()', X::NoDispatcher, '{nextsame}() dies properly';
     }
 
     multi trait_mod:<is>(Attribute $var, :$wtf!) {
-        die "Must have accessor" unless $var.has-accessor;
+        die "Must have accessor" unless $var.has_accessor;
         $var.set_rw;
         $var does SomeTrait;
         $var.foo;
@@ -282,7 +282,7 @@ throws-like '{nextsame}()', X::NoDispatcher, '{nextsame}() dies properly';
     }
 
     multi trait_mod:<is>(Attribute $var, :$wtf!) {
-        die "Must have accessor" unless $var.has-accessor;
+        die "Must have accessor" unless $var.has_accessor;
         $var.set_rw;
         $var does SomeTrait;
         $var.foo;
@@ -318,7 +318,7 @@ throws-like '{nextsame}()', X::NoDispatcher, '{nextsame}() dies properly';
     }
 
     multi trait_mod:<is>(Attribute $var, :$wtf!) {
-        die "Must have accessor" unless $var.has-accessor;
+        die "Must have accessor" unless $var.has_accessor;
         $var.set_rw;
         $var does SomeTrait;
         $var.foo;
@@ -353,7 +353,7 @@ throws-like '{nextsame}()', X::NoDispatcher, '{nextsame}() dies properly';
     }
 
     multi trait_mod:<is>(Attribute $var, :$wtf!) {
-        die "Must have accessor" unless $var.has-accessor;
+        die "Must have accessor" unless $var.has_accessor;
         $var.set_rw;
         $var does SomeTrait;
         $var.foo;

diff --git a/S12-introspection/attributes.t b/S12-introspection/attributes.t
@@ -27,21 +27,21 @@ is +@attrs, 3, 'attribute introspection gave correct number of elements';
 
 is @attrs[0].name,         '$!c',  'first attribute had correct name';
 is @attrs[0].type.gist,    '(Mu)', 'first attribute had correct type';
-is @attrs[0].has-accessor, True,   'first attribute has an accessor';
+is @attrs[0].has_accessor, True,   'first attribute has an accessor';
 ok !@attrs[0].build,               'first attribute has no build value';
 ok @attrs[0].rw,                   'first attribute is rw';
 ok !@attrs[0].readonly,            'first attribute is not readonly';
 
 is @attrs[1].name,         '$!b',   'second attribute had correct name';
 is @attrs[1].type.gist,    '(Int)', 'second attribute had correct type';
-is @attrs[1].has-accessor, False,   'second attribute has no accessor';
+is @attrs[1].has_accessor, False,   'second attribute has no accessor';
 ok @attrs[1].build ~~ Code,         'second attribute has build block';
 is @attrs[1].build().(C, $_), 42,
                               'second attribute build block gives expected value';
 
 is @attrs[2].name,         '$!a',   'third attribute had correct name';
 is @attrs[2].type.gist,    '(Str)', 'third attribute had correct type';
-is @attrs[2].has-accessor, True,    'third attribute has an accessor';
+is @attrs[2].has_accessor, True,    'third attribute has an accessor';
 ok @attrs[2].build ~~ Code,         'third attribute has build block';
 is @attrs[2].build().(C, $_), "dnes je horuci a potrebujem pivo",
                                     'third attribute build block gives expected value';