[5550] * tp/t/test_utils.pl(test): use SKIP and not TODO, as TODO is

[Patrice Dumas]

Revision: 5550
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=5550
Author:   pertusus
Date:     2014-05-10 23:42:26 +0000 (Sat, 10 May 2014)
Log Message:
-----------
        * tp/t/test_utils.pl(test): use SKIP and not TODO, as TODO is
        assumed to fail, while there is an unknown output since different
        perl verions treat NEL differently.

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/tp/t/test_utils.pl

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2014-05-10 19:31:26 UTC (rev 5549)
+++ trunk/ChangeLog     2014-05-10 23:42:26 UTC (rev 5550)
@@ -1,3 +1,9 @@
+2014-05-11  Patrice Dumas  <address@hidden>
+
+       * tp/t/test_utils.pl(test): use SKIP and not TODO, as TODO is
+       assumed to fail, while there is an unknown output since different
+       perl verions treat NEL differently.
+
 2014-05-10  Gavin Smith  <address@hidden>
 
        * info/info-utils.c (info_parse_node): Call read_quoted_string

Modified: trunk/tp/t/test_utils.pl
===================================================================
--- trunk/tp/t/test_utils.pl    2014-05-10 19:31:26 UTC (rev 5549)
+++ trunk/tp/t/test_utils.pl    2014-05-10 23:42:26 UTC (rev 5550)
@@ -977,8 +977,10 @@
     ok (Texinfo::Convert::Texinfo::convert($result) eq 
$result_texis{$test_name}, 
          $test_name.' texi');
     if ($todos{'text'}) {
-      TODO: {
-        local $TODO = $todos{'text'};
+      #TODO: {
+        #local $TODO = $todos{'text'};
+      SKIP: {
+        skip $todos{'text'}, 1;
         ok ($converted_text eq $result_texts{$test_name}, $test_name.' text');
       }
     } else {
@@ -1006,8 +1008,10 @@
             $tests_count += 1;
             my $errors = compare_dirs_files($reference_dir, $results_dir);
             if ($todos{$format}) {
-              TODO: {
-                local $TODO = $todos{$format};
+              #TODO: {
+              #  local $TODO = $todos{$format};
+              SKIP: {
+                skip $todos{$format}, 1;
                 ok (!defined($errors), $test_name.' converted '.$format)
                   or diag (join("\n", @$errors));
               }