1: for my $key ( sort keys %tests ) {
2:    is( $tests{$key}, $wooby{$key} );
3: }