From: Stevan Little <stevan.little@iinteractive.com>
Date: Thu, 4 May 2006 01:26:03 +0000 (+0000)
Subject: fuckit
X-Git-Tag: 0_09_03~45
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=047248f9dddf54f214ae87a1c83b8c900e923905;p=gitmo%2FMoose.git

fuckit
---

diff --git a/t/008_basic.t b/t/008_basic.t
index cc15071..332520c 100644
--- a/t/008_basic.t
+++ b/t/008_basic.t
@@ -3,7 +3,14 @@
 use strict;
 use warnings;
 
-use Test::More tests => 63;
+use Test::More;
+
+BEGIN {
+    eval "use DBM::Deep;";
+    plan skip_all => "DBM::Deep required for this test" if $@;        
+    plan tests => 63;    
+}
+
 use Test::Exception;
 
 BEGIN {
@@ -25,17 +32,19 @@ BEGIN {
         my $instance_counter = -1;
 
         my $db = DBM::Deep->new({
-            file => "newswriter.db",
-            autobless => 1
+            file      => "newswriter.db",
+            autobless => 1,
+            locking   => 1,
         });
         $db->{root} = [] unless exists $db->{root};
         
-        sub _get_db { $db }
         sub _reload_db {
+            $db = undef;
             $db = DBM::Deep->new({
-                file => "newswriter.db",
-                autobless => 1
-            })            
+                file      => "newswriter.db",
+                autobless => 1,
+                locking   => 1,
+            }); 
         }
         
         sub create_instance {
@@ -148,7 +157,7 @@ BEGIN {
       
     use DateTime::Format::MySQL;
     
-    use base 'Newswriter::Base';    
+    extends 'Newswriter::Base';    
 
     subtype 'Headline'
         => as 'Str'