|
|
|
@ -69,7 +69,7 @@ ok( $res = &client->jsonResponse('/diff/1/2'), 'Diff called' ); |
|
|
|
|
my ( @c1, @c2 ); |
|
|
|
|
ok( ( @c1 = sort keys %{ $res->[0] } ), 'diff() detects changes in conf 1' ); |
|
|
|
|
ok( ( @c2 = sort keys %{ $res->[1] } ), 'diff() detects changes in conf 2' ); |
|
|
|
|
ok( @c1 == 12, '12 keys changed in conf 1' ) |
|
|
|
|
ok( @c1 == 11, '11 keys changed in conf 1' ) |
|
|
|
|
or print STDERR "Expect: 11 keys, get: " . join( ', ', @c1 ) . "\n"; |
|
|
|
|
ok( @c2 == 14, '14 keys changed or created in conf 2' ) |
|
|
|
|
or print STDERR "Expect: 14 keys, get: " . join( ',', @c2 ) . "\n"; |
|
|
|
@ -120,18 +120,10 @@ sub changes { |
|
|
|
|
'key' => 'openIdSPList', |
|
|
|
|
'new' => '1;bad.com' |
|
|
|
|
}, |
|
|
|
|
{ |
|
|
|
|
'key' => 'exportedVars', |
|
|
|
|
'new' => 'User-Agent' |
|
|
|
|
}, |
|
|
|
|
{ |
|
|
|
|
'new' => 'Uid', |
|
|
|
|
'key' => 'exportedVars' |
|
|
|
|
}, |
|
|
|
|
{ |
|
|
|
|
'key' => 'exportedVars', |
|
|
|
|
'old' => 'UA' |
|
|
|
|
}, |
|
|
|
|
{ |
|
|
|
|
'key' => |
|
|
|
|
'locationRules, test1.example.com, (?#Logout comment)^/logout', |
|
|
|
|