Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

class A{}; say A.HOW().perl fails #1156

Closed
p6rt opened this issue Jul 22, 2009 · 5 comments
Closed

class A{}; say A.HOW().perl fails #1156

p6rt opened this issue Jul 22, 2009 · 5 comments

Comments

@p6rt
Copy link

p6rt commented Jul 22, 2009

Migrated from rt.perl.org#67790 (status was 'resolved')

Searchable as RT67790$

@p6rt
Copy link
Author

p6rt commented Jul 22, 2009

From hudnix@gmail.com

<hudnix_>rakudo​: class A{}; say A.HOW().perl
<p6eval>rakudo 254b3a​: OUTPUT«Method 'perl' not found for invocant of
class 'P6metaclass'␤»

<[Coke]> rakudo​: class A{}; say A.HOW().PARROT
<p6eval> rakudo 254b3a​: OUTPUT«Method 'PARROT' not found for invocant
of class 'P6metaclass'␤»
<PerlJam> hudnix_​: class A {}; say A^.perl;
<masak> hudnix_, [Coke]​: I'd say those are reportable bugs.
<hudnix_> rakudo​: class A {}; say A^.perl
<p6eval> rakudo 254b3a​: OUTPUT«A()undef␤»
<masak> PerlJam​: not the same, I think.
<masak> o_O
<PerlJam> IIRC, $foo^.meth is a short-hand for $foo.HOW($foo).meth
<moritz_> the other way round
<moritz_> $foo.HOW.meth($foo)
<PerlJam> looks like I don't recall correctly :)
<hudnix_> S12 says the syntax should be ^A.perl, but that doesn't work either
<hudnix_> rakudo​: class A {}; say ^A.perl
<p6eval> rakudo 254b3a​: OUTPUT«␤»
* masak checks
<masak> moritz_​: right, that's what I thought I remembered.
<hudnix_> at least that doesn't error

@p6rt
Copy link
Author

p6rt commented Aug 8, 2009

From @kyleha

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

commit 9be2b1d3ad7c79a41c1c367ba688a9c46a9bedd5
Author​: kyle <kyle@​c213334d-75ef-0310-aa23-eaa082d1ae64>
Date​: Sat Aug 8 01​:42​:55 2009 +0000

  [t/spec] Test for RT #​67790
 
  git-svn-id​: http://svn.pugscode.org/pugs@&#8203;27896 c213334d-75ef-0310-aa23-eaa082d1ae64

Inline Patch
diff --git a/t/spec/S02-names_and_variables/perl.t b/t/spec/S02-names_and_variables/perl.t
index 85f9c92..98c779a 100644
--- a/t/spec/S02-names_and_variables/perl.t
+++ b/t/spec/S02-names_and_variables/perl.t
@@ -55,7 +55,7 @@ my @tests = (
     [ { :a(1) }, { :b(2), :c(3) } ],
 );
 
-plan 17 + 2*@tests;
+plan 18 + 2*@tests;
 #?pugs emit force_todo 8, 45..50, 94, 96;
 
 #?pugs emit unless $?PUGS_BACKEND eq "BACKEND_PUGS" {
@@ -196,3 +196,10 @@ plan 17 + 2*@tests;
     #?rakudo todo 'RT #64080'
     ok %h<a> !=== %h<a>[0], 'hoa does not refer to hash element';
 }
+
+# RT #67790
+{
+    class RT67790 {}
+    lives_ok { RT67790.HOW.perl }, 'can .perl on .HOW';
+    # TODO: check that eval( RT67790.HOW.perl ) 'is' RT67790.HOW
+}

@p6rt
Copy link
Author

p6rt commented Aug 8, 2009

The RT System itself - Status changed from 'new' to 'open'

@p6rt
Copy link
Author

p6rt commented Mar 9, 2010

From @moritz

Works now, tests pass - Coke++ for notification

@p6rt
Copy link
Author

p6rt commented Mar 9, 2010

@moritz - Status changed from 'open' to 'resolved'

@p6rt p6rt closed this as completed Mar 9, 2010
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

No branches or pull requests

1 participant