} elsif (Class::MOP::is_class_loaded($_[0]) &&
$_[0]->isa('Catalyst') && ref($_[1]) eq 'HASH') {
$args = $_[1];
- } elsif ($_[0] == $_[1]) {
+ } elsif ($_[0] eq $_[1]) {
$args = $_[1];
} else {
$args = +{ @_ };
-use Test::More tests => 22;
+use Test::More tests => 23;
use strict;
use warnings;
is_deeply($args, [qw/foo3 bar3/], 'args passed to ACCEPT_CONTEXT ok');
}
+# BUILDARGS logic
+{
+ {
+ package MyController;
+ @MyController::ISA = ('Catalyst::Controller');
+ }
+ my $warning;
+ local $SIG{__WARN__} = sub {
+ $warning = shift;
+ diag($warning);
+ };
+ my $controller = MyController->new('MyApp', undef);
+ like( $warning, qr/uninitialized value in string eq/, "no warning for == comparison");
+
+}