More better unit tests.

t/bug/rt-41141.t

@@ -4,39 +4,27 @@ use strict;
 use warnings;
 
 use Test::More;
-use Test::Deep;
-
 use YAML::Syck;
+use Data::Dumper;
+
+# Carrier returns after c-indicators aren't being handled properly.
 
 my %tests = (
-    'ends with carriage return' => "?\r",
-    'number ends with carrier return' => "42\r",
+    # From the original bug report. Seems to have been fixed already.
+    '42\\r' => "42\r",
+
+    # These all produced bad YAML.
+    '?\\r'  => "?\r",
+    '-\\r\\r'  => "-\r\r",
+    ',\\r\\r\\r'  => ",\r\r\r",
 );
 
-plan tests => 3 * scalar keys %tests;
+plan tests => scalar keys %tests;
 while (my ($test, $value) = each (%tests))
 {
-    my $test_hash = { key => $value };
-    my $yaml = YAML::Syck::Dump($test_hash);
-    my $decoded = YAML::Syck::Load($yaml);
-
-    cmp_deeply(
-        $decoded,
-        $test_hash,
-        "hash: $test",
-    );
-
-    $yaml = YAML::Syck::Dump($value);
-    $decoded = YAML::Syck::Load($yaml);
-    is($value, $decoded, "scalar: $test");
-
-    $yaml = YAML::Syck::Dump([$value]);
-    $decoded = YAML::Syck::Load($yaml);
-    cmp_deeply(
-        [ $value ],
-        $decoded,
-        "array: $test",
-    );
+    my $yaml = YAML::Syck::Dump($value);
+    my $decoded = eval { YAML::Syck::Load($yaml); };
+    is($decoded, $value, "Produces valid YAML: $test");
 }
 
 note 'Done!';