[perl #67010] tests available

[kyl...@gmail.com]

This is an automatically generated mail to inform you that tests are now available in t/spec/S32-list/sort.t

commit f9c6673e5b8c50bdc53a1defa548857d03a79a8c
Author: bbkr <bbkr@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Mon Jul 12 14:25:46 2010 +0000

[t/spec] tests for RT #67010 Error with glibc backtrace dump when cmp used wrong

git-svn-id: http://svn.pugscode.org/pugs@31640 c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S32-list/sort.t b/t/spec/S32-list/sort.t
index bebe619..2f82da3 100644
--- a/t/spec/S32-list/sort.t
+++ b/t/spec/S32-list/sort.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan 28;
+plan 29;

# L<S32::Containers/"List"/"=item sort">

@@ -203,4 +203,11 @@ plan 28;
is ~(42,).sort: { 0 }, "42", "method form of sort should work on arrays";
}

+# RT #67010
+{
+ my @list = 1, 2, Code;
+ lives_ok { @list.sort: { $^a cmp $^b } },
+ 'sort by class name';
+}
+
# vim: ft=perl6

[kyl...@gmail.com]

This is an automatically generated mail to inform you that tests are now available in t/spec/S14-roles/basic.t

commit d848f22aab4c9d42abb32207dcbf1d4a39dc7860
Author: bbkr <bbkr@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Mon Jul 12 15:01:12 2010 +0000

[t/spec] tests for RT #67768 Cannot declare a role with a name already assigned to a class

git-svn-id: http://svn.pugscode.org/pugs@31641 c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S14-roles/basic.t b/t/spec/S14-roles/basic.t
index 20d33f2..e0fc09e 100644
--- a/t/spec/S14-roles/basic.t
+++ b/t/spec/S14-roles/basic.t
@@ -143,6 +143,16 @@ eval_dies_ok '0 but RT66178', '"but" with non-existent role dies';
# RT #72848
lives_ok {0 but True}, '0 but True has applicable candidate';

+# RT #67768
+{
+ lives_ok { role List { method foo { 67768 } } },
+ 'can declare a role with a name already assigned to a class';
+ lives_ok { class C67768 does List { } },
+ 'can use a role with a name already assigned to a class';
+ is C67768.new.foo, 67768,
+ 'can call method from a role with a name already assigned to a class';
+}
+
done_testing;

# vim: ft=perl6

[kyl...@gmail.com]

This is an automatically generated mail to inform you that tests are now available in t/spec/S32-list/sort.t

commit 8a55371caf69c520e9c5272fa84b24d6a4f33682
Author: bbkr <bbkr@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Mon Jul 12 15:16:59 2010 +0000

[t/spec] tests for RT #68112 sort doesnt accept &rand (or zero-arg subs in general)

git-svn-id: http://svn.pugscode.org/pugs@31642 c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S32-list/sort.t b/t/spec/S32-list/sort.t
index 2f82da3..de6f71a 100644

--- a/t/spec/S32-list/sort.t
+++ b/t/spec/S32-list/sort.t
@@ -1,6 +1,6 @@
use v6;
use Test;

-plan 29;
+plan 31;

# L<S32::Containers/"List"/"=item sort">

@@ -210,4 +210,13 @@ plan 29;
'sort by class name';
}

+# RT #68112
+{
+ sub foo () { 0 }
+ lives_ok { (1..10).sort(&foo) },
+ 'sort accepts 0-arity method';
+ lives_ok { (1..10).sort(&rand) },
+ 'sort accepts rand method';

[kyl...@gmail.com]

This is an automatically generated mail to inform you that tests are now available in t/spec/S32-list/sort.t

commit dda2c2b53e5d047cff3110138f5982f3e8b2270d
Author: bbkr <bbkr@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Mon Jul 12 15:35:39 2010 +0000

[t/spec] tests for RT #68112 sort doesnt accept &rand (or zero-arg subs in general) - fudged

git-svn-id: http://svn.pugscode.org/pugs@31643 c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S32-list/sort.t b/t/spec/S32-list/sort.t
index de6f71a..1e0d219 100644
--- a/t/spec/S32-list/sort.t
+++ b/t/spec/S32-list/sort.t
@@ -211,6 +211,7 @@ plan 31;
}

