Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package ghc-tasty-hunit for openSUSE:Factory
checked in at 2024-07-02 18:16:27
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-tasty-hunit (Old)
and /work/SRC/openSUSE:Factory/.ghc-tasty-hunit.new.18349 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-tasty-hunit"
Tue Jul 2 18:16:27 2024 rev:6 rq:1184203 version:0.10.2
Changes:
--------
--- /work/SRC/openSUSE:Factory/ghc-tasty-hunit/ghc-tasty-hunit.changes
2023-09-21 22:23:51.282620971 +0200
+++
/work/SRC/openSUSE:Factory/.ghc-tasty-hunit.new.18349/ghc-tasty-hunit.changes
2024-07-02 18:16:38.171828516 +0200
@@ -1,0 +2,10 @@
+Sat Jun 22 10:14:50 UTC 2024 - Peter Simons <psim...@suse.com>
+
+- Update tasty-hunit to version 0.10.2.
+ Version 0.10.2
+ --------------
+
+ * Teach `testCaseSteps` to log progress
+ ([#387](https://github.com/UnkindPartition/tasty/pull/387)).
+
+-------------------------------------------------------------------
Old:
----
tasty-hunit-0.10.1.tar.gz
New:
----
tasty-hunit-0.10.2.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ ghc-tasty-hunit.spec ++++++
--- /var/tmp/diff_new_pack.sgov3Y/_old 2024-07-02 18:16:38.947856913 +0200
+++ /var/tmp/diff_new_pack.sgov3Y/_new 2024-07-02 18:16:38.947856913 +0200
@@ -1,7 +1,7 @@
#
# spec file for package ghc-tasty-hunit
#
-# Copyright (c) 2023 SUSE LLC
+# Copyright (c) 2024 SUSE LLC
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -19,7 +19,7 @@
%global pkg_name tasty-hunit
%global pkgver %{pkg_name}-%{version}
Name: ghc-%{pkg_name}
-Version: 0.10.1
+Version: 0.10.2
Release: 0
Summary: HUnit support for the Tasty test framework
License: MIT
++++++ tasty-hunit-0.10.1.tar.gz -> tasty-hunit-0.10.2.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/tasty-hunit-0.10.1/CHANGELOG.md
new/tasty-hunit-0.10.2/CHANGELOG.md
--- old/tasty-hunit-0.10.1/CHANGELOG.md 2001-09-09 03:46:40.000000000 +0200
+++ new/tasty-hunit-0.10.2/CHANGELOG.md 2001-09-09 03:46:40.000000000 +0200
@@ -1,6 +1,12 @@
Changes
=======
+Version 0.10.2
+--------------
+
+* Teach `testCaseSteps` to log progress
+ ([#387](https://github.com/UnkindPartition/tasty/pull/387)).
+
Version 0.10.1
---------------
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/tasty-hunit-0.10.1/Test/Tasty/HUnit/Orig.hs
new/tasty-hunit-0.10.2/Test/Tasty/HUnit/Orig.hs
--- old/tasty-hunit-0.10.1/Test/Tasty/HUnit/Orig.hs 2001-09-09
03:46:40.000000000 +0200
+++ new/tasty-hunit-0.10.2/Test/Tasty/HUnit/Orig.hs 2001-09-09
03:46:40.000000000 +0200
@@ -76,7 +76,7 @@
infix 1 @?, @=?, @?=
-- | Asserts that the specified actual value is equal to the expected value
--- (with the expected value on the left-hand side).
+-- (with the /expected/ value on the left-hand side).
(@=?)
:: (Eq a, Show a, HasCallStack)
=> a -- ^ The expected value
@@ -85,7 +85,7 @@
expected @=? actual = assertEqual "" expected actual
-- | Asserts that the specified actual value is equal to the expected value
--- (with the actual value on the left-hand side).
+-- (with the /actual/ value on the left-hand side).
(@?=)
:: (Eq a, Show a, HasCallStack)
=> a -- ^ The actual value
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/tasty-hunit-0.10.1/Test/Tasty/HUnit/Steps.hs
new/tasty-hunit-0.10.2/Test/Tasty/HUnit/Steps.hs
--- old/tasty-hunit-0.10.1/Test/Tasty/HUnit/Steps.hs 2001-09-09
03:46:40.000000000 +0200
+++ new/tasty-hunit-0.10.2/Test/Tasty/HUnit/Steps.hs 2001-09-09
03:46:40.000000000 +0200
@@ -16,13 +16,18 @@
deriving Typeable
instance IsTest TestCaseSteps where
- run _ (TestCaseSteps assertionFn) _ = do
+ run _ (TestCaseSteps assertionFn) yieldProgress = do
ref <- newIORef []
let
stepFn :: String -> IO ()
stepFn msg = do
tme <- getTime
+ -- The number of steps is not fixed, so we can't
+ -- provide the progress percentage.
+ -- We also don't provide the timings here, only
+ -- at the end.
+ yieldProgress (Progress msg 0)
atomicModifyIORef ref (\l -> ((tme,msg):l, ()))
hunitResult <- (Right <$> assertionFn stepFn) `catch`
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/tasty-hunit-0.10.1/tasty-hunit.cabal
new/tasty-hunit-0.10.2/tasty-hunit.cabal
--- old/tasty-hunit-0.10.1/tasty-hunit.cabal 2001-09-09 03:46:40.000000000
+0200
+++ new/tasty-hunit-0.10.2/tasty-hunit.cabal 2001-09-09 03:46:40.000000000
+0200
@@ -1,8 +1,5 @@
--- Initial tasty-hunit.cabal generated by cabal init. For further
--- documentation, see http://haskell.org/cabal/users-guide/
-
name: tasty-hunit
-version: 0.10.1
+version: 0.10.2
synopsis: HUnit support for the Tasty test framework.
description: HUnit support for the Tasty test framework.
.
