Change t/types.t to use the Parameter object, not the hash.

evalEmpire · Mar 25, 2013 · 6f2f863 · 6f2f863
1 parent ba49ec8
commit 6f2f863
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/t/types.t b/t/types.t
@@ -25,7 +25,7 @@ note "types"; {
 
         my $which = shift @$want;
         for my $idx (0..$#{$want}) {
-            is $ms->{signature}{$which}[$idx]{type}, $want->[$idx];
+            is $ms->{signature}{$which}[$idx]->type, $want->[$idx] || '';
         }
     }
 }
@@ -38,8 +38,9 @@ note "inject_for_type_check"; {
 
         sub inject_for_type_check {
             my $self = shift;
-            my $sig = shift;
-            return "type_check('$sig->{var}');";
+            my $sig  = shift;
+            my $var = $sig->variable;
+            return "type_check('$var');";
         }
     }