LIST-DIRECTORYのテストエラーに対応

* 内部で利用しているreaddir関数は環境によって順番が異なる問題があり、現行のテストだとエラーとなるケースが存在する
* readdirと同様の動きをする"ls -f"コマンドの結果を利用したテストに変更し、環境差異を吸収する

Author: n-isaka

tests/jp-compat

@@ -10027,7 +10027,7 @@ cat >prog.cob <<'_ATEOF'
                                          FILENAME
            END-CALL.
            PERFORM WITH TEST AFTER UNTIL FILENAME = SPACES
-             DISPLAY FILENAME "/"
+             DISPLAY FUNCTION TRIM(FILENAME)
              CALL "C$LIST-DIRECTORY" USING 2,
                                            MYDIR,
                                            FILENAME
@@ -10079,6 +10079,18 @@ at_fn_check_status 0 $at_status "$at_srcdir/system-routine.at:82"
 $at_failed && at_fn_log_failure
 $at_traceon; }
 
+{ set +x
+$as_echo "$at_srcdir/system-routine.at:83: ls -1f list > list1"
+at_fn_check_prepare_trace "system-routine.at:83"
+( $at_check_trace; ls -1f list > list1
+) >>"$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:83"
+$at_failed && at_fn_log_failure
+$at_traceon; }
 
 { set +x
 $as_echo "$at_srcdir/system-routine.at:84: \${COMPILE} prog.cob"
@@ -10101,17 +10113,13 @@ at_fn_check_prepare_trace "system-routine.at:85"
 at_status=$? at_failed=false
 $at_check_filter
 at_fn_diff_devnull "$at_stderr" || at_failed=:
-echo >>"$at_stdout"; $as_echo ".                             /
-..                            /
-input1.txt                    /
-input2.txt                    /
+echo >>"$at_stdout"; $as_echo "`cat list1`
 " | \
   $at_diff - "$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
   $at_times_p && times >"$at_times_file"
 ) 5>&1 2>&1 7>&- | eval $at_tee_pipe

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

@@ -65,7 +65,7 @@ AT_DATA([prog.cob], [
                                          FILENAME
            END-CALL.
            PERFORM WITH TEST AFTER UNTIL FILENAME = SPACES
-             DISPLAY FILENAME "/"
+             DISPLAY FUNCTION TRIM(FILENAME)
              CALL "C$LIST-DIRECTORY" USING 2,
                                            MYDIR,
                                            FILENAME
@@ -80,14 +80,10 @@ AT_DATA([prog.cob], [
 AT_CHECK([mkdir list])
 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([./prog], [0],
-[.                             /
-..                            /
-input1.txt                    /
-input2.txt                    /
-])
-
+AT_CHECK_UNQUOTED([./prog], [0],
+[`cat list1`]
+)
 AT_CLEANUP