Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Some more spectest changes/fixes related to autoviv.

  • Loading branch information...
commit 7b837e803f9bebfd7f8bd28017f5e9fdb5f6d0ff 1 parent 546456c
@pmichaud pmichaud authored
View
2  S02-types/catch_type_cast_mismatch.t
@@ -22,7 +22,7 @@ dies_ok { $ref[0] }, 'Hash !~~ Positional';
{
$ref = [ 42 ];
isa_ok($ref, Array);
- dies_ok( { $ref<0> }, 'Accessing an array as a hash dies');
+ ok( $ref<0> ~~ Failure, 'Accessing an array as a hash fails');
}
# Also test that scalars give up their container types - this time a
View
18 S12-attributes/delegation.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan 66;
+plan 65;
=begin desc
@@ -197,13 +197,15 @@ class PairTest {
is $h.Str, ~{a => 5}, 'delegation of .Str and .push to hash';
}
-{
- class TypePseudoHash { has %!data handles Hash }
- my $h = TypePseudoHash.new;
- $h<a> = 'c';
- $h<b> = 'd';
- is $h<a b>.join('|'), 'c|d', 'can do handles + type object (1)';
-}
+# This test cannot work; autoviv requires Hash-like methods in
+# Any, which means that the 'handles Hash' fallback never occurs.
+#{
+# class TypePseudoHash { has %!data handles Hash }
+# my $h = TypePseudoHash.new;
+# $h<a> = 'c';
+# $h<b> = 'd';
+# is $h<a b>.join('|'), 'c|d', 'can do handles + type object (1)';
+#}
#?pugs skip "Can't modify constant item: VUndef"
{
Please sign in to comment.
Something went wrong with that request. Please try again.