Fix up trigger instructions and example implementation.

[gitmo/moose-presentations.git] / moose-class / exercises / t / lib / MooseClass / Tests.pm

diff --git a/moose-class/exercises/t/lib/MooseClass/Tests.pm b/moose-class/exercises/t/lib/MooseClass/Tests.pm
index 4169bd8..0015192 100644 (file)
--- a/moose-class/exercises/t/lib/MooseClass/Tests.pm
+++ b/moose-class/exercises/t/lib/MooseClass/Tests.pm
@@ -232,6 +232,14 @@ sub tests06 {
     ok( $ba_meta->has_attribute('balance'),
         'BankAccount class has a balance attribute' );
 
+    my $history_attr = $ba_meta->get_attribute('history');
+
+    ok(
+        $history_attr->meta()
+            ->does_role('Moose::Meta::Attribute::Native::Trait::Array'),
+        'BankAccount history attribute uses native delegation to an array ref'
+    );
+
     ok( $ba_meta->get_attribute('balance')->has_trigger,
         'BankAccount balance attribute has a trigger' );