Permalink
Browse files

Revert my last commit.

Not the right solution.
  • Loading branch information...
1 parent facbde9 commit 7922e91b8a11b56f37a920ea81caaf00e3e625ec @KrisShannon KrisShannon committed Jan 8, 2012
@@ -32,7 +32,10 @@ character and thus should B<not> break the list.
=end kwid
-#?pugs emit if $?PUGS_BACKEND ne "BACKEND_PUGS" { skip_rest "PIL2JS and PIL-Run do not support eval() yet."; exit; }
+#?pugs emit if $?PUGS_BACKEND ne "BACKEND_PUGS" {
+#?pugs emit skip_rest "PIL2JS and PIL-Run do not support eval() yet.";
+#?pugs emit exit;
+#?pugs emit }
my @list = <a b c d>;
my @separators = ("\t","\r","\n"," ");
@@ -54,8 +57,12 @@ for @nonseparators -> $sep {
my @res = eval $str;
my $vis = sprintf "%02x", ord $sep;
- #?rakudo emit if $sep eq "\xa0" { todo('\xa0 should not be a separator for list quotes'); };
- #?niecza emit if $sep eq "\xa0" { todo('\xa0 should not be a separator for list quotes'); };
+ #?rakudo emit if $sep eq "\xa0" {
+ #?rakudo emit todo('\xa0 should not be a separator for list quotes');
+ #?rakudo emit };
+ #?niecza emit if $sep eq "\xa0" {
+ #?niecza emit todo('\xa0 should not be a separator for list quotes');
+ #?niecza emit };
is( @res, [@list.join($sep)], "'\\x$vis' does not split in a whitespace quoted list")
};
View
@@ -7,7 +7,10 @@ plan 20;
# TODO: *really* need a better smartlink
# L<S02/Bare identifiers/"If the unrecognized subroutine name">
-#?pugs emit if $?PUGS_BACKEND ne "BACKEND_PUGS" { skip_rest "PIL2JS and PIL-Run do not support eval() yet."; exit; }
+#?pugs emit if $?PUGS_BACKEND ne "BACKEND_PUGS" {
+#?pugs emit skip_rest "PIL2JS and PIL-Run do not support eval() yet.";
+#?pugs emit exit;
+#?pugs emit }
# These tests are for parse-fails:
# (They check that the parser doesn't abort, but they might still parse
View
@@ -51,7 +51,10 @@ my @tests = (
#?pugs emit force_todo 8, 45..50, 94, 96;
-#?pugs emit unless $?PUGS_BACKEND eq "BACKEND_PUGS" { skip_rest "eval() not yet implemented in $?PUGS_BACKEND."; exit; }
+#?pugs emit unless $?PUGS_BACKEND eq "BACKEND_PUGS" {
+#?pugs emit skip_rest "eval() not yet implemented in $?PUGS_BACKEND.";
+#?pugs emit exit;
+#?pugs emit }
# L<S02/Names and Variables/To get a Perlish representation of any object>
View
@@ -1,95 +0,0 @@
-use v6;
-
-# L<S09/Lazy lists>
-
-# Tests for lazy lists
-#
-# TODO - uncomment "countable lazy slice" test
-# TODO - add timeout control, in tests that may loop forever
-# TODO - the backends that don't have infinite lists implemented
-# should warn of this, instead of entering an infinite loop.
-# TODO - add test for "build a list from a coroutine"
-# TODO - add test for zip()
-# TODO - add test for 2D array
-
-use Test;
-
-plan 12;
-
-
-unless $?PUGS_BACKEND eq "BACKEND_PERL5" { skip_rest ("$?PUGS_BACKEND does not support lazy lists yet.", :depends("lazy lists") ); exit; }
-{
- my @a = (1..Inf);
- is( @a.splice( 2, 3 ),
- "(3, 4, 5)",
- "splice" );
-}
-
-# basic list operations
-
-is( (1..Inf).elems,
- Inf,
- "elems" );
-
-is( (1..Inf).shift,
- 1,
- "shift" );
-
-is( (1..Inf).pop,
- Inf,
- "pop" );
-
-
-is( (1..Inf)[2..5],
- [3, 4, 5, 6],
- "simple slice" );
-
-{
- my @a = (1..Inf);
- is( @a[2..5],
- [3, 4, 5, 6],
- "simple slice" );
-}
-
-if $?PUGS_BACKEND eq "BACKEND_PERL5" {skip ( 1, "countable lazy slice not fully implemented in $?PUGS_BACKEND yet", :depends("lazy slices") );is( (1..Inf)[2..100000].perl, "(3, 4, 5, ..., 100001, 100002, 100003)", "countable lazy slice" );}# array assignment
-
-{
- my @a = (1..Inf);
- @a[1] = 99;
- is @a[0, 1, 2].join(' '), '1 99 2', 'assignment to infinite list';
-}
-
-{
- my @a = (1..Inf);
- @a[0,1] = (98, 99);
- is( ~@a[0..2],
- "98 99 3",
- "array slice assignment" );
-}
-
-{
- my @a = (1..Inf);
- @a[1].delete;
- is ~@a[0, 2], '1 3', 'array elemente delete (1)';
- nok @a[1].defined, 'array element delete (2)';
-}
-
-{
- my @a = (1..Inf);
- @a[0,1].delete;
- nok( all(@a[0, 1]).defined,
- "array slice delete()" );
-}
-
-{
- my @a = (1..Inf);
- @a[1..1000002] = @a[9..1000010];
- is( ~@a[0, 1, 2],
- '1 10 11',
- "big slice assignment" );
-}
-
-# vim: ft=perl6
-
-say "# FUDGED!";
-exit(1);
View
@@ -17,7 +17,11 @@ use Test;
plan 12;
-#?pugs emit unless $?PUGS_BACKEND eq "BACKEND_PERL5" { skip_rest ("$?PUGS_BACKEND does not support lazy lists yet.", :depends("lazy lists") ); exit; }
+#?pugs emit unless $?PUGS_BACKEND eq "BACKEND_PERL5" {
+#?pugs emit skip_rest ("$?PUGS_BACKEND does not support lazy lists yet.",
+#?pugs emit :depends("lazy lists") );
+#?pugs emit exit;
+#?pugs emit }
{
@@ -53,15 +57,15 @@ is( (1..Inf)[2..5],
"simple slice" );
}
-#?pugs emit if $?PUGS_BACKEND eq "BACKEND_PERL5" {
-
-#?pugs emit skip ( 1, "countable lazy slice not fully implemented in $?PUGS_BACKEND yet", :depends("lazy slices") );
-
-#?pugs emit is( (1..Inf)[2..100000].perl, "(3, 4, 5, ..., 100001, 100002, 100003)", "countable lazy slice" );
+#?pugs emit if $?PUGS_BACKEND eq "BACKEND_PERL5" {
+#?pugs emit skip ( 1, "countable lazy slice not fully implemented in $?PUGS_BACKEND yet",
+#?pugs emit :depends("lazy slices") );
+#?pugs emit is( (1..Inf)[2..100000].perl,
+#?pugs emit "(3, 4, 5, ..., 100001, 100002, 100003)",
+#?pugs emit "countable lazy slice" );
#?pugs emit }
-
# array assignment
{
View
@@ -13,7 +13,8 @@ plan 23;
is $bare(), 42, 'basic leave() works';
}
-#?pugs emit flunk '&?BLOCK.leave() not implemented in Pugs's interpreter core yet', :todo<feature>; skip_rest; exit;
+#?pugs emit flunk '&?BLOCK.leave() not implemented in Pugs's interpreter core yet', :todo<feature>;
+#?pugs emit skip_rest; exit;
{
my $bare = { &?BLOCK.leave(42); 23 };
View
@@ -25,7 +25,8 @@ is $/, "", 'with ""';
is $/.from, 0, 'from 0';
is $/.to, 0, 'to 0';
-#?pugs emit skip_rest 'infinite loop in PCR - XXX fix this before release!'; exit;
+#?pugs emit skip_rest 'infinite loop in PCR - XXX fix this before release!';
+#?pugs emit exit;
ok "x" ~~ /<&r>$/, '"x" ~~ /<r>$/ matched';
#?rakudo todo 'nom regression'
@@ -7,7 +7,10 @@ use Test;
plan 18;
#?pugs emit force_todo 1,2,4,5,7,9,11;
-#?pugs emit if $?PUGS_BACKEND ne "BACKEND_PUGS" { skip_rest "PIL2JS and PIL-Run do not support eval() yet."; exit; }
+#?pugs emit if $?PUGS_BACKEND ne "BACKEND_PUGS" {
+#?pugs emit skip_rest "PIL2JS and PIL-Run do not support eval() yet.";
+#?pugs emit exit;
+#?pugs emit }
my @tests = (
"t::spec::packages::RequireAndUse1", { $^a == 42 },
@@ -18,7 +18,8 @@ class Foo:ver<0.0.1> {
# L<S12/Introspection/should be called through the meta object>
-#?pugs emit skip_rest('meta class NYI'); exit;
+#?pugs emit skip_rest('meta class NYI');
+#?pugs emit exit;
ok(Foo.HOW.can(Foo, 'bar'), '... Foo can bar');
#?rakudo skip 'precedence of HOW'
@@ -5,7 +5,6 @@ use Test;
plan 22;
#?pugs emit skip_rest('parameterized roles'); exit;
-
#?pugs emit =begin SKIP
# L<S14/Parametric Subtyping>
@@ -11,7 +11,6 @@ Basic parameterized role tests, see L<S14/Roles>
=end pod
#?pugs emit skip_rest('parameterized roles'); exit;
-
#?pugs emit =begin SKIP
# L<S14/Run-time Mixins/may be parameterized>
@@ -13,7 +13,6 @@ Might need some more review and love --moritz
=end pod
#?pugs emit skip_rest('parameterized roles'); exit;
-
#?pugs emit =begin SKIP
# L<S14/Run-time Mixins/may be parameterized>
@@ -11,7 +11,6 @@ Tests for using parameterized roles as types, plus the of keyword.
=end pod
#?pugs emit skip_rest('parameterized roles'); exit;
-
#?pugs emit =begin SKIP
# L<S14/Parametric Roles>
View
@@ -15,7 +15,10 @@ I/O tests
plan 83;
-#?pugs emit if $*OS eq "browser" { skip_rest "Programs running in browsers don't have access to regular IO."; exit; }
+#?pugs emit if $*OS eq "browser" {
+#?pugs emit skip_rest "Programs running in browsers don't have access to regular IO.";
+#?pugs emit exit;
+#?pugs emit }
sub nonce () { return ".{$*PID}." ~ (1..1000).pick() }
View
@@ -62,7 +62,10 @@ my %tests =
[ "2.Num", 2 ] ],
);
-#?pugs emit if $?PUGS_BACKEND ne "BACKEND_PUGS" { skip_rest "PIL2JS and PIL-Run do not support eval() yet."; exit; }
+#?pugs emit if $?PUGS_BACKEND ne "BACKEND_PUGS" {
+#?pugs emit skip_rest "PIL2JS and PIL-Run do not support eval() yet.";
+#?pugs emit exit;
+#?pugs emit }
for %tests.keys.sort -> $type {
my @subtests = @(%tests{$type}); # XXX .[] doesn't work yet!
View
1 fudge
@@ -109,7 +109,6 @@ sub fudgeblock {
$REALLY_FUDGED = 1;
$ARGS = $2;
if ($ARGS =~ s/^emit\s*//) {
- $_ = <> while m/^\s*\#\?/;
$_ = $ARGS;
next;
}
@@ -7,7 +7,10 @@ plan 2;
# Parsing test, so should use eval to ensure it can run even if something is
# broken.
-#?pugs emit if $?PUGS_BACKEND ne "BACKEND_PUGS" { skip_rest "PIL2JS and PIL-Run do not support eval() yet."; exit; }
+#?pugs emit if $?PUGS_BACKEND ne "BACKEND_PUGS" {
+#?pugs emit skip_rest "PIL2JS and PIL-Run do not support eval() yet.";
+#?pugs emit exit;
+#?pugs emit }
{
class A { has $.b }

0 comments on commit 7922e91

Please sign in to comment.