# RT #68112
+#?rakudo skip "determine behavior of 0-arity methods passed to sort"
{
sub foo () { 0 }
lives_ok { (1..10).sort(&foo) },

[kyl...@gmail.com]

This is an automatically generated mail to inform you that tests are now available in t/spec/S02-literals/string-interpolation.t

commit 34d975a16ed97d91998ebac76d096293c6cdbfe7
Author: moritz <moritz@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Thu Jul 15 19:00:56 2010 +0000

[t/spec] test for RT #76234, interpolating empty block into a string

git-svn-id: http://svn.pugscode.org/pugs@31713 c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S02-literals/string-interpolation.t b/t/spec/S02-literals/string-interpolation.t
index 2b3a085..5c672fd 100644
--- a/t/spec/S02-literals/string-interpolation.t
+++ b/t/spec/S02-literals/string-interpolation.t
@@ -24,6 +24,9 @@ plan *;
my $a = 3;
ok "$a" ~~ Str, '"$a" results in a Str';
ok "{3}" ~~ Str, '"{3}" results in a Str';
+
+ # RT #76234
+ is "{}", '', 'Interpolating an empty block is cool';
}

my $rt65538_in = qq[line { (1,2,3).min }

[kyl...@gmail.com]

This is an automatically generated mail to inform you that tests are now available in t/spec/S02-builtin_data_types/whatever.t

commit 00c99647a074586660ac551d94a564fdd29c842a
Author: moritz <moritz@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Thu Jul 15 19:04:00 2010 +0000

[t/spec] tests for RT #73460, Whatever stars and variables

git-svn-id: http://svn.pugscode.org/pugs@31714 c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S02-builtin_data_types/whatever.t b/t/spec/S02-builtin_data_types/whatever.t
index 30d572a..94898d3 100644
--- a/t/spec/S02-builtin_data_types/whatever.t
+++ b/t/spec/S02-builtin_data_types/whatever.t
@@ -8,7 +8,12 @@ plan *;

{
my $x = *;
- ok($x.isa(Whatever), 'can assign * to a variable and isa works');
+ isa_ok $x, Whatever, 'can assign * to a variable and isa works';
+
+ my Whatever $y;
+ ok $y.WHAT === Whatever, 'can type variables with Whatever';
+
+ ok *.WHAT === Whatever, '*.WHAT does not autocurry';
}

# L<S02/Built-In Data Types/"Most of the built-in numeric operators">

[kyl...@gmail.com]

This is an automatically generated mail to inform you that tests are now available in t/spec/S12-attributes/instance.t

commit 8a69002619251c8f4b03425e40a01e4b0483ee1a
Author: moritz <moritz@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Fri Jul 16 07:56:35 2010 +0000

[t/spec] tests for RT #74186, unfudge two similar tests, and switch to planless testing

git-svn-id: http://svn.pugscode.org/pugs@31719 c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S12-attributes/instance.t b/t/spec/S12-attributes/instance.t
index 27c6d9b..0f49b1f 100644
--- a/t/spec/S12-attributes/instance.t
+++ b/t/spec/S12-attributes/instance.t
@@ -2,7 +2,7 @@ use v6;

use Test;

-plan 129;
+plan *;

=begin pod

@@ -26,7 +26,7 @@ class Foo1 { has $.bar; };
}, '.. checking autogenerated accessor existence';
ok($val, '... $foo.can("bar") should have returned true');
ok($foo.bar().notdef, '.. autogenerated accessor works');
- ok($foo.bar.notdef, '.. autogenerated accessor works w/out parens');
+ ok($foo.bar.notdef, '.. autogenerated accessor works w/out parens');
}

# L<S12/Attributes/Pseudo-assignment to an attribute declaration specifies the default>
@@ -187,7 +187,6 @@ class Foo1 { has $.bar; };
class Foo7e { has $.attr = 42 }
is Foo7e.new.attr, 42, "default attribute value (1)";

-#?rakudo todo 'scoping issues'
{
my $was_in_supplier = 0;
sub forty_two_supplier() { $was_in_supplier++; 42 }
@@ -576,4 +575,19 @@ is Foo7e.new.attr, 42, "default attribute value (1)";
}


+# RT #74186
+{
+ sub outer { 42 };
+ class AttribLex {
+ sub inner { 23 };
+ has $.outer = outer();
+ has $.inner = inner();
+ }
+ is AttribLex.new.outer, 42, 'Can use outer lexicals in attribut initialization';
+ is AttribLex.new.inner, 23, 'Can use lexicals in attribut initialization';
+
+}
+
+done_testing();
+
# vim: ft=perl6

