File tree Expand file tree Collapse file tree 1 file changed +17
-0
lines changed Expand file tree Collapse file tree 1 file changed +17
-0
lines changed Original file line number Diff line number Diff line change @@ -99,6 +99,23 @@ if [ "$QEMU" != "" ]; then
99
99
travis_time_end ` expr 32 - $TMP_EXIT_STATUS `
100
100
101
101
export EXIT_STATUS=` expr $TMP_EXIT_STATUS + $EXIT_STATUS ` ;
102
+
103
+ travis_time_start compiled.${test_l##*/ } .test
104
+
105
+ 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))))"
106
+ export TMP_EXIT_STATUS=$?
107
+
108
+ export CONTINUE=0
109
+ # const.l does not compilable https://github.com/euslisp/EusLisp/issues/318
110
+ if [[ $test_l =~ const.l ]]; then export CONTINUE=1; fi
111
+
112
+ if [[ $CONTINUE == 0 ]]; then travis_time_end ` expr 32 - $TMP_EXIT_STATUS ` ; else travis_time_end 33; fi
113
+
114
+ if [[ $TMP_EXIT_STATUS != 0 ]]; then echo " Failed running $test_l . Exiting with $TMP_EXIT_STATUS " ; fi
115
+
116
+ if [[ $CONTINUE != 0 ]]; then continue ; fi
117
+
118
+ export EXIT_STATUS=` expr $TMP_EXIT_STATUS + $EXIT_STATUS ` ;
102
119
done ;
103
120
echo " Exit status : $EXIT_STATUS " ;
104
121
You can’t perform that action at this time.
0 commit comments