@@ -67,10 +67,10 @@ sub gen_hash {
67
67
is_deeply % h <d >: p: delete, (), " slice unexisting single pair out" ;
68
68
is_deeply % h <d >:! p: delete, (d => Any ), " slice unexisting single pair out" ;
69
69
70
+ my $ e = (" e" , % h <e >);
70
71
# ?pugs 6 skip "no adverbials"
71
72
# ?niecza 6 todo "cannot combine adverbial pairs"
72
73
# ?rakudo 6 todo "cannot combine adverbial pairs"
73
- my $ e = (" e" , % h <e >);
74
74
is_deeply % h <e >: kv:! delete , $ e , " return a single key/value out" ;
75
75
ok % h <e >: exists , " e should not have been deleted" ;
76
76
is_deeply % h <e >: kv: delete, $ e , " slice a single key/value out" ;
@@ -88,10 +88,10 @@ sub gen_hash {
88
88
is_deeply % h <f >: k: delete, (), " slice unexisting single key" ;
89
89
is % h <f >:! k: delete, ' f' , " slice unexisting single key" ;
90
90
91
+ my $ g = % h <g >;
91
92
# ?pugs 6 skip "no adverbials"
92
93
# ?niecza 6 todo "cannot combine adverbial pairs"
93
94
# ?rakudo 6 todo "cannot combine adverbial pairs"
94
- my $ g = % h <g >;
95
95
is % h <g >: v:! delete , $ g , " return a single value out" ;
96
96
ok % h <g >: exists , " g should not have been deleted" ;
97
97
is % h <g >: v: delete, $ g , " slice a single value out" ;
0 commit comments