From 7506524e26fe0caaabab96d354eff58e2d9a1495 Mon Sep 17 00:00:00 2001
From: Alexander Hartmaier <abraxxa@cpan.org>
Date: Sat, 23 Oct 2010 13:32:50 +0200
Subject: [PATCH] use warnings for tests and some test cleanups

---
 t/lib/RunTests.pm | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/t/lib/RunTests.pm b/t/lib/RunTests.pm
index 3dba310..5fe46f9 100644
--- a/t/lib/RunTests.pm
+++ b/t/lib/RunTests.pm
@@ -3,6 +3,7 @@ package RunTests;
 use Exporter 'import';    # gives you Exporter's import() method directly
 @EXPORT = qw(run_tests);
 use strict;
+use warnings;
 use Test::More;
 use Test::Warn;
 use DBIx::Class::ResultSet::RecursiveUpdate;
@@ -41,7 +42,7 @@ sub run_tests {
         }
     );
 
-    my $u = $user_rs->find( $dvd_rs->find( 1 )->owner->id );
+    $u = $user_rs->find( $dvd_rs->find( 1 )->owner->id );
     is( $u->username, 'bbb', 'fixed_fields 0.21+ api ok' );
 
     # try to create with a not existing rel
@@ -89,7 +90,7 @@ sub run_tests {
     $updates = {
         name     => 'Test name 2',
         viewings => [ { user_id => $owner->id } ],
-        owner => { id => $another_owner->id },
+        owner    => { id => $another_owner->id },
     };
 
     my $new_dvd = $dvd_rs->recursive_update($updates);
@@ -104,8 +105,6 @@ sub run_tests {
 
     # creating new records
     $updates = {
-
-        #aaaa => undef,
         tags             => [ '2', { id => '3' } ],
         name             => 'Test name',
         owner            => $owner,
@@ -156,10 +155,9 @@ TODO: {
     my $num_of_users = $user_rs->count;
     $updates = {
         id               => $dvd->dvd_id,         # id instead of dvd_id
-                                                  #aaaa => undef,
         name             => undef,
         tags             => [],
-        'owner'          => $another_owner->id,
+        owner            => $another_owner->id,
         current_borrower => {
             username => 'new name a',
             name     => 'new name a',
@@ -275,7 +273,7 @@ TODO: {
         );
     is( $user->borrowed_dvds->count, 1, 'if_not_submitted delete' );
 
-    @tags = $schema->resultset('Tag')->search();
+    @tags = $schema->resultset('Tag')->all;
     $dvd_updated =
         DBIx::Class::ResultSet::RecursiveUpdate::Functions::recursive_update(
         resultset => $schema->resultset('Dvd'),
-- 
2.45.2