_id(Perl::Critic->new( -profile => "$profile" ));
like $id, qr/^[a-f0-9]{32}\z/;
note $id;
isnt $id, $default_id, 'produces a different id from the default';
# add some content to the config
tingAndDebugging::RequireUseStrict]
severity = 4
EOF
note "CONFIG:\n", $profile->slurp_utf8;
isnt(perl_critic_config_id(Perl::Critic->new( -profile => "$profile" )), $id, 'changing the severity D
ict]
severity = 5
equivalent_modules = Test2::V0
EOF
note "CONFIG:\n", $profile->slurp_utf8;
isnt(perl_critic_config_id(Perl::Critic->new( -profile => "$profile" )), $id, 'changing a property DOE