remove test numbers

1 files changed, 86 insertions, 0 deletions

diff --git a/t/defaults.t b/t/defaults.t
new file mode 100644
index 0000000..7350d52
--- /dev/null
+++ b/t/defaults.t
@@ -0,0 +1,86 @@
+#!/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;