Oops, forgot to attach patch. Now it's really there.
--
Moritz Lenz
http://moritz.faui2k3.org/ | http://perl-6.de/
Index: languages/perl6/t/spectest_regression.data
===================================================================
--- languages/perl6/t/spectest_regression.data (revision 28065)
+++ languages/perl6/t/spectest_regression.data (working copy)
@@ -6,6 +6,8 @@
S02-literals/autoref.t
S02-literals/hex_chars.t
S02-literals/radix.t
+S02-polymorphic_types/subset-code.t # pure
+S02-polymorphic_types/subset-range.t
S03-operators/autoincrement.t # pure
S03-operators/comparison.t
S03-operators/cross-metaop.t
@@ -39,6 +41,7 @@
S29-list/map_empty_list.t
S29-list/map_flattening.t
S29-list/map_function_return_values.t
+S29-list/map.t
S29-list/mutating_listops.t # pure
S29-list/sort.t
S29-num/abs.t
Index: languages/perl6/Test.pm
===================================================================
--- languages/perl6/Test.pm (revision 28065)
+++ languages/perl6/Test.pm (working copy)
@@ -122,7 +122,23 @@
lives_ok($closure, '');
}
+multi sub eval_dies_ok($code, $reason) {
+ eval ( $code );
+ proclaim((defined $!), $reason);
+}
+multi sub eval_dies_ok($code) {
+ eval_dies_ok($code, '');
+}
+multi sub eval_lives_ok($code, $reason) {
+ try { eval ($code) }
+ proclaim((not defined $!), $reason);
+}
+multi sub eval_lives_ok($code) {
+ eval_lives_ok($code, '');
+}
+
+
## 'private' subs
sub proclaim($cond, $desc) {
