#!/usr/bin/perl -w
use strict;
use warnings;
use Test::More tests => 2;
package My::Trait;
use Moose::Role;
has 'foo' => (
is => 'rw',
isa => 'Str',
default => 'bar',
);
package main;
use_ok 'Gapp::Object';
{ # object contruction
my $o = Gapp::Object->new(
gclass => 'Gtk2::TextView',
traits => [qw( My::Trait )],
);
is $o->foo, 'bar', 'Applied trait to widget';
}