From 5ba3d902ef180eebefca75a2f2653ecdb682b69c1308b16175d1c62b0a4a9c00 Mon Sep 17 00:00:00 2001 From: Dirk Stoecker Date: Sat, 26 Dec 2015 12:36:41 +0000 Subject: [PATCH 1/2] Accepting request 350858 from devel:languages:perl:autoupdate 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 --- Test-Exception-0.40.tar.gz | 3 - Test-Exception-0.41.tar.gz | 3 + perl-Test-Exception.changes | 9 ++ perl-Test-Exception.spec | 226 ++++++++++++++++++------------------ 4 files changed, 125 insertions(+), 116 deletions(-) delete mode 100644 Test-Exception-0.40.tar.gz create mode 100644 Test-Exception-0.41.tar.gz diff --git a/Test-Exception-0.40.tar.gz b/Test-Exception-0.40.tar.gz deleted file mode 100644 index 7484326..0000000 --- a/Test-Exception-0.40.tar.gz +++ /dev/null @@ -1,3 +0,0 @@ -version https://git-lfs.github.com/spec/v1 -oid sha256:d92ccb566d93140abc93b07ec4c13e9b14c8f8f7d7858a2ab575d83b3bb51b26 -size 14801 diff --git a/Test-Exception-0.41.tar.gz b/Test-Exception-0.41.tar.gz new file mode 100644 index 0000000..43e733c --- /dev/null +++ b/Test-Exception-0.41.tar.gz @@ -0,0 +1,3 @@ +version https://git-lfs.github.com/spec/v1 +oid sha256:30ce34dcb9ed8be81c5917d1b35006fee6141bb085d6bbd973235358d9995b8e +size 15363 diff --git a/perl-Test-Exception.changes b/perl-Test-Exception.changes index 0ab007e..6095079 100644 --- a/perl-Test-Exception.changes +++ b/perl-Test-Exception.changes @@ -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 diff --git a/perl-Test-Exception.spec b/perl-Test-Exception.spec index d6fcbdf..f964197 100644 --- a/perl-Test-Exception.spec +++ b/perl-Test-Exception.spec @@ -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 = ; - 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 = ; + 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 From b9eb8e67507fc14ba5b4e241f72ddd5a9739e45e7ac74c1662fac634391ebb5c Mon Sep 17 00:00:00 2001 From: Dirk Stoecker Date: Sat, 2 Jan 2016 21:21:15 +0000 Subject: [PATCH 2/2] Accepting request 351616 from devel:languages:perl:autoupdate automatic update OBS-URL: https://build.opensuse.org/request/show/351616 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Test-Exception?expand=0&rev=41 --- Test-Exception-0.41.tar.gz | 3 --- Test-Exception-0.43.tar.gz | 3 +++ perl-Test-Exception.changes | 6 ++++++ perl-Test-Exception.spec | 8 ++++---- 4 files changed, 13 insertions(+), 7 deletions(-) delete mode 100644 Test-Exception-0.41.tar.gz create mode 100644 Test-Exception-0.43.tar.gz diff --git a/Test-Exception-0.41.tar.gz b/Test-Exception-0.41.tar.gz deleted file mode 100644 index 43e733c..0000000 --- a/Test-Exception-0.41.tar.gz +++ /dev/null @@ -1,3 +0,0 @@ -version https://git-lfs.github.com/spec/v1 -oid sha256:30ce34dcb9ed8be81c5917d1b35006fee6141bb085d6bbd973235358d9995b8e -size 15363 diff --git a/Test-Exception-0.43.tar.gz b/Test-Exception-0.43.tar.gz new file mode 100644 index 0000000..6546a47 --- /dev/null +++ b/Test-Exception-0.43.tar.gz @@ -0,0 +1,3 @@ +version https://git-lfs.github.com/spec/v1 +oid sha256:156b13f07764f766d8b45a43728f2439af81a3512625438deab783b7883eb533 +size 15204 diff --git a/perl-Test-Exception.changes b/perl-Test-Exception.changes index 6095079..7b68846 100644 --- a/perl-Test-Exception.changes +++ b/perl-Test-Exception.changes @@ -1,3 +1,9 @@ +------------------------------------------------------------------- +Sat Jan 2 10:16:17 UTC 2016 - coolo@suse.com + +- updated to 0.43 + see /usr/share/doc/packages/perl-Test-Exception/Changes + ------------------------------------------------------------------- Sat Dec 26 10:16:52 UTC 2015 - coolo@suse.com diff --git a/perl-Test-Exception.spec b/perl-Test-Exception.spec index f964197..b194f65 100644 --- a/perl-Test-Exception.spec +++ b/perl-Test-Exception.spec @@ -1,7 +1,7 @@ # # spec file for package perl-Test-Exception # -# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,10 +17,10 @@ Name: perl-Test-Exception -Version: 0.410000 +Version: 0.430000 Release: 0 -%define cpan_version 0.41 -Provides: perl(Test::Exception) = 0.410000 +%define cpan_version 0.43 +Provides: perl(Test::Exception) = 0.430000 %define cpan_name Test-Exception Summary: Test exception-based code License: Artistic-1.0 or GPL-1.0+