From e405f0ee4e1826041adef82dfd20f656226514c4 Mon Sep 17 00:00:00 2001
From: Dave Cross <dave@dave.org.uk>
Date: Sat, 25 Jul 2009 20:20:19 +0100
Subject: [PATCH] Changes to support the Moose version.

---
 t/Parse-RPM-Spec.t | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/t/Parse-RPM-Spec.t b/t/Parse-RPM-Spec.t
index ada2049..b549927 100644
--- a/t/Parse-RPM-Spec.t
+++ b/t/Parse-RPM-Spec.t
@@ -1,14 +1,10 @@
-use Test::More tests => 12;
+use Test::More tests => 10;
 BEGIN { use_ok('Parse::RPM::Spec') };
 
-eval { my $spec = Parse::RPM::Spec->new(\'t/file.spec') };
-ok($@);
-like($@, qr/SCALAR/);
-
-ok($spec = Parse::RPM::Spec->new('t/file.spec'));
+ok($spec = Parse::RPM::Spec->new( { file => 't/file.spec' } ));
 isa_ok($spec, 'Parse::RPM::Spec');
 
-ok($spec = Parse::RPM::Spec->new({ file => 't/file.spec' }));
+ok($spec = Parse::RPM::Spec->new( { file => 't/file.spec' } ));
 isa_ok($spec, 'Parse::RPM::Spec');
 
 is($spec->name, 'perl-Array-Compare');