[kyl...@gmail.com]

This is an automatically generated mail to inform you that tests are now available in t/spec/S04-declarations/my.t

commit 250691a4b287c3ba06b94e5d107bd9e60cfcb20e
Author: moritz <moritz@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Fri Jul 16 07:46:44 2010 +0000

[t/spec] tests for RT #76366, accessing lexicals through our-subs

git-svn-id: http://svn.pugscode.org/pugs@31718 c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S04-declarations/my.t b/t/spec/S04-declarations/my.t
index b14c3c3..68b5bc0 100644
--- a/t/spec/S04-declarations/my.t
+++ b/t/spec/S04-declarations/my.t
@@ -1,7 +1,7 @@
use v6;
use Test;

-plan 63;
+plan 65;

#L<S04/The Relationship of Blocks and Declarations/"declarations, all
# lexically scoped declarations are visible">
@@ -232,6 +232,19 @@ my $z = 42;
}
}

+# used to be RT #76366
+{
+ lives_ok { access_lexical_a() },
+ 'can call our-sub that accesses a lexical before the block was run';
+ {
+ my $a = 42;
+ our sub access_lexical_a() { $a }
+ }
+ is access_lexical_a(), 42,
+ 'can call our-sub that accesses a lexical after the block was run';
+
+}
+
eval_lives_ok 'my (%h?)', 'my (%h?) lives';

#RT 63588

[kyl...@gmail.com]

This is an automatically generated mail to inform you that tests are now available in t/spec/S06-multi/syntax.t

commit 17f12a34c378a536e8e9a816a149785bfd2bb5b6
Author: moritz <moritz@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Fri Jul 16 08:07:21 2010 +0000

[t/spec] tests for RT #75136: declaring a multi just returns the current candidate, not the whole set

git-svn-id: http://svn.pugscode.org/pugs@31720 c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S06-multi/syntax.t b/t/spec/S06-multi/syntax.t
index fd21d07..6f9a55e 100644
--- a/t/spec/S06-multi/syntax.t
+++ b/t/spec/S06-multi/syntax.t
@@ -2,7 +2,7 @@ use v6;

use Test;

-plan 34;
+plan *;

# L<S06/Routine modifiers/>
# L<S06/Parameters and arguments/>
@@ -114,6 +114,20 @@ ok(~&foo ~~ /foo/, 'a multi stringifies sensibly');
is 21.$m(), 42, 'can write anonymous methods inside multi subs';
}

+
+# RT #75136
+# a multi declaration should only return the current candidate, not the whole
+# set of candidates.
+{
+ multi sub koala(Int $x) { 42 * $x };
+
+ my $x = multi sub koala(Str $x) { 42 ~ $x }
+ is $x.candidates.elems,
+ 1, 'multi sub declaration returns just the current candidate';
+ is $x('moep'), '42moep', 'and that candidate works';
+ dies_ok { $x(23) }, '... and does not contain the full multiness';

[kyl...@gmail.com]

This is an automatically generated mail to inform you that tests are now available in t/spec/S12-methods/what.t

commit b2c44b304761621c37f3a9b72f2b28461db3dbda
Author: moritz <moritz@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Sun Jul 18 11:57:00 2010 +0000

[t/spec] tests for RT #74236, &Class::method access

git-svn-id: http://svn.pugscode.org/pugs@31744 c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S12-methods/what.t b/t/spec/S12-methods/what.t
index d315964..b1a1056 100644
--- a/t/spec/S12-methods/what.t
+++ b/t/spec/S12-methods/what.t
@@ -95,6 +95,19 @@ ok 1.1 == 11/10, 'decimal == the equivalent rational';
is ~2.WHAT, 'Int()', 'assignment to Int.WHAT does nothing';
}

