Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 95470a2f

Von Sven Schöling vor mehr als 11 Jahren hinzugefügt

  • ID 95470a2f94bfd477c0ec4ed9282a6acd26074588
  • Vorgänger 245d5036
  • Nachfolger 8240edb6

Request::flatten sortiert jetzt Hashes nach keys.

Die Änderung war notwendig, weil in perl 5.18 die Hashrandomisierung deutlich
aggressiver ist. Flatten war vorher schon auf dem Papier nicht deterministisch,
das ist aber durch die Randomisierung von perl 5.10 bis 5.16 nie aufgefallen.
Der neue Algorithmus sorgt dafür dass die Datenstruktur

a => [
    {
      b => 1,
      c => 2,
    }
  ]

sowohl als

a[+].b = 1
  a[].c = 2

als auch als

a[+].c = 2
  a[].b = 1

zurückkommen kann, je nach Reihenfolge die keys zurückgibt.

Ab jetzt wird immer die erste Version forciert.

Unterschiede anzeigen:

t/request/flatten.t
1 1 
use Test::More;
2 
use Test::Deep;
2 
use Test::Deep qw(cmp_deeply);
3 3 
use Data::Dumper;
4 4 

  		




  5
  5
  
    
use_ok 'SL::Request', qw(flatten unflatten);


  		




  ......




  13
  13
  
    
  my $unflat = unflatten($flat);


  		




  14
  14
  
    
  print Dumper($unflat) if DEBUG;


  		




  15
  15
  
    

  		




  16
  
  
    
  cmp_deeply($flat, $_[1], $_[2]);


  		




  17
  
  
    
  cmp_deeply($unflat, $_[0], $_[2]);


  		




  
  16
  
    
  cmp_deeply($flat, $_[1], $_[2] . " flatten");


  		




  
  17
  
    
  cmp_deeply($unflat, $_[0], $_[2] . " unflatten");


  		




  18
  18
  
    
}


  		




  19
  19
  
    

  		




  20
  20
  
    
f {


  		




  ......




  55
  55
  
    
      'q' => 4


  		




  56
  56
  
    
    },


  		




  57
  57
  
    
  }


  		




  58
  
  
    
}, bag(


  		




  
  58
  
    
}, [


  		




  59
  59
  
    
 [ 'x'     => 1, ],


  		




  60
  60
  
    
 [ 'y.a'   => 2, ],


  		




  61
  61
  
    
 [ 'y.b.p' => 3, ],


  		




  62
  62
  
    
 [ 'y.b.q' => 4  ],


  		




  63
  
  
    
), 'Hash::Flatten 1';


  		




  
  63
  
    
], 'Hash::Flatten 1';


  		




  64
  64
  
    

  		




  65
  65
  
    

  		




  66
  66
  
    
f {


  		




  ......




  70
  70
  
    
  },


  		




  71
  71
  
    
  'a' => [1,2,3],


  		




  72
  72
  
    
},


  		




  73
  
  
    
bag (


  		




  74
  
  
    
 ['x'    => 1, ],


  		




  
  73
  
    
[


  		




  75
  74
  
    
 ['0.1'  => 2, ],


  		




  76
  75
  
    
 ['a[]'  => 1, ],


  		




  77
  76
  
    
 ['a[]'  => 2, ],


  		




  78
  77
  
    
 ['a[]'  => 3, ],


  		




  79
  
  
    
), 'Hash::Flatten 2 - weird keys and values';


  		




  
  78
  
    
 ['x'    => 1, ],


  		




  
  79
  
    
], 'Hash::Flatten 2 - weird keys and values';


  		




  80
  80
  
    

  		




  81
  81
  
    

  		




  82
  82
  
    
f {


  		




  ......




  95
  95
  
    
    },


  		




  96
  96
  
    
  ]


  		




  97
  97
  
    
},


  		




  98
  
  
    
