use v6-alpha;

use Test;

=kwid

Attribute accessors, applied to the return value of a sub, do not work.

This
  class C { has $.a; }  sub f() { C.new() }  f().a
yields
  *** No compatible subroutine found: "&a" where

=cut

plan 4;

class C { has $.a; }
sub f() { C.new(:a(123)) }
sub g() { my C $x .= new(:a(123)); $x }

is(C.new(:a(123)).a, 123, 'C.new().a worked');

my $o = f();
is($o.a, 123, 'my $o = f(); $o.a worked');

is(try { f().a }, 123, 'f().a worked (so the pugsbug is fixed (part 1))');

is(try { g().a }, 123, 'g().a worked (so the pugsbug is fixed (part 2))');