Merge commit '28b04a99d69a56960e53410e99de93115015061f'

Author: n-isaka

tests/jp-compat

@@ -10106,18 +10106,29 @@ $at_failed && at_fn_log_failure
 $at_traceon; }
 
 { set +x
-$as_echo "$at_srcdir/system-routine.at:85: ./prog"
+$as_echo "$at_srcdir/system-routine.at:85: ./prog > list2"
 at_fn_check_prepare_trace "system-routine.at:85"
-( $at_check_trace; ./prog
+( $at_check_trace; ./prog > list2
 ) >>"$at_stdout" 2>>"$at_stderr" 5>&-
 at_status=$? at_failed=false
 $at_check_filter
 at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; $as_echo "`cat list1`
-" | \
-  $at_diff - "$at_stdout" || at_failed=:
+at_fn_diff_devnull "$at_stdout" || at_failed=:
 at_fn_check_status 0 $at_status "$at_srcdir/system-routine.at:85"
 $at_failed && at_fn_log_failure
+$at_traceon; }
+
+{ set +x
+$as_echo "$at_srcdir/system-routine.at:86: diff list1 list2"
+at_fn_check_prepare_trace "system-routine.at:86"
+( $at_check_trace; diff list1 list2
+) >>"$at_stdout" 2>>"$at_stderr" 5>&-
+at_status=$? at_failed=false
+$at_check_filter
+at_fn_diff_devnull "$at_stderr" || at_failed=:
+at_fn_diff_devnull "$at_stdout" || at_failed=:
+at_fn_check_status 0 $at_status "$at_srcdir/system-routine.at:86"
+$at_failed && at_fn_log_failure
 $at_traceon; }
 
   set +x

tests/jp-compat.src/system-routine.at

@@ -82,8 +82,7 @@ AT_CHECK([echo -n 1 >list/input1.txt])
 AT_CHECK([echo -n 1 >list/input2.txt])
 AT_CHECK([ls -1f list > list1])
 AT_CHECK([${COMPILE} prog.cob])
-AT_CHECK_UNQUOTED([./prog], [0],
-[`cat list1`]
-)
+AT_CHECK([./prog > list2])
+AT_CHECK([diff list1 list2], [0],[])
 AT_CLEANUP