Rename t/000-recipes to t/000_recipes

[gitmo/Mouse.git] / t / 000-recipes / moose_cookbook_basics_recipe2.t

diff --git a/t/000-recipes/moose_cookbook_basics_recipe2.t b/t/000-recipes/moose_cookbook_basics_recipe2.t
deleted file mode 100644 (file)
index 5949981..0000000
--- a/t/000-recipes/moose_cookbook_basics_recipe2.t
+++ /dev/null
@@ -1,140 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use Test::More 'no_plan';
-
-use Test::Exception;
-$| = 1;
-
-
-
-# =begin testing SETUP
-{
-
-  package BankAccount;
-  use Mouse;
-
-  has 'balance' => ( isa => 'Int', is => 'rw', default => 0 );
-
-  sub deposit {
-      my ( $self, $amount ) = @_;
-      $self->balance( $self->balance + $amount );
-  }
-
-  sub withdraw {
-      my ( $self, $amount ) = @_;
-      my $current_balance = $self->balance();
-      ( $current_balance >= $amount )
-          || confess "Account overdrawn";
-      $self->balance( $current_balance - $amount );
-  }
-
-  package CheckingAccount;
-  use Mouse;
-
-  extends 'BankAccount';
-
-  has 'overdraft_account' => ( isa => 'BankAccount', is => 'rw' );
-
-  before 'withdraw' => sub {
-      my ( $self, $amount ) = @_;
-      my $overdraft_amount = $amount - $self->balance();
-      if ( $self->overdraft_account && $overdraft_amount > 0 ) {
-          $self->overdraft_account->withdraw($overdraft_amount);
-          $self->deposit($overdraft_amount);
-      }
-  };
-}
-
-
-
-# =begin testing
-{
-my $savings_account;
-
-{
-    $savings_account = BankAccount->new( balance => 250 );
-    isa_ok( $savings_account, 'BankAccount' );
-
-    is( $savings_account->balance, 250, '... got the right savings balance' );
-    lives_ok {
-        $savings_account->withdraw(50);
-    }
-    '... withdrew from savings successfully';
-    is( $savings_account->balance, 200,
-        '... got the right savings balance after withdrawl' );
-
-    $savings_account->deposit(150);
-    is( $savings_account->balance, 350,
-        '... got the right savings balance after deposit' );
-}
-
-{
-    my $checking_account = CheckingAccount->new(
-        balance           => 100,
-        overdraft_account => $savings_account
-    );
-    isa_ok( $checking_account, 'CheckingAccount' );
-    isa_ok( $checking_account, 'BankAccount' );
-
-    is( $checking_account->overdraft_account, $savings_account,
-        '... got the right overdraft account' );
-
-    is( $checking_account->balance, 100,
-        '... got the right checkings balance' );
-
-    lives_ok {
-        $checking_account->withdraw(50);
-    }
-    '... withdrew from checking successfully';
-    is( $checking_account->balance, 50,
-        '... got the right checkings balance after withdrawl' );
-    is( $savings_account->balance, 350,
-        '... got the right savings balance after checking withdrawl (no overdraft)'
-    );
-
-    lives_ok {
-        $checking_account->withdraw(200);
-    }
-    '... withdrew from checking successfully';
-    is( $checking_account->balance, 0,
-        '... got the right checkings balance after withdrawl' );
-    is( $savings_account->balance, 200,
-        '... got the right savings balance after overdraft withdrawl' );
-}
-
-{
-    my $checking_account = CheckingAccount->new(
-        balance => 100
-
-            # no overdraft account
-    );
-    isa_ok( $checking_account, 'CheckingAccount' );
-    isa_ok( $checking_account, 'BankAccount' );
-
-    is( $checking_account->overdraft_account, undef,
-        '... no overdraft account' );
-
-    is( $checking_account->balance, 100,
-        '... got the right checkings balance' );
-
-    lives_ok {
-        $checking_account->withdraw(50);
-    }
-    '... withdrew from checking successfully';
-    is( $checking_account->balance, 50,
-        '... got the right checkings balance after withdrawl' );
-
-    dies_ok {
-        $checking_account->withdraw(200);
-    }
-    '... withdrawl failed due to attempted overdraft';
-    is( $checking_account->balance, 50,
-        '... got the right checkings balance after withdrawl failure' );
-}
-}
-
-
-
-
-1;