[perl-Test-LectroTest] Import

[Petr Pisar]

commit 0771236da35606b142bba677da51a59d7cdbd511
Author: Petr Písař <ppisar at redhat.com>
Date:   Fri May 17 15:18:26 2013 +0200

    Import

 .gitignore                             |    1 +
 Test-LectroTest-0.3600-universal.patch |   29 ++++++++++++++
 perl-Test-LectroTest.spec              |   67 ++++++++++++++++++++++++++++++++
 sources                                |    1 +
 4 files changed, 98 insertions(+), 0 deletions(-)
---
diff --git a/.gitignore b/.gitignore
index e69de29..57b7761 100644
--- a/.gitignore
+++ b/.gitignore
@@ -0,0 +1 @@
+/Test-LectroTest-0.3600.tar.gz
diff --git a/Test-LectroTest-0.3600-universal.patch b/Test-LectroTest-0.3600-universal.patch
new file mode 100644
index 0000000..4129a91
--- /dev/null
+++ b/Test-LectroTest-0.3600-universal.patch
@@ -0,0 +1,29 @@
+Author: Nicholas Bamber <nicholas at periapt.co.uk>
+Subject: UNIVERSAL->import deprecated in perl 5.12
+Last-Update: 2011-05-11
+Bug: http://rt.cpan.org/Ticket/Display.html?id=66114
+Bug-Debian: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=614872
+--- a/lib/Test/LectroTest/TestRunner.pm
++++ b/lib/Test/LectroTest/TestRunner.pm
+@@ -2,9 +2,7 @@
+ 
+ use strict;
+ use warnings;
+-
+-use UNIVERSAL qw( isa );
+-
++use Scalar::Util qw(blessed);
+ use Carp;
+ use Data::Dumper;
+ 
+@@ -399,7 +397,9 @@
+ 
+ =cut
+ 
+-sub _prop($) { isa $_[0], "Test::LectroTest::Property" }
++sub _prop($) {
++    return blessed $_[0] && $_[0]->isa("Test::LectroTest::Property");
++}
+ 
+ sub run_suite {
+     local $| = 1;
diff --git a/perl-Test-LectroTest.spec b/perl-Test-LectroTest.spec
new file mode 100644
index 0000000..26c5ee9
--- /dev/null
+++ b/perl-Test-LectroTest.spec
@@ -0,0 +1,67 @@
+Name:           perl-Test-LectroTest
+Version:        0.3600
+Release:        1%{?dist}
+Summary:        Easy, automatic, specification-based tests
+License:        GPL+ or Artistic
+Group:          Development/Libraries
+URL:            http://search.cpan.org/dist/Test-LectroTest/
+Source0:        http://www.cpan.org/authors/id/T/TM/TMOERTEL/Test-LectroTest-%{version}.tar.gz
+# Do not use UNIVERSAL in deprecated way, CPAN RT #66114
+Patch0:         Test-LectroTest-0.3600-universal.patch
+BuildArch:      noarch
+BuildRequires:  perl
+BuildRequires:  perl(Module::Build)
+# Run-time:
+BuildRequires:  perl(Carp)
+BuildRequires:  perl(Class::Struct)
+BuildRequires:  perl(constant)
+BuildRequires:  perl(Data::Dumper)
+BuildRequires:  perl(Exporter)
+BuildRequires:  perl(Filter::Util::Call)
+BuildRequires:  perl(Scalar::Util)
+BuildRequires:  perl(strict)
+BuildRequires:  perl(Test::Builder)
+BuildRequires:  perl(warnings)
+# Tests:
+BuildRequires:  perl(File::Temp)
+BuildRequires:  perl(Test::More)
+# Optional tests:
+# Module::Signature not needed
+# Socket not needed
+BuildRequires:  perl(Test::Pod) >= 1.00
+BuildRequires:  perl(Test::Pod::Coverage) >= 1.00
+Requires:       perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version))
+
+%description
+LectroTest is an automated, specification-based testing system. To use it,
+declare properties that specify the expected behavior of your software. Then
+invoke LectroTest to test whether those properties hold.
+
+LectroTest does this by running repeated random trials against your software.
+If LectroTest finds that a property doesn't hold, it emits the counterexample
+that "broke" your software. You can then plug the counterexample into your
+software to debug the problem.
+
+%prep
+%setup -q -n Test-LectroTest-%{version}
+%patch0 -p1
+
+%build
+perl Build.PL installdirs=vendor
+./Build
+
+%install
+./Build install destdir=$RPM_BUILD_ROOT create_packlist=0
+%{_fixperms} $RPM_BUILD_ROOT/*
+
+%check
+./Build test
+
+%files
+%doc Changes README THANKS TODO
+%{perl_vendorlib}/*
+%{_mandir}/man3/*
+
+%changelog
+* Tue May 14 2013 Petr Pisar <ppisar at redhat.com> 0.3600-1
+- Specfile autogenerated by cpanspec 1.78.
diff --git a/sources b/sources
index e69de29..e223ce5 100644
--- a/sources
+++ b/sources
@@ -0,0 +1 @@
+8bf7b2f87e1112a1acc4e2d0712a89b8  Test-LectroTest-0.3600.tar.gz