bag(


  		




  
  98
  
    
[


  		




  
  99
  
    
  [ 'ay.a'    => 2,       ],


  		




  99
  100
  
    
  [ 'ay.b.p'  => 3,       ],


  		




  100
  101
  
    
  [ 'ay.b.q'  => 4,       ],


  		




  101
  
  
    
  [ 'ay.a'    => 2,       ],


  		




  102
  102
  
    
  [ 'x'       => 1,       ],


  		




  103
  103
  
    
  [ 'y[]'     => 'a',    ],


  		




  104
  104
  
    
  [ 'y[]'     => 2        ],


  		




  105
  105
  
    
  [ 'y[+].baz' => 'bum',  ],


  		




  106
  
  
    
), 'Hash::Flatten 3 - mixed';


  		




  
  106
  
    
], 'Hash::Flatten 3 - mixed';


  		




  107
  107
  
    

  		




  108
  108
  
    
f {


  		




  109
  109
  
    
  'x' => 1,


  		




  ......




  117
  117
  
    
    'money',


  		




  118
  118
  
    
  ]


  		




  119
  119
  
    
},


  		




  120
  
  
    
bag(


  		




  
  120
  
    
[


  		




  121
  121
  
    
 [ 'x'        => 1,        ],


  		




  122
  
  
    
 [ 'y[][]'    => 'his',    ],


  		




  123
  
  
    
 [ 'y[][+][]' => 'parted', ],


  		




  124
  
  
    
 [ 'y[][][]'  => 'from',   ],


  		




  125
  122
  
    
 [ 'y[+][]'   => 'a',      ],


  		




  126
  
  
    
 [ 'y[+][]'   => 'easily', ],


  		




  127
  123
  
    
 [ 'y[][]'    => 'fool',   ],


  		




  128
  124
  
    
 [ 'y[][]'    => 'is'      ],


  		




  
  125
  
    
 [ 'y[+][]'   => 'easily', ],


  		




  
  126
  
    
 [ 'y[][+][]' => 'parted', ],


  		




  
  127
  
    
 [ 'y[][][]'  => 'from',   ],


  		




  
  128
  
    
 [ 'y[][]'    => 'his',    ],


  		




  129
  129
  
    
 [ 'y[]'      => 'money',  ],


  		




  130
  
  
    
), 'Hash::Flatten 4 - array nesting';


  		




  
  130
  
    
], 'Hash::Flatten 4 - array nesting';


  		




  131
  131
  
    

  		




  132
  132
  
    
f {


  		




  133
  133
  
    
  'x' => 1,


  		




  ......




  145
  145
  
    
    },


  		




  146
  146
  
    
  ]


  		




  147
  147
  
    
},


  		




  148
  
  
    
bag(


  		




  149
  
  
    
  [ 'x'        => 1,     ],


  		




  150
  
  
    
  [ 's'        => 'hey', ],


  		




  
  148
  
    
[


  		




  151
  149
  
    
  [ 'ay.a'     => 2,     ],


  		




  152
  
  
    
  [ 'y[+].baz' => 'bum', ],


  		




  153
  150
  
    
  [ 'ay.b.p'   => 3,     ],


  		




  154
  
  
    
  [ 'y[]'      => 'a',   ],


  		




  155
  151
  
    
  [ 'ay.b.q'   => 4,     ],


  		




  
  152
  
    
  [ 's'        => 'hey', ],


  		




  
  153
  
    
  [ 'x'        => 1,     ],


  		




  
  154
  
    
  [ 'y[]'      => 'a',   ],


  		




  156
  155
  
    
  [ 'y[]'      => 2      ],


  		




  157
  
  
    
), 'Hash::Flatten 5 - deep mix';


  		




  
  156
  
    
  [ 'y[+].baz' => 'bum', ],


  		




  
  157
  
    
], 'Hash::Flatten 5 - deep mix';


  		




  158
  158
  
    

  		




  159
  159
  
    
done_testing();


  		












Auch abrufbar als:  Unified diff