pool/perl-Test-Exception
SHA256
4
0
Fork 1
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Accepting request 350858 from devel:languages:perl:autoupdate

Browse Source 
automatic update

OBS-URL: https://build.opensuse.org/request/show/350858
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Test-Exception?expand=0&rev=40
This commit is contained in:
Dirk Stoecker 2015-12-26 12:36:41 +00:00 committed by Git OBS Bridge
parent 5539783107
commit 5ba3d902ef
4 changed files with 125 additions and 116 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Test-Exception-0.40.tar.gz
View File

@ -1,3 +0,0 @@
version https://git-lfs.github.com/spec/v1
oid sha256:d92ccb566d93140abc93b07ec4c13e9b14c8f8f7d7858a2ab575d83b3bb51b26
size 14801

3
Test-Exception-0.41.tar.gz Normal file
View File

@ -0,0 +1,3 @@
version https://git-lfs.github.com/spec/v1
oid sha256:30ce34dcb9ed8be81c5917d1b35006fee6141bb085d6bbd973235358d9995b8e
size 15363

9
perl-Test-Exception.changes
View File

@ -1,3 +1,12 @@
-------------------------------------------------------------------
Sat Dec 26 10:16:52 UTC 2015 - coolo@suse.com
- updated to 0.41
see /usr/share/doc/packages/perl-Test-Exception/Changes
0.40 [2015-12-21]
- Updated for Test2
-------------------------------------------------------------------
Sun Jun 7 09:05:54 UTC 2015 - coolo@suse.com

226
perl-Test-Exception.spec
View File