+{
+ class AccessMethods {
+ our method a { };
+ method b { };
+ }
+
+ ok &AccessMethods::a.defined, 'Can access "our" method with &class::method';
+ ok &AccessMethods::a ~~ Method, '... and got a Method back';
+ nok &AccessMethods::b.defined, '"has" methods are hidden';
+ lives_ok {&AccessMethods::c.defined and die "foo"}, 'non-existant method access livess (and returns undef)';
+

[kyl...@gmail.com]

This is an automatically generated mail to inform you that tests are now available in t/spec/S12-construction/new.t

commit bab5843563abbdd1932d8f6436b16d74009ce39a
Author: moritz <moritz@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Sun Jul 18 12:04:09 2010 +0000

[t/spec] tests for RT #69676, delegating .new to self.Mu::new

git-svn-id: http://svn.pugscode.org/pugs@31745 c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S12-construction/new.t b/t/spec/S12-construction/new.t
index c9ae68e..38894c9 100644
--- a/t/spec/S12-construction/new.t
+++ b/t/spec/S12-construction/new.t
@@ -56,6 +56,23 @@ is $o.x, 5, '... worked for the class Parent (other order)';
dies_ok { RT71706::Artie.new }, 'die trying to instantiate missing class';
}

+# RT #69676
+{
+ class NewFromMu {
+ has $.x;
+ has $.y;
+
+ method new($a, $b) {
+ self.Mu::new(:x($a), :y($b));
+ }
+ }
+
+ my $x;
+ lives_ok { $x = NewFromMu.new('j', 'k') }, 'can delegate to self.Mu::new';
+ is $x.x, 'j', '... got the right attribute (1)';
+ is $x.y, 'k', '... got the right attribute (2)';

[kyl...@gmail.com]

This is an automatically generated mail to inform you that tests are now available in t/spec/S12-methods/multi.t

commit 4b312a5186e94c35751ac9e57bd520cd5869ad49
Author: moritz <moritz@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Sun Jul 18 12:17:21 2010 +0000

[t/spec] tests for RT #75872, awesome error message when multi method dispatch finds no matching candidate

Moritz ows jnthn++ a beer.

git-svn-id: http://svn.pugscode.org/pugs@31746 c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S12-methods/multi.t b/t/spec/S12-methods/multi.t
index 08e753f..5710b21 100644
--- a/t/spec/S12-methods/multi.t
+++ b/t/spec/S12-methods/multi.t
@@ -194,6 +194,16 @@ is Bar.new.a("not an Int"), 'Any-method in Foo';

is WorkingTie.has_tie( 42 ), 'tie3', 'broken class fixed by subclass (1)';
is WorkingTie.has_tie( 'x' ), 'tie4', 'broken class fixed by subclass (2)';
+
+ my $error;
+ try {
+ WorkingTie.new.has_tie([]);
+ }
+ $error = "$!";
+ ok $error ~~ /<< 'has_tie' >>/,
+ 'error message for failed dispatch contains method name';
+ ok $error ~~ /<< 'WorkingTie' >>/,
+ 'error message for failed dispatch contains invocant type';
}

done_testing;

[kyl...@gmail.com]

This is an automatically generated mail to inform you that tests are now available in t/spec/S04-declarations/my.t

commit cce068982cf58cf2f71673f12de5262528202010
Author: moritz <moritz@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Sun Jul 18 14:32:57 2010 +0000

[t/spec] test for RT #76466#

git-svn-id: http://svn.pugscode.org/pugs@31752 c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S04-declarations/my.t b/t/spec/S04-declarations/my.t
index 68b5bc0..c02ddac 100644
--- a/t/spec/S04-declarations/my.t
+++ b/t/spec/S04-declarations/my.t
@@ -232,9 +232,10 @@ my $z = 42;
}
}

