Lines Matching refs:expected

8     my ( $got, $expected ) = @_;
9     push @$got,      ( '(missing)' )          x ( @$expected - @$got ) if @$got < @$expected;
10     push @$expected, ( '(should not exist)' ) x ( @$got - @$expected ) if @$got > @$expected;
12         map +( "got  [$_] " . $got->[$_], 'expected'.(' ' x length).$expected->[$_] ),
13         grep $got->[$_] ne $expected->[$_],
34 my @expected; BEGIN { @expected = @INC }
42     is_deeply \@INC, \@expected, '... without changes to @INC'
43         or diag array_diff [@INC], [@expected];
52     @expected = ( 't/lib/on-head', @expected, 't/lib/on-tail' );
53     is_deeply \@INC, \@expected, 'modules loaded by base can extend @INC at both ends'
54         or diag array_diff [@INC], [@expected];