@ -17,10 +17,10 @@
Name: perl-Test-Exception
Version: 0.400000
Version: 0.410000
Release: 0
%define cpan_version 0.40
Provides: perl(Test::Exception) = 0.400000
%define cpan_version 0.41
Provides: perl(Test::Exception) = 0.410000
%define cpan_name Test-Exception
Summary: Test exception-based code
License: Artistic-1.0 or GPL-1.0+
@ -43,170 +43,170 @@ Requires: perl(Test::Builder::Tester) >= 1.07
%description
This module provides a few convenience methods for testing exception based
code. It is built with the Test::Builder manpage and plays happily with the
Test::More manpage and friends.
code. It is built with Test::Builder and plays happily with Test::More and
friends.
If you are not already familiar with the Test::More manpage now would be
the time to go take a look.
If you are not already familiar with Test::More now would be the time to go
take a look.
You can specify the test plan when you 'use Test::Exception' in the same
way as 'use Test::More'. See the Test::More manpage for details.
way as 'use Test::More'. See Test::More for details.
NOTE: Test::Exception only checks for exceptions. It will ignore other
methods of stopping program execution - including exit(). If you have an
exit() in evalled code Test::Exception will not catch this with any of its
testing functions.
NOTE: This module uses the Sub::Uplevel manpage and relies on overriding
NOTE: This module uses Sub::Uplevel and relies on overriding
'CORE::GLOBAL::caller' to hide your test blocks from the call stack. If
this use of global overrides concerns you, the the Test::Fatal manpage
module offers a more minimalist alternative.
this use of global overrides concerns you, the Test::Fatal module offers a
more minimalist alternative.
* *throws_ok*
Tests to see that a specific exception is thrown. throws_ok() has two
forms:
Tests to see that a specific exception is thrown. throws_ok() has two
forms:
throws_ok BLOCK REGEX, TEST_DESCRIPTION
throws_ok BLOCK CLASS, TEST_DESCRIPTION
throws_ok BLOCK REGEX, TEST_DESCRIPTION
throws_ok BLOCK CLASS, TEST_DESCRIPTION
In the first form the test passes if the stringified exception matches
the give regular expression. For example:
In the first form the test passes if the stringified exception matches the
give regular expression. For example:
throws_ok { read_file( 'unreadable' ) } qr/No file/, 'no file';
throws_ok { read_file( 'unreadable' ) } qr/No file/, 'no file';
If your perl does not support 'qr//' you can also pass a regex-like
string, for example:
If your perl does not support 'qr//' you can also pass a regex-like string,
for example:
throws_ok { read_file( 'unreadable' ) } '/No file/', 'no file';
throws_ok { read_file( 'unreadable' ) } '/No file/', 'no file';
The second form of throws_ok() test passes if the exception is of the
same class as the one supplied, or a subclass of that class. For example:
The second form of throws_ok() test passes if the exception is of the same
class as the one supplied, or a subclass of that class. For example:
throws_ok { $foo->bar } "Error::Simple", 'simple error';
throws_ok { $foo->bar } "Error::Simple", 'simple error';
Will only pass if the 'bar' method throws an Error::Simple exception, or
a subclass of an Error::Simple exception.
Will only pass if the 'bar' method throws an Error::Simple exception, or a
subclass of an Error::Simple exception.
You can get the same effect by passing an instance of the exception you
want to look for. The following is equivalent to the previous example:
You can get the same effect by passing an instance of the exception you
want to look for. The following is equivalent to the previous example:
my $SIMPLE = Error::Simple->new;
throws_ok { $foo->bar } $SIMPLE, 'simple error';
my $SIMPLE = Error::Simple->new;
throws_ok { $foo->bar } $SIMPLE, 'simple error';
Should a throws_ok() test fail it produces appropriate diagnostic
messages. For example:
Should a throws_ok() test fail it produces appropriate diagnostic messages.
For example:
not ok 3 - simple error
# Failed test (test.t at line 48)
# expecting: Error::Simple exception
# found: normal exit
not ok 3 - simple error
# Failed test (test.t at line 48)
# expecting: Error::Simple exception
# found: normal exit
Like all other Test::Exception functions you can avoid prototypes by
passing a subroutine explicitly:
Like all other Test::Exception functions you can avoid prototypes by
passing a subroutine explicitly:
throws_ok( sub {$foo->bar}, "Error::Simple", 'simple error' );
throws_ok( sub {$foo->bar}, "Error::Simple", 'simple error' );
A true value is returned if the test succeeds, false otherwise. On exit
$@ is guaranteed to be the cause of death (if any).
A true value is returned if the test succeeds, false otherwise. On exit $@
is guaranteed to be the cause of death (if any).
A description of the exception being checked is used if no optional test
description is passed.
A description of the exception being checked is used if no optional test
description is passed.
NOTE: Remember when you 'die $string_without_a_trailing_newline' perl
will automatically add the current script line number, input line number
and a newline. This will form part of the string that throws_ok regular
expressions match against.
NOTE: Remember when you 'die $string_without_a_trailing_newline' perl will
automatically add the current script line number, input line number and a
newline. This will form part of the string that throws_ok regular
expressions match against.
* *dies_ok*
Checks that a piece of code dies, rather than returning normally. For
example:
Checks that a piece of code dies, rather than returning normally. For
example:
sub div {
my ( $a, $b ) = @_;
return $a / $b;
};
dies_ok { div( 1, 0 ) } 'divide by zero detected';
# or if you don't like prototypes
dies_ok( sub { div( 1, 0 ) }, 'divide by zero detected' );
sub div {
my ( $a, $b ) = @_;
return $a / $b;
};
A true value is returned if the test succeeds, false otherwise. On exit
$@ is guaranteed to be the cause of death (if any).
dies_ok { div( 1, 0 ) } 'divide by zero detected';
Remember: This test will pass if the code dies for any reason. If you
care about the reason it might be more sensible to write a more specific
test using throws_ok().
# or if you don't like prototypes
dies_ok( sub { div( 1, 0 ) }, 'divide by zero detected' );
The test description is optional, but recommended.
A true value is returned if the test succeeds, false otherwise. On exit $@
is guaranteed to be the cause of death (if any).
Remember: This test will pass if the code dies for any reason. If you care
about the reason it might be more sensible to write a more specific test
using throws_ok().
The test description is optional, but recommended.
* *lives_ok*
Checks that a piece of code doesn't die. This allows your test script to
continue, rather than aborting if you get an unexpected exception. For
example:
Checks that a piece of code doesn't die. This allows your test script to
continue, rather than aborting if you get an unexpected exception. For
example:
sub read_file {
my $file = shift;
local $/;
open my $fh, '<', $file or die "open failed ($!)\n";
$file = <FILE>;
return $file;
};
my $file;
lives_ok { $file = read_file('test.txt') } 'file read';
# or if you don't like prototypes
lives_ok( sub { $file = read_file('test.txt') }, 'file read' );
Should a lives_ok() test fail it produces appropriate diagnostic
messages. For example:
not ok 1 - file read
# Failed test (test.t at line 15)
# died: open failed (No such file or directory)
A true value is returned if the test succeeds, false otherwise. On exit
$@ is guaranteed to be the cause of death (if any).
The test description is optional, but recommended.
* *lives_and*
Run a test that may throw an exception. For example, instead of doing:
sub read_file {
my $file = shift;
local $/;
open my $fh, '<', $file or die "open failed ($!)\n";
$file = <FILE>;
return $file;
};
my $file;
lives_ok { $file = read_file('answer.txt') } 'read_file worked';
is $file, "42", 'answer was 42';
lives_ok { $file = read_file('test.txt') } 'file read';
You can use lives_and() like this:
lives_and { is read_file('answer.txt'), "42" } 'answer is 42';
# or if you don't like prototypes
lives_and(sub {is read_file('answer.txt'), "42"}, 'answer is 42');
lives_ok( sub { $file = read_file('test.txt') }, 'file read' );
Which is the same as doing
Should a lives_ok() test fail it produces appropriate diagnostic messages.
For example:
is read_file('answer.txt'), "42\n", 'answer is 42';
unless 'read_file('answer.txt')' dies, in which case you get the same
kind of error as lives_ok()
not ok 1 - answer is 42
not ok 1 - file read
# Failed test (test.t at line 15)
# died: open failed (No such file or directory)
A true value is returned if the test succeeds, false otherwise. On exit
$@ is guaranteed to be the cause of death (if any).
A true value is returned if the test succeeds, false otherwise. On exit $@
is guaranteed to be the cause of death (if any).
The test description is optional, but recommended.
The test description is optional, but recommended.
* *lives_and*
Run a test that may throw an exception. For example, instead of doing:
my $file;
lives_ok { $file = read_file('answer.txt') } 'read_file worked';
is $file, "42", 'answer was 42';
You can use lives_and() like this:
lives_and { is read_file('answer.txt'), "42" } 'answer is 42';
# or if you don't like prototypes
lives_and(sub {is read_file('answer.txt'), "42"}, 'answer is 42');
Which is the same as doing
is read_file('answer.txt'), "42\n", 'answer is 42';
unless 'read_file('answer.txt')' dies, in which case you get the same kind
of error as lives_ok()
not ok 1 - answer is 42
# Failed test (test.t at line 15)
# died: open failed (No such file or directory)
A true value is returned if the test succeeds, false otherwise. On exit $@
is guaranteed to be the cause of death (if any).
The test description is optional, but recommended.
%prep
%setup -q -n %{cpan_name}-%{cpan_version}
find . -type f -print0 | xargs -0 chmod 644
find . -type f ! -name \*.pl -print0 | xargs -0 chmod 644
%build
%{__perl} Makefile.PL INSTALLDIRS=vendor