From d711238061ae1c09f9e40d93b5b04f3d83efeab4 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Mon, 17 Jan 2011 12:59:21 -0600 Subject: make sure __DATA__ sections are preserved --- t/06-runtime.t | 5 +++++ 1 file changed, 5 insertions(+) (limited to 't/06-runtime.t') diff --git a/t/06-runtime.t b/t/06-runtime.t index e8a18cc..d3c210f 100644 --- a/t/06-runtime.t +++ b/t/06-runtime.t @@ -34,6 +34,11 @@ use_ok_warnings( ['Bar::Conflicts', 'Bar::Quux::Bad', '0.01', '0.01'], ); +is(Bar::Foo->contents, "__DATA__ for Bar::Foo\n", "__DATA__ sections intact"); +is(Bar::Bar->contents, "__DATA__ for Bar::Bar\n", "__DATA__ sections intact"); +is(Bar::Baz->contents, "__DATA__ for Bar::Baz\n", "__DATA__ sections intact"); +is(Bar::Quux->contents, "__DATA__ for Bar::Quux\n", "__DATA__ sections intact"); + is(scalar(grep { ref($_) eq 'ARRAY' && @$_ > 1 && ref($_->[1]) eq 'HASH' } @INC), 1, -- cgit v1.2.3-54-g00ecf