File tree Expand file tree Collapse file tree 1 file changed +9
-2
lines changed Expand file tree Collapse file tree 1 file changed +9
-2
lines changed Original file line number Diff line number Diff line change @@ -97,7 +97,15 @@ if [ "$QEMU" != "" ]; then
97
97
eusgl $test_l ;
98
98
export TMP_EXIT_STATUS=$?
99
99
100
- travis_time_end ` expr 32 - $TMP_EXIT_STATUS `
100
+ export CONTINUE=0
101
+ # test-foreign.l only works for x86 / arm
102
+ if [[ $test_l =~ test-foreign.l && ! " $( gcc -dumpmachine) " =~ " aarch" .* | " arm" .* | " x86_64" .* | " i" [0-9]" 86" .* ]]; then export CONTINUE=1; fi
103
+
104
+ if [[ $CONTINUE == 0 ]]; then travis_time_end ` expr 32 - $TMP_EXIT_STATUS ` ; else travis_time_end 33; fi
105
+
106
+ if [[ $TMP_EXIT_STATUS != 0 ]]; then echo " Failed running $test_l . Exiting with $TMP_EXIT_STATUS " ; fi
107
+
108
+ if [[ $CONTINUE != 0 ]]; then export TMP_EXIT_STATUS=0; fi
101
109
102
110
export EXIT_STATUS=` expr $TMP_EXIT_STATUS + $EXIT_STATUS ` ;
103
111
@@ -106,7 +114,6 @@ if [ "$QEMU" != "" ]; then
106
114
eusgl " (let ((o (namestring (merge-pathnames \" .o\" \" $test_l \" ))) (so (namestring (merge-pathnames \" .so\" \" $test_l \" )))) (compile-file \" $test_l \" :o o) (if (probe-file so) (load so) (exit 1))))"
107
115
export TMP_EXIT_STATUS=$?
108
116
109
- export CONTINUE=0
110
117
# const.l does not compilable https://github.com/euslisp/EusLisp/issues/318
111
118
if [[ $test_l =~ const.l ]]; then export CONTINUE=1; fi
112
119
You can’t perform that action at this time.
0 commit comments