diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-01-17 12:59:21 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-01-17 13:01:58 -0600 |
commit | d711238061ae1c09f9e40d93b5b04f3d83efeab4 (patch) | |
tree | 7f33b843cdb996434ecde8f9fb6c3804b0fe020c /t/06-runtime.t | |
parent | 10ece9dcbebb21bd9a50c3dbe80488df17841c23 (diff) | |
download | dist-checkconflicts-d711238061ae1c09f9e40d93b5b04f3d83efeab4.tar.gz dist-checkconflicts-d711238061ae1c09f9e40d93b5b04f3d83efeab4.zip |
make sure __DATA__ sections are preserved
Diffstat (limited to 't/06-runtime.t')
-rw-r--r-- | t/06-runtime.t | 5 |
1 files changed, 5 insertions, 0 deletions
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, |