diff options
Diffstat (limited to 't/32-defaults.t')
-rw-r--r-- | t/32-defaults.t | 86 |
1 files changed, 0 insertions, 86 deletions
diff --git a/t/32-defaults.t b/t/32-defaults.t deleted file mode 100644 index 7350d52..0000000 --- a/t/32-defaults.t +++ /dev/null @@ -1,86 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; -use Test::More; -use Test::Fatal; - -{ - package Foo; - use Moose; - use Bread::Board::Declare; - - ::like(::exception { - has foo => ( - is => 'ro', - isa => 'Str', - default => 'OOF', - value => 'FOO', - ); - }, qr/default is not valid when Bread::Board service options are set/, - "can't set a default when creating a service"); - - ::like(::exception { - has bar => ( - is => 'ro', - isa => 'Str', - default => sub { 'OOF' }, - value => 'FOO', - ); - }, qr/default is not valid when Bread::Board service options are set/, - "can't set a default when creating a service"); - - ::like(::exception { - has bar2 => ( - is => 'ro', - isa => 'Str', - builder => '_build_bar2', - value => 'FOO', - ); - }, qr/builder is not valid when Bread::Board service options are set/, - "can't set a builder when creating a service"); - - ::like(::exception { - has baz => ( - is => 'ro', - isa => 'Str', - lazy => 1, - default => 'OOF', - value => 'FOO', - ); - }, qr/default is not valid when Bread::Board service options are set/, - "can't set a default when creating a service"); - - ::like(::exception { - has quux => ( - is => 'ro', - isa => 'Str', - lazy => 1, - default => sub { 'OOF' }, - value => 'FOO', - ); - }, qr/default is not valid when Bread::Board service options are set/, - "can't set a default when creating a service"); - - ::like(::exception { - has quux2 => ( - is => 'ro', - isa => 'Str', - lazy => 1, - builder => '_build_quux2', - value => 'FOO', - ); - }, qr/builder is not valid when Bread::Board service options are set/, - "can't set a builder when creating a service"); - - ::like(::exception { - has quux3 => ( - is => 'ro', - isa => 'Str', - lazy_build => 1, - value => 'FOO', - ); - }, qr/builder is not valid when Bread::Board service options are set/, - "can't set lazy_build when creating a service"); -} - -done_testing; |