Add 4 recipe tests

[gitmo/Mouse.git] / t / 000_recipes / moose_cookbook_extending_recipe3.t

diff --git a/t/000_recipes/moose_cookbook_extending_recipe3.t b/t/000_recipes/moose_cookbook_extending_recipe3.t
new file mode 100644 (file)
index 0000000..7470380
--- /dev/null
+++ b/t/000_recipes/moose_cookbook_extending_recipe3.t
@@ -0,0 +1,75 @@
+#!/usr/bin/perl -w
+
+use strict;
+use Test::More 'no_plan';
+use Test::Exception;
+$| = 1;
+
+
+
+# =begin testing SETUP
+BEGIN {
+    eval 'use Test::Output;';
+    if ($@) {
+        diag 'Test::Output is required for this test';
+        ok(1);
+        exit 0;
+    }
+}
+
+
+
+# =begin testing SETUP
+{
+
+  package MyApp::Base;
+  use Mouse;
+
+  extends 'Mouse::Object';
+
+  before 'new' => sub { warn "Making a new " . $_[0] };
+
+  no Mouse;
+
+  package MyApp::UseMyBase;
+  use Mouse ();
+  use Mouse::Exporter;
+
+  Mouse::Exporter->setup_import_methods( also => 'Mouse' );
+
+  sub init_meta {
+      shift;
+      return Mouse->init_meta( @_, base_class => 'MyApp::Base' );
+  }
+}
+
+
+
+# =begin testing
+{
+{
+    package Foo;
+
+    MyApp::UseMyBase->import;
+
+    has( 'size' => ( is => 'rw' ) );
+}
+
+ok( Foo->isa('MyApp::Base'), 'Foo isa MyApp::Base' );
+
+ok( Foo->can('size'), 'Foo has a size method' );
+
+my $foo;
+stderr_like(
+    sub { $foo = Foo->new( size => 2 ) },
+    qr/^Making a new Foo/,
+    'got expected warning when calling Foo->new'
+);
+
+is( $foo->size(), 2, '$foo->size is 2' );
+}
+
+
+
+
+1;