diff options
Diffstat (limited to 't/06-runtime.t')
| -rw-r--r-- | t/06-runtime.t | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/t/06-runtime.t b/t/06-runtime.t new file mode 100644 index 0000000..6e429b7 --- /dev/null +++ b/t/06-runtime.t @@ -0,0 +1,42 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; +use lib 't/lib/06'; + +sub warnings_ok { + my ($class, $expected) = @_; + local $Test::Builder::Level = $Test::Builder::Level + 1; + my $warnings; + local $SIG{__WARN__} = sub { $warnings .= $_[0] }; + use_ok($class); + is($warnings, $expected, "correct runtime warnings for $class"); +} + +warnings_ok('Foo', <<'WARNINGS'); +Conflict detected for Foo::Conflicts: + Foo::Foo is version 0.01, but must be greater than version 0.01 +Conflict detected for Foo::Conflicts: + Foo::Bar is version 0.01, but must be greater than version 0.01 +WARNINGS +warnings_ok('Bar', <<'WARNINGS'); +Conflict detected for Bar::Conflicts: + Bar::Baz::Bad is version 0.01, but must be greater than version 0.01 +Conflict detected for Bar::Conflicts: + Bar::Foo::Bad is version 0.01, but must be greater than version 0.01 +Conflict detected for Bar::Conflicts: + Bar::Foo is version 0.01, but must be greater than version 0.01 +Conflict detected for Bar::Conflicts: + Bar::Bar::Bad is version 0.01, but must be greater than version 0.01 +Conflict detected for Bar::Conflicts: + Bar::Bar is version 0.01, but must be greater than version 0.01 +Conflict detected for Bar::Conflicts: + Bar::Quux::Bad is version 0.01, but must be greater than version 0.01 +WARNINGS + +is(scalar(grep { ref($_) eq 'ARRAY' && @$_ > 1 && ref($_->[1]) eq 'HASH' } + @INC), + 1, + "only installed one \@INC hook"); + +done_testing; |