-# used to be RT #76366
+# used to be RT #76366, #76466
{
- lives_ok { access_lexical_a() },
+ #?rakudo skip 'RT 76466'
+ nok access_lexical_a().defined,

'can call our-sub that accesses a lexical before the block was run';

{
my $a = 42;

[kyl...@gmail.com]

This is an automatically generated mail to inform you that tests are now available in t/spec/S12-construction/construction.t

commit f2824799ff1c44418b7348893d9d6353b96d4771
Author: moritz <moritz@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Sun Jul 18 14:29:41 2010 +0000

[t/spec] test for RT #76476, monkey-typed method new is not called

git-svn-id: http://svn.pugscode.org/pugs@31751 c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S12-construction/construction.t b/t/spec/S12-construction/construction.t
index 16b1573..dd91430 100644
--- a/t/spec/S12-construction/construction.t
+++ b/t/spec/S12-construction/construction.t

@@ -2,7 +2,7 @@ use v6;

use Test;

-plan 14;
+plan 15;

# L<S12/"Construction and Initialization">

@@ -76,4 +76,17 @@ is Foo.new("a string").a, 'a string', "our own 'new' was called";
is $a.env<foo>, 'bar', 'assignment works';
}

+# RT #76476
+{
+ use MONKEY_TYPING;
+ class MonkeyNew { has $.x is rw };
+ augment class MonkeyNew {
+ method new() {
+ self.bless(*, :x('called'));
+ }
+ };

+ #?rakudo todo 'RT 76476'

+ is MonkeyNew.new().x, 'called', 'monkey-typed .new() method is called';

[kyl...@gmail.com]

This is an automatically generated mail to inform you that tests are now available in at least one of these files: t/spec/S02-literals/listquote.t, t/spec/S06-signature/defaults.t

commit e0c07d6f4b4b5f2296d16dc663070bacb38cc5de
Author: moritz <moritz@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Sun Jul 18 14:40:10 2010 +0000

[t/spec] test for RT #76452, list assignment in function call

git-svn-id: http://svn.pugscode.org/pugs@31753 c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S02-literals/listquote.t b/t/spec/S02-literals/listquote.t
index abe1017..afe3421 100644
--- a/t/spec/S02-literals/listquote.t
+++ b/t/spec/S02-literals/listquote.t
@@ -92,6 +92,16 @@ eval_dies_ok '<STDIN>', '<STDIN> is disallowed';
isa_ok @a[4], Num, '< ... 1.2e1 ...> is a Num';
}

+# probably doesn't really belong here, but I don't know where else to put it
+# :( --moritz
+
+# RT #76452
+#?rakudo skip 'RT 76452'
+{
+ sub f($x) { $x[0] };
+ is f(my @x = (1, 2, 3)), 1, 'function call with assignment to list';
+}
+
done_testing();

# vim: ft=perl6
diff --git a/t/spec/S06-signature/defaults.t b/t/spec/S06-signature/defaults.t
index 989a761..d83d80c 100644
--- a/t/spec/S06-signature/defaults.t
+++ b/t/spec/S06-signature/defaults.t
@@ -10,7 +10,7 @@ Tests assigning default values to variables of type code in sub definitions.

# L<S06/Optional parameters/Default values can be calculated at run-time>

-plan 3;
+plan 4;

sub doubler($x) { return 2 * $x }

@@ -31,7 +31,14 @@ package MyPack {

}

-
ok((MyPack::val_v), "default sub called in package namespace");

+
+{
+ sub default_with_list($x = (1, 2)) {
+ $x[0];
+ }
+ is default_with_list(), 1, 'can have a parcel literal as default value';

[kyl...@gmail.com]

This is an automatically generated mail to inform you that tests are now available in t/spec/S02-names_and_variables/names.t

commit 6d7027ab9bb8b4a6c73582569e1d2732dbe4d723
Author: moritz <moritz@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Mon Jul 19 21:10:30 2010 +0000

[t/spec] test for RT #74276, names starting with Q

git-svn-id: http://svn.pugscode.org/pugs@31770 c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S02-names_and_variables/names.t b/t/spec/S02-names_and_variables/names.t
index 2b4bdac..b72580e 100644
--- a/t/spec/S02-names_and_variables/names.t
+++ b/t/spec/S02-names_and_variables/names.t

@@ -2,7 +2,7 @@ use v6;

use Test;

-plan 22;
+plan 23;

# I'm using semi-random nouns for variable names since I'm tired of foo/bar/baz and alpha/beta/...

@@ -77,4 +77,11 @@ plan 22;
'error message mentions name not recognized, no maximum recursion depth exceeded';
}

+# RT #74276
+# Rakudo had troubles with names starting with Q
+{
+ eval_lives_ok 'class Quox { }; Quox.new', 'class names can start with Q';
+

[Carl Mäsak via RT]

On Mon Jul 12 08:46:21 2010, bbkr wrote:
> [17:42] <masak> bbkr: re "determine behavior of 0-arity methods passed
> to sort" -- (1) it's not a method :) (2) I think the behavior is
already
> clear, at least if the spec says this should act like a Schwartzian
> transform, which I think it does.
> [17:43] <masak> then the behavior is "collect all (random) values,
sort
> on them".
> [17:46] <bbkr> masak: thanks, I didn't know about Schwartzian
transform.
> adding this info to ticket.

Changing my mind on this one. use .pick(*) if you want .sort(&rand)
semantics. Wrap your nullary function in a unary or binary function if
you want something more advanced.

Rejecting ticket.