Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[t/spec] Change more Pugs todo flags to fudge commands

git-svn-id: http://svn.pugscode.org/pugs@27159 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
commit 8c5363fe05a2b9861c9925d1a328ff58cda3a0e4 1 parent 845deb0
kyle authored
View
21 S03-operators/binding-attributes.t
@@ -15,11 +15,12 @@ plan 12;
my $obj1 = Klass1.new;
try { $obj1.bind() };
- is $obj1.x, 42, "binding public instance attribute (1)", :todo<bug>;
+ #?pugs 3 todo 'bug'
+ is $obj1.x, 42, "binding public instance attribute (1)";
$var = 23;
- is $obj1.x, 23, "binding public instance attribute (2)", :todo<bug>;
+ is $obj1.x, 23, "binding public instance attribute (2)";
$obj1.x = 19;
- is $var, 19, "binding public instance attribute (3)", :todo<bug>;
+ is $var, 19, "binding public instance attribute (3)";
}
# Private instance attributes
@@ -35,11 +36,12 @@ plan 12;
my $obj2 = Klass2.new;
try { $obj2.bind() };
- is $obj2.get_x, 42, "binding private instance attribute (1)", :todo<bug>;
+ #?pugs 3 todo 'bug'
+ is $obj2.get_x, 42, "binding private instance attribute (1)";
$var = 23;
- is $obj2.get_x, 23, "binding private instance attribute (2)", :todo<bug>;
+ is $obj2.get_x, 23, "binding private instance attribute (2)";
$obj2.set_x(19);
- is $var, 19, "binding private instance attribute (3)", :todo<bug>;
+ is $var, 19, "binding private instance attribute (3)";
}
# Public class attributes
@@ -49,11 +51,12 @@ plan 12;
try { Klass3.bind() };
- is try { Klass3.x }, 42, "binding public class attribute (1)", :todo<bug>;
+ #?pugs 3 todo 'bug'
+ is try { Klass3.x }, 42, "binding public class attribute (1)";
$var = 23;
- is try { Klass3.x }, 23, "binding public class attribute (2)", :todo<bug>;
+ is try { Klass3.x }, 23, "binding public class attribute (2)";
try { Klass3.x = 19 };
- is $var, 19, "binding public class attribute (3)", :todo<bug>;
+ is $var, 19, "binding public class attribute (3)";
}
# Private class attributes
View
21 S04-blocks-and-statements/temp.t
@@ -94,7 +94,8 @@ eval('
temp $struct[1]<key>[1] = 23;
is $struct[1]<key>[1], 23, "temp() changed our nested arrayref/hashref element";
}
- is $struct[1]<key>[1], 1, "temp() restored our nested arrayref/hashref element", :todo<feature>;
+ #?pugs todo 'feature'
+ is $struct[1]<key>[1], 1, "temp() restored our nested arrayref/hashref element";
}
"1 - delete this line when the parsefail eval() is removed";
') or skip(2, "parsefail: temp \$struct[1]<key>[1]");
@@ -119,10 +120,11 @@ eval('
is advance(), 2, "TEMP{} block (3)";
is $next, 3, "TEMP{} block (4)";
- flunk "TEMP{} block (5)", :todo<feature>;
- flunk "TEMP{} block (6)", :todo<feature>;
- flunk "TEMP{} block (7)", :todo<feature>;
- flunk "TEMP{} block (8)", :todo<feature>;
+ #?pugs 4 todo 'feature'
+ flunk "TEMP{} block (5)";
+ flunk "TEMP{} block (6)";
+ flunk "TEMP{} block (7)";
+ flunk "TEMP{} block (8)";
# Following does parse, but isn't executed (don't know why).
# If the "{" on the following line is changed to "if 1 {", it is executed,
@@ -130,10 +132,11 @@ eval('
# function. So, for now, we just comment the following block and add
# unconditional flunk()s.
#{
- # is temp(advance()), 3, "TEMP{} block (5)", :todo<feature>;
- # is $next, 4, "TEMP{} block (6)", :todo<feature>;
- # is temp(advance()), 4, "TEMP{} block (7)", :todo<feature>;
- # is temp(advance()), 5, "TEMP{} block (8)", :todo<feature>;
+ # #?pugs 4 todo 'feature'
+ # is temp(advance()), 3, "TEMP{} block (5)";
+ # is $next, 4, "TEMP{} block (6)";
+ # is temp(advance()), 4, "TEMP{} block (7)";
+ # is temp(advance()), 5, "TEMP{} block (8)";
#} # $next = 3
is $next, 3, "TEMP{} block (9)";
View
24 S12-methods/trusts.t
@@ -47,20 +47,23 @@ class B {
try {
$foo = $!an_A!A::foo;
};
- is( $!.defined ?? 1 !! 0, 0, 'A trusts B, B can get an A scalar attr; '~($!//''), :todo<feature> );
- is( $foo, 'hello', 'value read by B from an A scalar var is correct', :todo<feature> );
+ #?pugs 2 todo 'feature'
+ is( $!.defined ?? 1 !! 0, 0, 'A trusts B, B can get an A scalar attr; '~($!//''));
+ is( $foo, 'hello', 'value read by B from an A scalar var is correct');
try {
@bar = $!an_A!A::bar;
};
- is( $!.defined ?? 1 !! 0, 0, 'A trusts B, B can get an A array attr; '~($!//''), :todo<feature> );
- is_deeply( @bar, [1,2,3], 'value read by B from an A scalar var is correct', :todo<feature> );
+ #?pugs 2 todo 'feature'
+ is( $!.defined ?? 1 !! 0, 0, 'A trusts B, B can get an A array attr; '~($!//''));
+ is_deeply( @bar, [1,2,3], 'value read by B from an A scalar var is correct');
try {
%baz = $!an_A!A::baz;
};
- is( $!.defined ?? 1 !! 0, 0, 'A trusts B, B can get an A hash attr; '~($!//''), :todo<feature> );
- is_deeply( %baz, {'m'=>'v'}, 'value read by B from an A scalar var is correct', :todo<feature> );
+ #?pugs 2 todo 'feature'
+ is( $!.defined ?? 1 !! 0, 0, 'A trusts B, B can get an A hash attr; '~($!//'') );
+ is_deeply( %baz, {'m'=>'v'}, 'value read by B from an A scalar var is correct' );
}
}
@@ -73,17 +76,20 @@ class C {
try {
$an_A!A::foo = 'hello';
};
- is( $!.defined ?? 1 !! 0, 1, 'A does not trust C, C can not set an A scalar attr; '~($!//''), :todo<feature> );
+ #?pugs todo 'feature'
+ is( $!.defined ?? 1 !! 0, 1, 'A does not trust C, C can not set an A scalar attr; '~($!//'') );
try {
$an_A!A::bar = [1,2,3];
};
- is( $!.defined ?? 1 !! 0, 1, 'A does not trust C, C can not set an A array attr; '~($!//''), :todo<feature> );
+ #?pugs todo 'feature'
+ is( $!.defined ?? 1 !! 0, 1, 'A does not trust C, C can not set an A array attr; '~($!//'') );
try {
$an_A!A::baz = {'m'=>'v'};
};
- is( $!.defined ?? 1 !! 0, 1, 'A does not trust C, C can not set an A hash attr; '~($!//''), :todo<feature> );
+ #?pugs todo 'feature'
+ is( $!.defined ?? 1 !! 0, 1, 'A does not trust C, C can not set an A hash attr; '~($!//'') );
$!my_A = $an_A;
}
Please sign in to comment.
Something went wrong with that request. Please try again.