From 5f653fa09a4040687ddf1b33e5f19169ec0e450e Mon Sep 17 00:00:00 2001
From: Randy Stauner <randy@magnificent-tears.com>
Date: Sun, 4 Aug 2013 09:23:56 -0700
Subject: [PATCH] Test that __DATA__ handles work with Nested.pm

---
 aggtests-nested/data_handle.t | 11 +++++++++++
 t/nested.t                    |  2 +-
 2 files changed, 12 insertions(+), 1 deletion(-)
 create mode 100755 aggtests-nested/data_handle.t

diff --git a/aggtests-nested/data_handle.t b/aggtests-nested/data_handle.t
new file mode 100755
index 0000000..d5da46a
--- /dev/null
+++ b/aggtests-nested/data_handle.t
@@ -0,0 +1,11 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 1;
+
+is scalar(<DATA>), "aggregation!\n", 'data handle is accessible';
+
+__DATA__
+aggregation!
diff --git a/t/nested.t b/t/nested.t
index 8e4091b..ae26e2a 100644
--- a/t/nested.t
+++ b/t/nested.t
@@ -14,7 +14,7 @@ my $dump = 'dump.t';
 my $tests = Test::Aggregate::Nested->new(
     {   verbose         => 2,
         shuffle         => 1,
-        dirs            => 'aggtests',
+        dirs            => [ 'aggtests', 'aggtests-nested' ],
         set_filenames   => 1,
         findbin         => 1,
         test_nowarnings => 0,