From: Florian Ragwitz <rafl@debian.org>
Date: Thu, 25 Aug 2011 13:35:03 +0000 (+0200)
Subject: Test duck_type under the debugger
X-Git-Tag: 2.0300~113
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eb2c02c4be7231c9b531691b2f4f35ab6134c580;p=gitmo%2FMoose.git

Test duck_type under the debugger

It used to only work without the debugger.
---

diff --git a/xt/author/debugger-duck_type.t b/xt/author/debugger-duck_type.t
new file mode 100644
index 0000000..6bea48c
--- /dev/null
+++ b/xt/author/debugger-duck_type.t
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+use FindBin qw/ $Bin /;
+
+BEGIN {
+#line 1
+#!/usr/bin/perl -d
+
+    push @DB::typeahead, "c", "q";
+
+    # try to shut it up at least a little bit
+    open my $out, ">", \my $out_buf;
+    $DB::OUT = $out;
+    open my $in, "<", \my $in_buf;
+    $DB::IN = $in;
+}
+
+require "$Bin/type_constraints/duck_types.t";