This is an automated email from the git hooks/post-receive script. bengen pushed a commit to branch master in repository sepia.
commit 0d80f762bc9782be4cf4264a87289ce34853a452 Author: Hilko Bengen <[email protected]> Date: Wed Jul 22 16:45:39 2015 +0200 Fixed expect-based tests (Closes: #789836) --- ...e-what-seem-to-be-Test-Expect-workarounds.patch | 38 ++++++++++++++++++++++ debian/patches/series | 1 + 2 files changed, 39 insertions(+) diff --git a/debian/patches/0004-Remove-what-seem-to-be-Test-Expect-workarounds.patch b/debian/patches/0004-Remove-what-seem-to-be-Test-Expect-workarounds.patch new file mode 100644 index 0000000..a7da1b4 --- /dev/null +++ b/debian/patches/0004-Remove-what-seem-to-be-Test-Expect-workarounds.patch @@ -0,0 +1,38 @@ +From: Hilko Bengen <[email protected]> +Date: Wed, 22 Jul 2015 16:44:34 +0200 +Subject: Remove what seem to be Test::Expect workarounds + +--- + t/50expect.t | 9 ++++----- + 1 file changed, 4 insertions(+), 5 deletions(-) + mode change 100644 => 100755 t/50expect.t + +diff --git a/t/50expect.t b/t/50expect.t +old mode 100644 +new mode 100755 +index baf043a..05c040d +--- a/t/50expect.t ++++ b/t/50expect.t +@@ -53,8 +53,8 @@ expect ",wh X", 'X::// + @ISA x', 'package list'; + expect ",me X", 'a x', 'methods 1'; + +-expect '$x = bless {}, X;', '$x = bless {}, X;'; # XXX: stupid expect. +-expect ',me $x', ",me \$x\na x", 'methods 2'; # XXX: stupid expect. ++expect '$x = bless {}, X;', ''; ++expect ',me $x', "a x", 'methods 2'; + + ###################################################################### + ## Debugger +@@ -67,9 +67,8 @@ expect ',br testy.pl:6', "break testy.pl:6 if 1", 'break?'; + expect_send 'fib1 10'; + # sleep 1; + expect_like qr|_<$Bin/testy.pl:6>|, 'break in fib'; +-# XXX AGAIN STUPID EXPECT! +-expect '$n = 3', "\$n = 3\n3", 'munge lexicals'; +-expect '$n = 3', "\$n = 3\n3", 'munge lexicals'; ++expect '$n = 3', "3", 'munge lexicals'; ++expect '$n = 3', "3", 'munge lexicals'; + # Solaris has different whitespace output here. + # Also, / */ doesn't seem to work. + expect_send ',in', 'munged'; diff --git a/debian/patches/series b/debian/patches/series index 0df2f07..0b0a7de 100644 --- a/debian/patches/series +++ b/debian/patches/series @@ -1,3 +1,4 @@ 0001-Fix-POD.patch 0002-Add-snippet.el.patch 0003-Do-not-install-.elc-files-if-they-haven-t-been-gener.patch +0004-Remove-what-seem-to-be-Test-Expect-workarounds.patch -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/sepia.git _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
