Test lazy default for String trait

diff --git a/t/070_native_traits/005_trait_string.t b/t/070_native_traits/005_trait_string.t
index f76783e..ebd2063 100644 (file)
--- a/t/070_native_traits/005_trait_string.t
+++ b/t/070_native_traits/005_trait_string.t
@@ -263,6 +263,17 @@ sub run_tests {
             $obj->_string, 'song long string',
             'substr_curried_3 as setter'
         );
+
+        if ( $class->meta->get_attribute('_string')->is_lazy ) {
+            my $obj = $class->new;
+
+            $obj->append('foo');
+
+            is(
+                $obj->_string, 'foo',
+                'append with lazy default'
+            );
+        }
     }
     $class;
 }