[sepia] 60/63: Fixed expect-based tests (Closes: #789836)

[Hilko Bengen]

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 <bengen at debian.org>
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 <bengen at debian.org>
+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